diff options
| author | Charles Lane <lane@DUPHY4.Physics.Drexel.Edu> | 2001-12-06 06:41:25 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-06 15:43:22 +0000 |
| commit | 3ff49832724b43b7814285d07e7264c40500d852 (patch) | |
| tree | e279ee41b5f1209ec9fac8efc30c18ebb73ee3d9 /vms | |
| parent | 5cc9e5c9d4584574ed7c24896215a21bdd0fd4b2 (diff) | |
| download | perl-3ff49832724b43b7814285d07e7264c40500d852.tar.gz | |
MY_RAND workaround update
Message-Id: <011206114105.67cab@DUPHY4.Physics.Drexel.Edu>
p4raw-id: //depot/perl@13491
Diffstat (limited to 'vms')
| -rw-r--r-- | vms/vms.c | 4 | ||||
| -rw-r--r-- | vms/vmsish.h | 2 |
2 files changed, 3 insertions, 3 deletions
@@ -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 093ea69dff..ddc8b96749 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) |