| Rich Felker | 0b44a03 | 2011-02-12 00:22:29 -0500 | [diff] [blame] | 1 | #include <stdlib.h> |
| 2 | #include <inttypes.h> | ||||
| 3 | |||||
| 4 | uint64_t __rand48_step(unsigned short *xi, unsigned short *lc); | ||||
| 5 | extern unsigned short __seed48[7]; | ||||
| 6 | |||||
| 7 | long jrand48(unsigned short s[3]) | ||||
| 8 | { | ||||
| Rich Felker | adfe682 | 2016-12-16 23:19:27 -0500 | [diff] [blame] | 9 | return (int32_t)(__rand48_step(s, __seed48+3) >> 16); |
| Rich Felker | 0b44a03 | 2011-02-12 00:22:29 -0500 | [diff] [blame] | 10 | } |
| 11 | |||||
| 12 | long mrand48(void) | ||||
| 13 | { | ||||
| 14 | return jrand48(__seed48); | ||||
| 15 | } | ||||