From: Ulrich Drepper <drepper@redhat.com>
Date: Mon, 26 May 1997 16:59:47 +0000 (+0000)
Subject: (__erand48_r): Don't generate numbers in [0.5,1.0) but really in [0.0, 1.0).
X-Git-Tag: cvs/libc-2_0_4~12
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0a5d42def7ee0486de169c41396c08608b7fa4b1;p=thirdparty%2Fglibc.git

(__erand48_r): Don't generate numbers in [0.5,1.0) but really in [0.0, 1.0).
---

diff --git a/stdlib/erand48_r.c b/stdlib/erand48_r.c
index 958c2e2799a..b7deb4a1ff3 100644
--- a/stdlib/erand48_r.c
+++ b/stdlib/erand48_r.c
@@ -39,11 +39,11 @@ erand48_r (xsubi, buffer, result)
 
 #if USHRT_MAX == 65535
   temp.ieee.negative = 0;
-  temp.ieee.exponent = IEEE754_DOUBLE_BIAS - 1;
+  temp.ieee.exponent = IEEE754_DOUBLE_BIAS;
   temp.ieee.mantissa0 = (xsubi[2] << 4) | (xsubi[1] >> 12);
   temp.ieee.mantissa1 = ((xsubi[1] & 0xfff) << 20) | (xsubi[0] << 4);
   /* Please note the lower 4 bits of mantissa1 are always 0.  */
-  *result = temp.d;
+  *result = temp.d - 1.0;
 #else
 # error Unsupported size of short int
 #endif