18 lines
237 B
C
18 lines
237 B
C
/* $Header$ */
|
|
static long seed = 1L;
|
|
|
|
int rand()
|
|
{
|
|
seed = (1103515245L * seed + 12345) & 0x7FFFFFFF;
|
|
#if _EM_WSIZE == 4
|
|
return (int) seed;
|
|
#else
|
|
return ((int)(seed >> 8) & 0x7FFF);
|
|
#endif
|
|
}
|
|
|
|
srand(n)
|
|
unsigned n;
|
|
{
|
|
seed = n;
|
|
}
|