source: asp3_tinet_ecnl_rx/trunk/musl-1.1.18/src/prng/mrand48.c@ 337

Last change on this file since 337 was 337, checked in by coas-nagasima, 6 years ago

ASP3版ECNLを追加

  • Property svn:eol-style set to native
  • Property svn:mime-type set to text/x-csrc;charset=UTF-8
File size: 287 bytes
Line 
1#include <stdlib.h>
2#include <inttypes.h>
3
4uint64_t __rand48_step(unsigned short *xi, unsigned short *lc);
5extern unsigned short __seed48[7];
6
7long jrand48(unsigned short s[3])
8{
9 return (int32_t)(__rand48_step(s, __seed48+3) >> 16);
10}
11
12long mrand48(void)
13{
14 return jrand48(__seed48);
15}
Note: See TracBrowser for help on using the repository browser.