summaryrefslogtreecommitdiff
path: root/stdlib
diff options
context:
space:
mode:
authorRoland McGrath <roland@gnu.org>1996-03-14 11:20:03 +0000
committerRoland McGrath <roland@gnu.org>1996-03-14 11:20:03 +0000
commit52e9a9d1187e1a2a7357f3a0f353058e14667d62 (patch)
treed898bcf42f7d0a756d27f8386c093f338699a6c8 /stdlib
parent6c46dada59a56f8748f6d956ef5d318155195840 (diff)
Thu Mar 14 06:01:07 1996 Roland McGrath <roland@charlie-brown.gnu.ai.mit.edu>
* 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.
Diffstat (limited to 'stdlib')
-rw-r--r--stdlib/drand48-iter.c57
-rw-r--r--stdlib/drand48_r.c9
-rw-r--r--stdlib/erand48_r.c42
3 files changed, 46 insertions, 62 deletions
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 <errno.h>
#include <stdlib.h>
#include <limits.h>
-
+#include <sys/types.h>
/* 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;
diff --git a/stdlib/drand48_r.c b/stdlib/drand48_r.c
index eaba057fa1..3b774863e9 100644
--- a/stdlib/drand48_r.c
+++ b/stdlib/drand48_r.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1995 Free Software Foundation, Inc.
+/* 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.
@@ -26,12 +26,5 @@ drand48_r (buffer, result)
struct drand48_data *buffer;
double *result;
{
- /* be generous for the arguments, detect some errors. */
- if (buffer == NULL)
- {
- errno = EFAULT;
- return -1;
- }
-
return erand48_r (buffer->X, buffer, result);
}
diff --git a/stdlib/erand48_r.c b/stdlib/erand48_r.c
index 86d2f734d9..ab41474aca 100644
--- a/stdlib/erand48_r.c
+++ b/stdlib/erand48_r.c
@@ -17,9 +17,15 @@ 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 <math.h>
#include <stdlib.h>
+#include "gmp.h"
+#include "gmp-mparam.h"
+#include <float.h>
+
+
+/* Function to construct a floating point number from an MP integer
+ containing the fraction bits, a base 2 exponent, and a sign flag. */
+extern double __mpn_construct_double (mp_srcptr mpn, int exponent, int neg);
int
erand48_r (xsubi, buffer, result)
@@ -27,26 +33,30 @@ erand48_r (xsubi, buffer, result)
struct drand48_data *buffer;
double *result;
{
- int i;
-
- /* Be generous for the arguments, detect some errors. */
- if (result == NULL)
- {
- errno = EFAULT;
- return -1;
- }
+ mp_limb mpn[(3 * sizeof (unsigned short int) + sizeof (mp_limb) - 1)
+ / sizeof (mp_limb)];
/* Compute next state. */
if (__drand48_iterate (xsubi, buffer) < 0)
return -1;
- *result = 0.0;
- for (i = 4 / sizeof (unsigned short int); i >= 0; --i)
- {
- double factor = ldexp (1.0, (i - 6) * sizeof (unsigned short int));
+ /* Build a 48-bit mpn containing the 48 random bits. */
+
+#if BITS_PER_MP_LIMB == 64
+ mpn[0] = (xsubi[0] << 32) | (xsubi[1] << 16) | xsubi[2];
+#elif BITS_PER_MP_LIMB == 32
+ mpn[0] = (xsubi[1] << 16) | xsubi[2];
+ mpn[1] = xsubi[0];
+#else
+ #error "BITS_PER_MP_LIMB value not handled"
+#endif
+
+ /* Shift them up so they are most significant bits of the fraction. */
+ __mpn_lshift (mpn, mpn, sizeof mpn / sizeof mpn[0], DBL_MANT_DIG - 48);
- *result += factor * (double) xsubi[i];
- }
+ /* Construct a positive double using those bits for the fractional part,
+ and a zero exponent so the resulting FP number is [0.0,1.0). */
+ *result = __mpn_construct_double (mpn, 0, 0);
return 0;
}