try#2: [proposed PATCH Perl@12401] ieee floats, rand() & old systems

Message-Id: <011017090944.15ad2e@DUPHY4.Physics.Drexel.Edu>

p4raw-id: //depot/perl@12491

1 files changed, 9 insertions, 0 deletions

diff --git a/vms/vms.c b/vms/vms.c
index fd02f851bd..bd9ed125b4 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -6935,6 +6935,15 @@ init_os_extras()
 
   store_pipelocs(aTHX);
 
+#ifdef Drand01_is_rand
+/* this hackery brought to you by a bug in DECC for /ieee=denorm */
+  { 
+    int ix = RAND_MAX;
+    float x = (float)ix;
+    PL_my_inv_rand_max = 1./x;
+  }
+#endif
+
   return;
 }