source: asp3_tinet_ecnl_arm/trunk/musl-1.1.18/src/prng/__rand48_step.c@ 352

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

arm向けASP3版ECNLを追加
  • Property svn:eol-style set to native
  • Property svn:mime-type set to text/x-csrc;charset=UTF-8
File size: 285 bytes
Line 
1#include <stdint.h>
2
3uint64_t __rand48_step(unsigned short *xi, unsigned short *lc)
4{
5 uint64_t a, x;
6 x = xi[0] | xi[1]+0U<<16 | xi[2]+0ULL<<32;
7 a = lc[0] | lc[1]+0U<<16 | lc[2]+0ULL<<32;
8 x = a*x + lc[3];
9 xi[0] = x;
10 xi[1] = x>>16;
11 xi[2] = x>>32;
12 return x & 0xffffffffffffull;
13}
Note: See TracBrowser for help on using the repository browser.