diff options
author | Richard M. Stallman <rms@gnu.org> | 1994-07-26 19:25:42 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1994-07-26 19:25:42 +0000 |
commit | 26d270ab4891cff6b75601c5f1c57c5e8529ef39 (patch) | |
tree | b2ad1cb302ece9265a1f75b5df13e7b4b9e49e2b /src | |
parent | b4300a1a6ca1725bee18f0ce8f2636869341e16e (diff) | |
download | emacs-26d270ab4891cff6b75601c5f1c57c5e8529ef39.tar.gz |
(Frandom): Use just the low 30 bits of random's value.
Diffstat (limited to 'src')
-rw-r--r-- | src/fns.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/fns.c b/src/fns.c index 35cd7e4bca5..59dd3b7eeea 100644 --- a/src/fns.c +++ b/src/fns.c @@ -71,9 +71,9 @@ With argument t, set the random number seed from the current time and pid.") it's possible to get a quotient larger than limit; discarding these values eliminates the bias that would otherwise appear when using a large limit. */ - denominator = (unsigned long)0x80000000 / XFASTINT (limit); + denominator = (unsigned long)0xc0000000 / XFASTINT (limit); do - val = (random () & 0x7fffffff) / denominator; + val = (random () & 0x3fffffff) / denominator; while (val >= limit); } else |