(__erand48_r): Implement for 32 bit short int.
authordrepper <drepper>
Tue, 18 Nov 1997 02:38:06 +0000 (02:38 +0000)
committerdrepper <drepper>
Tue, 18 Nov 1997 02:38:06 +0000 (02:38 +0000)
stdlib/erand48_r.c

index b3f8b63..85393b7 100644 (file)
@@ -42,12 +42,18 @@ __erand48_r (xsubi, buffer, result)
   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 - 1.0;
+#elif USHRT_MAX == 2147483647
+  temp.ieee.negative = 0;
+  temp.ieee.exponent = IEEE754_DOUBLE_BIAS;
+  temp.ieee.mantissa0 = (xsubi[1] << 4) | (xsubi[0] >> 28);
+  temp.ieee.mantissa1 = ((xsubi[0] & 0xfffffff) << 4);
 #else
 # error Unsupported size of short int
 #endif
 
+  /* Please note the lower 4 bits of mantissa1 are always 0.  */
+  *result = temp.d - 1.0;
+
   return 0;
 }
 weak_alias (__erand48_r, erand48_r)