diff options
| author | Tony Cook <tony@develop-help.com> | 2013-09-09 14:44:57 +1000 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2013-09-13 11:33:57 +1000 |
| commit | 3be8f09452a42b9f1bbefef19be2dd11a2ca029b (patch) | |
| tree | f7e06a8545aad7e0c2e96a680cebac9c06c4ff17 /config_h.SH | |
| parent | e3be4e3ed79b466668bc99904a680772e8f04697 (diff) | |
| download | perl-3be8f09452a42b9f1bbefef19be2dd11a2ca029b.tar.gz | |
[perl #115928] a consistent (public) rand() implementation
Based on Yves's random branch work.
This version makes the new random number visible to external modules,
for example, List::Util's XS shuffle() implementation.
I've also added a 64-bit implementation when HAS_QUAD is true, this
should be significantly faster, even on 32-bit CPUs. This is intended to
produce exactly the same sequence as the original implementation.
The original version of this commit retained the "freebsd" name from
Yves's original work for the function and data structure names. I've
removed "freebsd" from most function names so the name isn't an issue
if we choose to replace the implementation,
Diffstat (limited to 'config_h.SH')
| -rwxr-xr-x | config_h.SH | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/config_h.SH b/config_h.SH index 4af9925b7c..c2d69f4920 100755 --- a/config_h.SH +++ b/config_h.SH @@ -3147,10 +3147,10 @@ sed <<!GROK!THIS! >$CONFIG_H -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un * function used to generate normalized random numbers. * Values include 15, 16, 31, and 48. */ -#define Drand01() $drand01 /**/ -#define Rand_seed_t $randseedtype /**/ -#define seedDrand01(x) $seedfunc((Rand_seed_t)x) /**/ -#define RANDBITS $randbits /**/ +#define Drand01() Perl_drand48() /**/ +#define Rand_seed_t U32 /**/ +#define seedDrand01(x) Perl_drand48_init((Rand_seed_t)x) /**/ +#define RANDBITS 48 /**/ /* Select_fd_set_t: * This symbol holds the type used for the 2nd, 3rd, and 4th |