b5b499b8c8
Move to folder with tcc. Part 1 git-svn-id: svn://kolibrios.org@8793 a494cfbc-eb01-0410-851d-a64ba20cac60
16 lines
183 B
C
16 lines
183 B
C
#include <stdlib.h>
|
|
#include <stdint.h>
|
|
|
|
static uint64_t seed;
|
|
|
|
void srand(unsigned s)
|
|
{
|
|
seed = s-1;
|
|
}
|
|
|
|
int rand(void)
|
|
{
|
|
seed = 6364136223846793005ULL*seed + 1;
|
|
return seed>>33;
|
|
}
|