From: Charles Lane <lane@DUPHY4.Physics.Drexel.Edu>
Date: Thu, 6 Dec 2001 11:41:25 +0000 (-0500)
Subject: MY_RAND workaround update
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3ff49832724b43b7814285d07e7264c40500d852;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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)