Change 13491: [PATCH Perl@13462, on top of prev. multiplicity patch] MY_RAND workaround update

[Jarkko Hietaniemi]

Change 13491 by jhi@alpha on 2001/12/06 15:43:22

        Subject: [PATCH Perl@13462, on top of prev. multiplicity patch] MY_RAND 
workaround update
        From: [EMAIL PROTECTED] (Charles Lane)
        Date: Thu, 6 Dec 2001 11:41:25 EST
        Message-Id: <[EMAIL PROTECTED]>

Affected files ...

.... //depot/perl/vms/vms.c#100 edit
.... //depot/perl/vms/vmsish.h#54 edit

Differences ...

==== //depot/perl/vms/vms.c#100 (text) ====
Index: perl/vms/vms.c
--- perl/vms/vms.c.~1~  Thu Dec  6 09:00:05 2001
+++ perl/vms/vms.c      Thu Dec  6 09:00:05 2001
@@ -7251,8 +7251,8 @@
 void  
 Perl_sys_intern_init(pTHX)
 {
-    int ix = RAND_MAX;
-    float x;
+    unsigned int ix = RAND_MAX;
+    double x;
 
     VMSISH_HUSHED = 0;
 

==== //depot/perl/vms/vmsish.h#54 (text) ====
Index: perl/vms/vmsish.h
--- perl/vms/vmsish.h.~1~       Thu Dec  6 09:00:05 2001
+++ perl/vms/vmsish.h   Thu Dec  6 09:00:05 2001
@@ -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)
End of Patch.