From 52e9a9d1187e1a2a7357f3a0f353058e14667d62 Mon Sep 17 00:00:00 2001 From: Roland McGrath Date: Thu, 14 Mar 1996 11:20:03 +0000 Subject: Thu Mar 14 06:01:07 1996 Roland McGrath * 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 * 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 * 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 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. --- stdlib/drand48-iter.c | 57 +++++++++++++++++---------------------------------- 1 file changed, 19 insertions(+), 38 deletions(-) (limited to 'stdlib/drand48-iter.c') diff --git a/stdlib/drand48-iter.c b/stdlib/drand48-iter.c index 967c404706..65e78eb3ce 100644 --- a/stdlib/drand48-iter.c +++ b/stdlib/drand48-iter.c @@ -20,7 +20,7 @@ Boston, MA 02111-1307, USA. */ #include #include #include - +#include /* Global state for non-reentrent functions. */ struct drand48_data __libc_drand48_data; @@ -31,12 +31,7 @@ __drand48_iterate (xsubi, buffer) unsigned short int xsubi[3]; struct drand48_data *buffer; { - /* Be generous for the arguments, detect some errors. */ - if (xsubi == NULL || buffer == NULL) - { - errno = EFAULT; - return -1; - } + u_int64_t X, a, result; /* Initialize buffer, if not yet done. */ if (!buffer->init) @@ -58,42 +53,28 @@ __drand48_iterate (xsubi, buffer) 48 bits. Because we compute the modulus it does not care how many bits really are computed. */ - if (sizeof (long int) >= 6) + if (sizeof (unsigned short int) == 2) { - /* The `long' data type is sufficent. */ - unsigned long int X, a, result; + X = (xsubi[2] << 16 | xsubi[1]) << 16 | xsubi[0]; + a = (buffer->a[2] << 16 | buffer->a[1]) << 16 | buffer->a[0]; -#define ONE_STEP \ - 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; \ - } - ONE_STEP; + result = X * a + buffer->c; + + xsubi[0] = result & 0xffff; + result >>= 16; + xsubi[1] = result & 0xffff; + result >>= 16; + xsubi[2] = result & 0xffff; } else { - /* We have to use the `long long' data type. */ - unsigned long long int X, a, result; - ONE_STEP; + 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; -- cgit v1.2.3