Index: fusl/src/prng/lrand48.c |
diff --git a/fusl/src/prng/lrand48.c b/fusl/src/prng/lrand48.c |
new file mode 100644 |
index 0000000000000000000000000000000000000000..a3c4e4e2b2bb09e69627a7bbd0ff655c1f4eec8a |
--- /dev/null |
+++ b/fusl/src/prng/lrand48.c |
@@ -0,0 +1,15 @@ |
+#include <stdlib.h> |
+#include <inttypes.h> |
+ |
+uint64_t __rand48_step(unsigned short *xi, unsigned short *lc); |
+extern unsigned short __seed48[7]; |
+ |
+long nrand48(unsigned short s[3]) |
+{ |
+ return __rand48_step(s, __seed48+3) >> 17; |
+} |
+ |
+long lrand48(void) |
+{ |
+ return nrand48(__seed48); |
+} |