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

37 lines
846 B
C
Raw Normal View History

Delint. Remove trailing ; from uses of __weak_alias(). The macro inserts this if needed.
2000-01-23 01:19:07 +03:00
/* $NetBSD: erand48.c,v 1.7 2000/01/22 22:19:19 mycroft Exp $ */
RCS Id Police.
1998-01-09 06:15:09 +03:00
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"
* use _DIAGASSERT() to check pointer arguments against NULL and file descriptors against -1 (as appropriate). * add actual checks which to detect stuff that would trigger_DIAGASSERT(), and attempt to return a sane error condition. * knf some code * remove some `register' decls. the first two items result in the addition of code similar to the following in various functions: _DIAGASSERT(path != NULL) #ifdef _DIAGNOSTIC if (path == NULL) { errno = EFAULT; return (-1); } #endif
1999-09-16 15:44:54 +04:00
#include <assert.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
Delint. Remove trailing ; from uses of __weak_alias(). The macro inserts this if needed.
2000-01-23 01:19:07 +03:00
__weak_alias(erand48,_erand48)
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
#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])
{
* use _DIAGASSERT() to check pointer arguments against NULL and file descriptors against -1 (as appropriate). * add actual checks which to detect stuff that would trigger_DIAGASSERT(), and attempt to return a sane error condition. * knf some code * remove some `register' decls. the first two items result in the addition of code similar to the following in various functions: _DIAGASSERT(path != NULL) #ifdef _DIAGNOSTIC if (path == NULL) { errno = EFAULT; return (-1); } #endif
1999-09-16 15:44:54 +04:00
_DIAGASSERT(xseed != NULL);
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);
}