Last change
on this file since 445 was 444, checked in by coas-nagasima, 4 years ago |
muslのソースコードを追加
|
-
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 |
|
---|
3 | uint64_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.