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/config_H.gc | |
| parent | 104f9d64ca952fefa962ba776c33d0caeb93878c (diff) | |
| download | perl-ce9935e078582f01b05cad6db77c0a8312bee15b.tar.gz | |
sanity-check $Config{drand01} in rand.t
p4raw-id: //depot/perl@2085
Diffstat (limited to 'win32/config_H.gc')
| -rw-r--r-- | win32/config_H.gc | 2 |
1 files changed, 1 insertions, 1 deletions
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 /**/ |