Listtree.mcc: use internal inherited class of NListtree
[AROS.git] / compiler / posixc / jrand48.c
blobaee4c85c032b1c9e1a8689f99b1261d884cb984c
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 "rand48.h"
16 /*****************************************************************************
18 NAME */
19 long jrand48(
21 /* SYNOPSIS */
22 unsigned short xseed[3])
24 /* FUNCTION
26 INPUTS
28 RESULT
30 NOTES
32 EXAMPLE
34 BUGS
36 SEE ALSO
38 INTERNALS
40 ******************************************************************************/
42 _dorand48(xseed);
43 return ((long) xseed[2] << 16) + (long) xseed[1];