Root/
| 1 | /*␊ |
| 2 | * seed48.c␊ |
| 3 | */␊ |
| 4 | ␊ |
| 5 | #include "libsaio.h"␊ |
| 6 | ␊ |
| 7 | unsigned short __rand48_seed[3];␊ |
| 8 | ␊ |
| 9 | unsigned short *seed48(const unsigned short xsubi[3])␊ |
| 10 | {␊ |
| 11 | ␉static unsigned short oldseed[3];␊ |
| 12 | ␉memcpy(oldseed, __rand48_seed, sizeof __rand48_seed);␊ |
| 13 | ␉memcpy(__rand48_seed, xsubi, sizeof __rand48_seed);␊ |
| 14 | ␊ |
| 15 | ␉return oldseed;␊ |
| 16 | }␊ |
| 17 |
