Aren
/
NetBSD
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
NetBSD/lib/libc/stdlib/erand48.c

31 lines
792 B
C
Raw Normal View History

RCS Id Police.
1998-01-09 06:15:09 +03:00
/* $NetBSD: erand48.c,v 1.4 1998/01/09 03:15:36 perry Exp $ */
Rand48 routines from martin@ntkupc1.tuwien.ac.at (Martin Birgmeier)
1993-10-07 22:53:35 +03:00
/*
* Copyright (c) 1993 Martin Birgmeier
* All rights reserved.
*
* You may redistribute unmodified or modified versions of this source
* code provided that the above copyright notice and this and the
* following conditions are retained.
*
* This software is provided ``as is'', and comes with no warranties
* of any kind. I shall in no event be liable for anything that happens
* to anyone/anything when using this software.
*/
If port provides __weak_alias(), provide an Standard C and POSIX pure identifier namespace by renaming non standard functions and variables such that they have a leading underscore. The library will use those names internally. Weak aliases are used to provide the original names to the API. This is only the first part of this change. It is most of the functions which are implemented in C for all NetBSD ports. Subsequent changes are to add the same support to the remaining C files, to assembly files, and to the automagically generated assembly source used for system calls. When all of the above is done, ports with weak alias support should add a definition for __weak_alias to <sys/cdefs.h>.
1997-07-21 18:06:24 +04:00
#include "namespace.h"
Rand48 routines from martin@ntkupc1.tuwien.ac.at (Martin Birgmeier)
1993-10-07 22:53:35 +03:00
#include "rand48.h"
If port provides __weak_alias(), provide an Standard C and POSIX pure identifier namespace by renaming non standard functions and variables such that they have a leading underscore. The library will use those names internally. Weak aliases are used to provide the original names to the API. This is only the first part of this change. It is most of the functions which are implemented in C for all NetBSD ports. Subsequent changes are to add the same support to the remaining C files, to assembly files, and to the automagically generated assembly source used for system calls. When all of the above is done, ports with weak alias support should add a definition for __weak_alias to <sys/cdefs.h>.
1997-07-21 18:06:24 +04:00
#ifdef __weak_alias
__weak_alias(erand48,_erand48);
#endif
Rand48 routines from martin@ntkupc1.tuwien.ac.at (Martin Birgmeier)
1993-10-07 22:53:35 +03:00
double
erand48(unsigned short xseed[3])
{
Change _dorand48 to __dorand48, as _dorand48 is in the user's namespace.
1993-10-14 00:55:04 +03:00
__dorand48(xseed);
Rand48 routines from martin@ntkupc1.tuwien.ac.at (Martin Birgmeier)
1993-10-07 22:53:35 +03:00
return ldexp((double) xseed[0], -48) +
ldexp((double) xseed[1], -32) +
ldexp((double) xseed[2], -16);
}