Magellan Linux

Contents of /trunk/mkinitrd-magellan/klibc/usr/klibc/srand48.c

Parent Directory Parent Directory | Revision Log 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)
-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 }