MY_RAND workaround update

Message-Id: <011206114105.67cab@DUPHY4.Physics.Drexel.Edu>

p4raw-id: //depot/perl@13491

diff --git a/vms/vms.c b/vms/vms.c
index 4eaa470..445b183 100644 (file)
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -7251,8 +7251,8 @@ Perl_sys_intern_clear(pTHX)
 void  
 Perl_sys_intern_init(pTHX)
 {
-    int ix = RAND_MAX;
-    float x;
+    unsigned int ix = RAND_MAX;
+    double x;
 
     VMSISH_HUSHED = 0;
 

diff --git a/vms/vmsish.h b/vms/vmsish.h
index 093ea69..ddc8b96 100644 (file)
--- a/vms/vmsish.h
+++ b/vms/vmsish.h
@@ -298,7 +298,7 @@
 #define HAVE_INTERP_INTERN
 struct interp_intern {
     int    hushed;
-    float  inv_rand_max;
+    double inv_rand_max;
 };
 #define VMSISH_HUSHED     (PL_sys_intern.hushed)
 #define MY_INV_RAND_MAX   (PL_sys_intern.inv_rand_max)