File: seed48.c

package info (click to toggle)
klibc 2.0.4-9
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 5,512 kB
  • sloc: ansic: 48,305; asm: 2,578; perl: 797; makefile: 200; sh: 191
file content (18 lines) | stat: -rw-r--r-- 334 bytes parent folder | download | duplicates (12) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
/*
 * seed48.c
 */

#include <stdlib.h>
#include <stdint.h>
#include <string.h>

unsigned short __rand48_seed[3];

unsigned short *seed48(const unsigned short xsubi[3])
{
	static unsigned short oldseed[3];
	memcpy(oldseed, __rand48_seed, sizeof __rand48_seed);
	memcpy(__rand48_seed, xsubi, sizeof __rand48_seed);

	return oldseed;
}