Contents of /trunk/mkinitrd-magellan/klibc/usr/klibc/srand48.c
Parent Directory | Revision Log
Revision 532 -
(show annotations)
(download)
Sat Sep 1 22:45:15 2007 UTC (16 years, 9 months ago) by niro
File MIME type: text/plain
File size: 303 byte(s)
Sat Sep 1 22:45:15 2007 UTC (16 years, 9 months ago) by niro
File MIME type: text/plain
File size: 303 byte(s)
-import if magellan mkinitrd; it is a fork of redhats mkinitrd-5.0.8 with all magellan patches and features; deprecates magellan-src/mkinitrd
1 | /* |
2 | * srand48.c |
3 | */ |
4 | |
5 | #include <stdlib.h> |
6 | #include <stdint.h> |
7 | |
8 | unsigned short __rand48_seed[3]; /* Common with mrand48.c, lrand48.c */ |
9 | |
10 | void srand48(long seedval) |
11 | { |
12 | __rand48_seed[0] = 0x330e; |
13 | __rand48_seed[1] = (unsigned short)seedval; |
14 | __rand48_seed[2] = (unsigned short)((uint32_t) seedval >> 16); |
15 | } |