chiark / gitweb /
[PATCH] klibc specific tweaks
[elogind.git] / klibc / klibc / srand48.c
1 /*
2  * srand48.c
3  */
4
5 #include <stdlib.h>
6 #include <stdint.h>
7
8 extern unsigned short __rand48_seed[3];
9
10
11 void srand48(long seedval)
12 {
13   __rand48_seed[0] = 0x330e;
14   __rand48_seed[1] = (unsigned short)seedval;
15   __rand48_seed[2] = (unsigned short)((uint32_t)seedval >> 16);
16 }