chiark / gitweb /
[PATCH] klibc: version 1.0.3
[elogind.git] / klibc / klibc / lrand48.c
index 4d05de2e895802d5d39f634a00e6c86b6af2558c..8c0a3de176709b1dc5b38f279e23d7a4ba604235 100644 (file)
@@ -5,38 +5,10 @@
 #include <stdlib.h>
 #include <stdint.h>
 
-unsigned short __rand48_seed[3];
-
-long jrand48(unsigned short xsubi[3])
-{
-  uint64_t x;
-
-  /* The xsubi[] array is littleendian by spec */
-  x = (uint64_t)xsubi[0] +
-    ((uint64_t)xsubi[1] << 16) +
-    ((uint64_t)xsubi[2] << 32);
-
-  x = (0x5deece66dULL * x) + 0xb;
-  
-  xsubi[0] = (unsigned short)x;
-  xsubi[1] = (unsigned short)(x >> 16);
-  xsubi[2] = (unsigned short)(x >> 32);
-
-  return (long)(int32_t)(x >> 16);
-}
-
-long mrand48(void)
-{
-  return jrand48(__rand48_seed);
-}
-
-long nrand48(unsigned short xsubi[3])
-{
-  return (long)((uint32_t)jrand48(xsubi) >> 1);
-}
+unsigned short __rand48_seed[3]; /* Common with mrand48.c, srand48.c */
 
 long lrand48(void)
 {
-  return (long)((uint32_t)(mrand48() >> 1));
+  return (uint32_t)jrand48(__rand48_seed) >> 1;
 }