52e9a9d118
* string/strnlen.c: New file. * string/Makefile (routines): Add strnlen. * string/string.h [__USE_GNU] (strnlen): Declare new function. [__OPTIMIZE__]: Define extern inline implementation of it. * stdlib/erand48_r.c: Use __mpn_construct_double instead of ldexp and addition, to avoid using anything from -lm. Mon Mar 4 21:57:14 1996 Andreas Schwab <schwab@issan.informatik.uni-dortmund.de> * sysdeps/unix/sysv/linux/m68k/Makefile: New file. * sysdeps/unix/sysv/linux/m68k/sysdep.h (SYS_ify): Redefine. (CALL_MCOUNT): New macro, empty unless [PROF]. (ENTRY): Do CALL_MCOUNT just after the label. (JUMPTARGET): New macro. (SYSCALL_ERROR_HANDLER): Fix syntax. Thu Mar 14 04:20:48 1996 Roland McGrath <roland@charlie-brown.gnu.ai.mit.edu> * sysdeps/unix/sysv/linux/init-first.c (init): Call `__personality' function instead of using inline asm i386 syscall. * sysdeps/unix/sysv/linux/syscalls.list: Add personality syscall. * posix/unistd.h [__USE_BSD]: Declare usleep. * misc/efgcvt.c (MAXDIG): New macro computed from <floats.h> constants. (fcvt, ecvt): Use it for buffer size. * stdlib/drand48-iter.c (__drand48_iterate): Use u_int64_t instead of conditionalizing long vs long long. * stdlib/drand48-iter.c (__drand48_iterate): Don't check for null pointers; never return EFAULT. * stdlib/drand48_r.c (drand48_r): Likewise. * stdlib/erand48_r.c (erand48_r): Likewise.
82 lines
2.3 KiB
C
82 lines
2.3 KiB
C
/* Copyright (C) 1995, 1996 Free Software Foundation, Inc.
|
|
This file is part of the GNU C Library.
|
|
Contributed by Ulrich Drepper <drepper@gnu.ai.mit.edu>, August 1995.
|
|
|
|
The GNU C Library is free software; you can redistribute it and/or
|
|
modify it under the terms of the GNU Library General Public License as
|
|
published by the Free Software Foundation; either version 2 of the
|
|
License, or (at your option) any later version.
|
|
|
|
The GNU C Library is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
Library General Public License for more details.
|
|
|
|
You should have received a copy of the GNU Library General Public
|
|
License along with the GNU C Library; see the file COPYING.LIB. If
|
|
not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
Boston, MA 02111-1307, USA. */
|
|
|
|
#include <errno.h>
|
|
#include <stdlib.h>
|
|
#include <limits.h>
|
|
#include <sys/types.h>
|
|
|
|
/* Global state for non-reentrent functions. */
|
|
struct drand48_data __libc_drand48_data;
|
|
|
|
|
|
int
|
|
__drand48_iterate (xsubi, buffer)
|
|
unsigned short int xsubi[3];
|
|
struct drand48_data *buffer;
|
|
{
|
|
u_int64_t X, a, result;
|
|
|
|
/* Initialize buffer, if not yet done. */
|
|
if (!buffer->init)
|
|
{
|
|
#if (USHRT_MAX == 0xffffU)
|
|
buffer->a[2] = 0x5;
|
|
buffer->a[1] = 0xdeec;
|
|
buffer->a[0] = 0xe66d;
|
|
#else
|
|
buffer->a[2] = 0x5deecUL;
|
|
buffer->a[1] = 0xe66d0000UL;
|
|
buffer->a[0] = 0;
|
|
#endif
|
|
buffer->c = 0xb;
|
|
buffer->init = 1;
|
|
}
|
|
|
|
/* Do the real work. We choose a data type which contains at least
|
|
48 bits. Because we compute the modulus it does not care how
|
|
many bits really are computed. */
|
|
|
|
if (sizeof (unsigned short int) == 2)
|
|
{
|
|
X = (xsubi[2] << 16 | xsubi[1]) << 16 | xsubi[0];
|
|
a = (buffer->a[2] << 16 | buffer->a[1]) << 16 | buffer->a[0];
|
|
|
|
result = X * a + buffer->c;
|
|
|
|
xsubi[0] = result & 0xffff;
|
|
result >>= 16;
|
|
xsubi[1] = result & 0xffff;
|
|
result >>= 16;
|
|
xsubi[2] = result & 0xffff;
|
|
}
|
|
else
|
|
{
|
|
X = xsubi[2] << 16 | xsubi[1] >> 16;
|
|
a = buffer->a[2] << 16 | buffer->a[1] >> 16;
|
|
|
|
result = X * a + buffer->c;
|
|
|
|
xsubi[0] = result >> 16 & 0xffffffffl;
|
|
xsubi[1] = result << 16 & 0xffff0000l;
|
|
}
|
|
|
|
return 0;
|
|
}
|