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.

ChangeLog

@@ -1,5 +1,44 @@
+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.
+
 Tue Mar 12 04:57:57 1996  Roland McGrath  <roland@charlie-brown.gnu.ai.mit.edu>
 
+	* 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.
+
 	* setjmp/Makefile (tests): Add jmpbug.
 	* setjmp/jmpbug.c: New file.
 

NEWS

@@ -1,4 +1,4 @@
-GNU C Library NEWS -- history of user-visible changes.  2 January 1996
+GNU C Library NEWS -- history of user-visible changes.  14 March 1996
 
 Copyright (C) 1992, 93, 94, 95, 96 Free Software Foundation, Inc.
 See the end for copying conditions.
@@ -179,6 +179,9 @@ Version 1.10
 
 * New macro `strdupa' copies a string like `strdup', but uses local stack
   space from `alloca' instead of dynamic heap space from `malloc'.
+
+* New function `strnlen' is like `strlen' but searches only a given maximum
+  number of characters for the null terminator.
 
 Version 1.09
 

misc/efgcvt.c

@@ -1,5 +1,5 @@
 /* [efg]cvt -- compatibility functions for floating point formatting.
-Copyright (C) 1995 Free Software Foundation, Inc.
+Copyright (C) 1995, 1996 Free Software Foundation, Inc.
 This file is part of the GNU C Library.
 
 The GNU C Library is free software; you can redistribute it and/or
@@ -19,13 +19,16 @@ Cambridge, MA 02139, USA.  */
 
 #include <stdio.h>
 #include <stdlib.h>
+#include <float.h>
+
+#define MAXDIG (DBL_DIG + DBL_MAX_10_EXP)
 
 char *
 fcvt (value, ndigit, decpt, sign)
      double value;
      int ndigit, *decpt, *sign;
 {
-  static char buf[100];
+  static char buf[MAXDIG];
 
   (void) fcvt_r (value, ndigit, decpt, sign, buf, sizeof buf);
 
@@ -37,7 +40,7 @@ ecvt (value, ndigit, decpt, sign)
      double value;
      int ndigit, *decpt, *sign;
 {
-  static char buf[100];
+  static char buf[MAXDIG];
 
   (void) ecvt_r (value, ndigit, decpt, sign, buf, sizeof buf);
 

posix/unistd.h

@@ -1,4 +1,4 @@
-/* Copyright (C) 1991, 1992, 1993, 1994, 1995 Free Software Foundation, Inc.
+/* Copyright (C) 1991, 92, 93, 94, 95, 96 Free Software Foundation, Inc.
 This file is part of the GNU C Library.
 
 The GNU C Library is free software; you can redistribute it and/or
@@ -180,6 +180,12 @@ extern unsigned int alarm __P ((unsigned int __seconds));
    error, but if `sleep' returns SECONDS, it probably didn't work.  */
 extern unsigned int sleep __P ((unsigned int __seconds));
 
+#ifdef __USE_BSD
+/* Sleep USECONDS microseconds, or until a signal arrives that is not blocked
+   or ignored.  Return value is not necessarily useful.  */
+extern unsigned int usleep __P ((unsigned __useconds));
+#endif
+
 
 /* Suspend the process until a signal arrives.
    This always returns -1 and sets `errno' to EINTR.  */

setjmp/jmpbug.c

@@ -10,23 +10,31 @@ sub5 (jmp_buf buf)
   longjmp (buf, 1);
 }
 
-int
-main (void)
+void
+test (int x)
 {
   jmp_buf buf;
   char *foo;
   int arr[100];
 
-  arr[77] = 76;
+  arr[77] = x;
   if (setjmp (buf))
     {
       printf ("made it ok; %d\n", arr[77]);
-      exit (0);
+      return;
     }
 
   foo = (char *) alloca (128);
   sub5 (buf);
+}
+
+int
+main (void)
+{
+  int i;
+
+  for (i = 123; i < 345; ++i)
+    test (i);
 
-  /* NOTREACHED */
-  return 1;
+  return 0;
 }

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;

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);
 }

stdlib/erand48_r.c

@@ -17,36 +17,46 @@ 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)
      unsigned short int xsubi[3];
      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;
 }