diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-26 00:50:02 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-26 00:50:02 +0000 |
| commit | ce9935e078582f01b05cad6db77c0a8312bee15b (patch) | |
| tree | 00a9ffb18cff0078dff14bff82d38c7aafa67dc9 /win32 | |
| parent | 104f9d64ca952fefa962ba776c33d0caeb93878c (diff) | |
| download | perl-ce9935e078582f01b05cad6db77c0a8312bee15b.tar.gz | |
sanity-check $Config{drand01} in rand.t
p4raw-id: //depot/perl@2085
Diffstat (limited to 'win32')
| -rw-r--r-- | win32/config.bc | 2 | ||||
| -rw-r--r-- | win32/config.gc | 2 | ||||
| -rw-r--r-- | win32/config.vc | 2 | ||||
| -rw-r--r-- | win32/config_H.bc | 2 | ||||
| -rw-r--r-- | win32/config_H.gc | 2 | ||||
| -rw-r--r-- | win32/config_H.vc | 2 |
6 files changed, 6 insertions, 6 deletions
diff --git a/win32/config.bc b/win32/config.bc index 7f27132a93..69620ab5d5 100644 --- a/win32/config.bc +++ b/win32/config.bc @@ -331,7 +331,7 @@ direntrytype='struct direct' dlext='dll' dlsrc='dl_win32.xs' doublesize='8' -drand01='rand()' +drand01='(rand()/(double)((unsigned)1<<RANDBITS))' dynamic_ext='Socket IO Fcntl Opcode SDBM_File attrs Thread' eagain='EAGAIN' ebcdic='undef' diff --git a/win32/config.gc b/win32/config.gc index cd349c75d0..7dc64f8cdb 100644 --- a/win32/config.gc +++ b/win32/config.gc @@ -331,7 +331,7 @@ direntrytype='struct direct' dlext='dll' dlsrc='dl_win32.xs' doublesize='8' -drand01='rand()' +drand01='(rand()/(double)((unsigned)1<<RANDBITS))' dynamic_ext='Socket IO Fcntl Opcode SDBM_File attrs Thread' eagain='EAGAIN' ebcdic='undef' diff --git a/win32/config.vc b/win32/config.vc index 8d7e74155c..c9ef76c339 100644 --- a/win32/config.vc +++ b/win32/config.vc @@ -331,7 +331,7 @@ direntrytype='struct direct' dlext='dll' dlsrc='dl_win32.xs' doublesize='8' -drand01='rand()' +drand01='(rand()/(double)((unsigned)1<<RANDBITS))' dynamic_ext='Socket IO Fcntl Opcode SDBM_File attrs Thread' eagain='EAGAIN' ebcdic='undef' diff --git a/win32/config_H.bc b/win32/config_H.bc index 493da7302f..8c06b3673e 100644 --- a/win32/config_H.bc +++ b/win32/config_H.bc @@ -1348,7 +1348,7 @@ * function used to generate normalized random numbers. * Values include 15, 16, 31, and 48. */ -#define Drand01() rand() /**/ +#define Drand01() (rand()/(double)((unsigned)1<<RANDBITS)) /**/ #define Rand_seed_t unsigned /**/ #define seedDrand01(x) srand((Rand_seed_t)x) /**/ #define RANDBITS 15 /**/ diff --git a/win32/config_H.gc b/win32/config_H.gc index aac2416508..82e5d1862f 100644 --- a/win32/config_H.gc +++ b/win32/config_H.gc @@ -1348,7 +1348,7 @@ * function used to generate normalized random numbers. * Values include 15, 16, 31, and 48. */ -#define Drand01() rand() /**/ +#define Drand01() (rand()/(double)((unsigned)1<<RANDBITS)) /**/ #define Rand_seed_t unsigned /**/ #define seedDrand01(x) srand((Rand_seed_t)x) /**/ #define RANDBITS 15 /**/ diff --git a/win32/config_H.vc b/win32/config_H.vc index 3c6d36856c..82d6218998 100644 --- a/win32/config_H.vc +++ b/win32/config_H.vc @@ -1348,7 +1348,7 @@ * function used to generate normalized random numbers. * Values include 15, 16, 31, and 48. */ -#define Drand01() rand() /**/ +#define Drand01() (rand()/(double)((unsigned)1<<RANDBITS)) /**/ #define Rand_seed_t unsigned /**/ #define seedDrand01(x) srand((Rand_seed_t)x) /**/ #define RANDBITS 15 /**/ |