1*2fe8fb19SBen Gras /* $NetBSD: srand48.c,v 1.7 2005/06/12 05:21:28 lukem Exp $ */ 2*2fe8fb19SBen Gras 3*2fe8fb19SBen Gras /* 4*2fe8fb19SBen Gras * Copyright (c) 1993 Martin Birgmeier 5*2fe8fb19SBen Gras * All rights reserved. 6*2fe8fb19SBen Gras * 7*2fe8fb19SBen Gras * You may redistribute unmodified or modified versions of this source 8*2fe8fb19SBen Gras * code provided that the above copyright notice and this and the 9*2fe8fb19SBen Gras * following conditions are retained. 10*2fe8fb19SBen Gras * 11*2fe8fb19SBen Gras * This software is provided ``as is'', and comes with no warranties 12*2fe8fb19SBen Gras * of any kind. I shall in no event be liable for anything that happens 13*2fe8fb19SBen Gras * to anyone/anything when using this software. 14*2fe8fb19SBen Gras */ 15*2fe8fb19SBen Gras 16*2fe8fb19SBen Gras #include <sys/cdefs.h> 17*2fe8fb19SBen Gras #if defined(LIBC_SCCS) && !defined(lint) 18*2fe8fb19SBen Gras __RCSID("$NetBSD: srand48.c,v 1.7 2005/06/12 05:21:28 lukem Exp $"); 19*2fe8fb19SBen Gras #endif /* LIBC_SCCS and not lint */ 20*2fe8fb19SBen Gras 21*2fe8fb19SBen Gras #include "namespace.h" 22*2fe8fb19SBen Gras #include "rand48.h" 23*2fe8fb19SBen Gras 24*2fe8fb19SBen Gras #ifdef __weak_alias __weak_alias(srand48,_srand48)25*2fe8fb19SBen Gras__weak_alias(srand48,_srand48) 26*2fe8fb19SBen Gras #endif 27*2fe8fb19SBen Gras 28*2fe8fb19SBen Gras void 29*2fe8fb19SBen Gras srand48(long seed) 30*2fe8fb19SBen Gras { 31*2fe8fb19SBen Gras __rand48_seed[0] = RAND48_SEED_0; 32*2fe8fb19SBen Gras __rand48_seed[1] = (unsigned short) seed; 33*2fe8fb19SBen Gras __rand48_seed[2] = (unsigned short) ((unsigned long)seed >> 16); 34*2fe8fb19SBen Gras __rand48_mult[0] = RAND48_MULT_0; 35*2fe8fb19SBen Gras __rand48_mult[1] = RAND48_MULT_1; 36*2fe8fb19SBen Gras __rand48_mult[2] = RAND48_MULT_2; 37*2fe8fb19SBen Gras __rand48_add = RAND48_ADD; 38*2fe8fb19SBen Gras } 39