Don't call ReadArgs() if started from WB.
[tangerine.git] / compiler / clib / seed48.c
blob5339b8c0c4e9b1b4670493e406381826a8562a6e
1 /*
2 * Copyright (c) 1993 Martin Birgmeier
3 * All rights reserved.
5 * You may redistribute unmodified or modified versions of this source
6 * code provided that the above copyright notice and this and the
7 * following conditions are retained.
9 * This software is provided ``as is'', and comes with no warranties
10 * of any kind. I shall in no event be liable for anything that happens
11 * to anyone/anything when using this software.
14 #include <sys/cdefs.h>
15 __FBSDID("$FreeBSD$");
17 #include "rand48.h"
19 extern unsigned short _rand48_seed[3];
20 extern unsigned short _rand48_mult[3];
21 extern unsigned short _rand48_add;
23 unsigned short *
24 seed48(unsigned short xseed[3])
26 static unsigned short sseed[3];
28 sseed[0] = _rand48_seed[0];
29 sseed[1] = _rand48_seed[1];
30 sseed[2] = _rand48_seed[2];
31 _rand48_seed[0] = xseed[0];
32 _rand48_seed[1] = xseed[1];
33 _rand48_seed[2] = xseed[2];
34 _rand48_mult[0] = RAND48_MULT_0;
35 _rand48_mult[1] = RAND48_MULT_1;
36 _rand48_mult[2] = RAND48_MULT_2;
37 _rand48_add = RAND48_ADD;
38 return sseed;