jrand48.c revision 1.4
11.4Sperry/* $NetBSD: jrand48.c,v 1.4 1998/01/09 03:15:37 perry Exp $ */ 21.4Sperry 31.1Sbrezak/* 41.1Sbrezak * Copyright (c) 1993 Martin Birgmeier 51.1Sbrezak * All rights reserved. 61.1Sbrezak * 71.1Sbrezak * You may redistribute unmodified or modified versions of this source 81.1Sbrezak * code provided that the above copyright notice and this and the 91.1Sbrezak * following conditions are retained. 101.1Sbrezak * 111.1Sbrezak * This software is provided ``as is'', and comes with no warranties 121.1Sbrezak * of any kind. I shall in no event be liable for anything that happens 131.1Sbrezak * to anyone/anything when using this software. 141.1Sbrezak */ 151.1Sbrezak 161.3Sjtc#include "namespace.h" 171.1Sbrezak#include "rand48.h" 181.3Sjtc 191.3Sjtc#ifdef __weak_alias 201.3Sjtc__weak_alias(jrand48,_jrand48); 211.3Sjtc#endif 221.1Sbrezak 231.1Sbrezaklong 241.1Sbrezakjrand48(unsigned short xseed[3]) 251.1Sbrezak{ 261.2Sjtc __dorand48(xseed); 271.1Sbrezak return ((long) xseed[2] << 16) + (long) xseed[1]; 281.1Sbrezak} 29