* sysdeps/i386/fpu/__math.h (asinh): Call log1p instead of __log1p.

	* math/math.h: Move M_* constants before __math.h include.
	[__NO_MATH_INLINES || __OPTIMIZE__]: Include __math.h only #if this.

	* misc/efgcvt_r.c (ecvt_r): Declare floor, log10, fabs as weak extern.
	If log10 is not defined (i.e. no -lm), use stupid loop instead.

diff --git a/ChangeLog b/ChangeLog
index 45095cf..7e8e4a8 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,13 @@
 Tue Mar 19 14:18:42 1996  Roland McGrath  <roland@charlie-brown.gnu.ai.mit.edu>
 
+       * sysdeps/i386/fpu/__math.h (asinh): Call log1p instead of __log1p.
+
+       * math/math.h: Move M_* constants before __math.h include.
+       [__NO_MATH_INLINES || __OPTIMIZE__]: Include __math.h only #if this.
+
+       * misc/efgcvt_r.c (ecvt_r): Declare floor, log10, fabs as weak extern.
+       If log10 is not defined (i.e. no -lm), use stupid loop instead.
+
        * features.h (__FAVOR_BSD): Define only if _BSD_SOURCE is defined
        and no other _*_SOURCE macro is.
        (_GNU_SOURCE): Don't define by default.

diff --git a/features.h b/features.h
index 675eac5..de1fe00 100644 (file)
--- a/features.h
+++ b/features.h
@@ -75,8 +75,8 @@ Cambridge, MA 02139, USA.  */
 
 /* If _BSD_SOURCE was defined by the user, favor BSD over POSIX.  */
 #if defined (_BSD_SOURCE) && \
-    !(defined (_POSIX_SOURCE) || defined (_POSIX_C_SOURCE) ||
-      defiend (_GNU_SOURCE) || defined (_SVID_SOURCE))
+    !(defined (_POSIX_SOURCE) || defined (_POSIX_C_SOURCE) || \
+      defined (_GNU_SOURCE) || defined (_SVID_SOURCE))
 #define        __FAVOR_BSD     1
 #endif
 

diff --git a/math/math.h b/math/math.h
index 2693fcc..6915a9e 100644 (file)
--- a/math/math.h
+++ b/math/math.h
@@ -115,13 +115,6 @@ extern int matherr __P ((struct exception *));
 #endif
 
 
-/* Get machine-dependent inline versions (if there are any).  */
-#include <__math.h>
-
-
-__END_DECLS
-
-
 #ifdef __USE_BSD
 /* Some useful constants.  */
 #define        M_E             2.7182818284590452354   /* e */
@@ -140,4 +133,13 @@ __END_DECLS
 #endif
 
 
+/* Get machine-dependent inline versions (if there are any).  */
+#if defined (__NO_MATH_INLINES) || defined (__OPTIMIZE__)
+#include <__math.h>
+#endif
+
+
+__END_DECLS
+
+
 #endif /* math.h  */

diff --git a/misc/efgcvt_r.c b/misc/efgcvt_r.c
index 6bead57..3e33f66 100644 (file)
--- a/misc/efgcvt_r.c
+++ b/misc/efgcvt_r.c
@@ -1,6 +1,6 @@
 /* [efg]cvt -- compatibility functions for floating point formatting,
    reentrent versions.
-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
@@ -60,6 +60,8 @@ fcvt_r (value, ndigit, decpt, sign, buf, len)
   return 0;
 }
 
+weak_symbol (floor) weak_symbol (log10) weak_symbol (fabs)
+
 int
 ecvt_r (value, ndigit, decpt, sign, buf, len)
      double value;
@@ -67,8 +69,22 @@ ecvt_r (value, ndigit, decpt, sign, buf, len)
      char *buf;
      size_t len;
 {
-  ndigit -= (int) floor (log10 (value < 0.0 ? -value : value));
-  if (ndigit < 0)
-    ndigit = 0;
+  if (&log10)
+    {
+      /* Use the reasonable code if -lm is included.  */
+      ndigit -= (int) floor (log10 (fabs (value)));
+      if (ndigit < 0)
+       ndigit = 0;
+    }
+  else
+    {
+      /* Slow code that doesn't require -lm functions.  */
+      double d;
+      for (d = value < 0.0 ? - value : value;
+          ndigit > 0 && d >= 10.0;
+          d *= 0.1)
+       --ndigit;
+    }
+
   return fcvt_r (value, ndigit, decpt, sign, buf, len);
 }

diff --git a/sysdeps/i386/fpu/__math.h b/sysdeps/i386/fpu/__math.h
index 2a759c2..c9bae29 100644 (file)
--- a/sysdeps/i386/fpu/__math.h
+++ b/sysdeps/i386/fpu/__math.h
@@ -93,7 +93,7 @@ __MATH_INLINE double sin (double __x);
 __MATH_INLINE double
 sin (double __x)
 {
-  register double value;
+  register double __value;
   __asm __volatile__
     ("fsin"
      : "=t" (__value) : "0" (__x));
@@ -179,7 +179,7 @@ exp (double __x)
      "fsub     %%st(1)         # fract(x * log2(e))\n\t"
      "f2xm1                    # 2^(fract(x * log2(e))) - 1\n\t"
      : "=t" (__value), "=u" (__exponent) : "0" (__x));
-  value += 1.0;
+  __value += 1.0;
   __asm __volatile__
     ("fscale"
      : "=t" (__value) : "0" (__value), "u" (__exponent));
@@ -372,7 +372,6 @@ hypot (double __x, double __y)
   return sqrt (__x * __x + __y * __y);
 }
 
-__MATH_INLINE double __log1p (double __x);
 __MATH_INLINE double
 log1p (double __x)
 {
@@ -396,8 +395,8 @@ asinh (double __x)
 {
   register double __y = fabs (__x);
 
-  return __log1p ((__y * __y / (sqrt (__y * __y + 1.0) + 1.0) + __y)
-                 * __sgn1 (__x));
+  return log1p ((__y * __y / (sqrt (__y * __y + 1.0) + 1.0) + __y)
+               * __sgn1 (__x));
 }
 
 __MATH_INLINE double __acosh (double __x);