- move libm_hidden_proto to the corresponding headers. Remove from callsites.

  Note that gamma_r is not provided by glibc, perhaps add a SUN specific knob later

diff --git a/libc/sysdeps/linux/common/bits/cmathcalls.h b/libc/sysdeps/linux/common/bits/cmathcalls.h
index 35237b3..762c1e3 100644 (file)
--- a/libc/sysdeps/linux/common/bits/cmathcalls.h
+++ b/libc/sysdeps/linux/common/bits/cmathcalls.h
@@ -52,81 +52,104 @@
 
 /* Arc cosine of Z.  */
 __MATHCALL (cacos, (_Mdouble_complex_ __z));
+libm_hidden_proto(cacos)
 /* Arc sine of Z.  */
 __MATHCALL (casin, (_Mdouble_complex_ __z));
+libm_hidden_proto(casin)
 /* Arc tangent of Z.  */
 __MATHCALL (catan, (_Mdouble_complex_ __z));
+libm_hidden_proto(catan)
 
 /* Cosine of Z.  */
 __MATHCALL (ccos, (_Mdouble_complex_ __z));
+libm_hidden_proto(ccos)
 /* Sine of Z.  */
 __MATHCALL (csin, (_Mdouble_complex_ __z));
+libm_hidden_proto(csin)
 /* Tangent of Z.  */
 __MATHCALL (ctan, (_Mdouble_complex_ __z));
+libm_hidden_proto(ctan)
 
 
 /* Hyperbolic functions.  */
 
 /* Hyperbolic arc cosine of Z.  */
 __MATHCALL (cacosh, (_Mdouble_complex_ __z));
+libm_hidden_proto(cacosh)
 /* Hyperbolic arc sine of Z.  */
 __MATHCALL (casinh, (_Mdouble_complex_ __z));
+libm_hidden_proto(casinh)
 /* Hyperbolic arc tangent of Z.  */
 __MATHCALL (catanh, (_Mdouble_complex_ __z));
+libm_hidden_proto(catanh)
 
 /* Hyperbolic cosine of Z.  */
 __MATHCALL (ccosh, (_Mdouble_complex_ __z));
+libm_hidden_proto(ccosh)
 /* Hyperbolic sine of Z.  */
 __MATHCALL (csinh, (_Mdouble_complex_ __z));
+libm_hidden_proto(ccosh)
 /* Hyperbolic tangent of Z.  */
 __MATHCALL (ctanh, (_Mdouble_complex_ __z));
+libm_hidden_proto(ctanh)
 
 
 /* Exponential and logarithmic functions.  */
 
 /* Exponential function of Z.  */
 __MATHCALL (cexp, (_Mdouble_complex_ __z));
+libm_hidden_proto(cexp)
 
 /* Natural logarithm of Z.  */
 __MATHCALL (clog, (_Mdouble_complex_ __z));
+libm_hidden_proto(clog)
 
 #ifdef __USE_GNU
 /* The base 10 logarithm is not defined by the standard but to implement
    the standard C++ library it is handy.  */
 __MATHCALL (clog10, (_Mdouble_complex_ __z));
+libm_hidden_proto(clog10)
 #endif
 
 /* Power functions.  */
 
 /* Return X to the Y power.  */
 __MATHCALL (cpow, (_Mdouble_complex_ __x, _Mdouble_complex_ __y));
+libm_hidden_proto(cpow)
 
 /* Return the square root of Z.  */
 __MATHCALL (csqrt, (_Mdouble_complex_ __z));
+libm_hidden_proto(csqrt)
 
 
 /* Absolute value, conjugates, and projection.  */
 
 /* Absolute value of Z.  */
 __MATHDECL (_Mdouble_,cabs, (_Mdouble_complex_ __z));
+libm_hidden_proto(cabs)
 
 /* Argument value of Z.  */
 __MATHDECL (_Mdouble_,carg, (_Mdouble_complex_ __z));
+libm_hidden_proto(carg)
 
 /* Complex conjugate of Z.  */
 __MATHCALL (conj, (_Mdouble_complex_ __z));
+libm_hidden_proto(conj)
 
 /* Projection of Z onto the Riemann sphere.  */
 __MATHCALL (cproj, (_Mdouble_complex_ __z));
+libm_hidden_proto(cproj)
 
 
 /* Decomposing complex values.  */
 
 /* Imaginary part of Z.  */
 __MATHDECL (_Mdouble_,cimag, (_Mdouble_complex_ __z));
+libm_hidden_proto(cimag)
 
 /* Real part of Z.  */
 __MATHDECL (_Mdouble_,creal, (_Mdouble_complex_ __z));
+libm_hidden_proto(creal)
 
 
 /* Now some optimized versions.  GCC has handy notations for these

diff --git a/libc/sysdeps/linux/common/bits/mathcalls.h b/libc/sysdeps/linux/common/bits/mathcalls.h
index c020072..e30b04a 100644 (file)
--- a/libc/sysdeps/linux/common/bits/mathcalls.h
+++ b/libc/sysdeps/linux/common/bits/mathcalls.h
@@ -53,44 +53,58 @@
 _Mdouble_BEGIN_NAMESPACE
 /* Arc cosine of X.  */
 __MATHCALL (acos,, (_Mdouble_ __x));
+libm_hidden_proto(acos)
 /* Arc sine of X.  */
 __MATHCALL (asin,, (_Mdouble_ __x));
+libm_hidden_proto(asin)
 /* Arc tangent of X.  */
 __MATHCALL (atan,, (_Mdouble_ __x));
+libm_hidden_proto(atan)
 /* Arc tangent of Y/X.  */
 __MATHCALL (atan2,, (_Mdouble_ __y, _Mdouble_ __x));
+libm_hidden_proto(atan2)
 
 /* Cosine of X.  */
 __MATHCALL (cos,, (_Mdouble_ __x));
+libm_hidden_proto(cos)
 /* Sine of X.  */
 __MATHCALL (sin,, (_Mdouble_ __x));
+libm_hidden_proto(sin)
 /* Tangent of X.  */
 __MATHCALL (tan,, (_Mdouble_ __x));
+libm_hidden_proto(tan)
 
 /* Hyperbolic functions.  */
 
 /* Hyperbolic cosine of X.  */
 __MATHCALL (cosh,, (_Mdouble_ __x));
+libm_hidden_proto(cosh)
 /* Hyperbolic sine of X.  */
 __MATHCALL (sinh,, (_Mdouble_ __x));
+libm_hidden_proto(sinh)
 /* Hyperbolic tangent of X.  */
 __MATHCALL (tanh,, (_Mdouble_ __x));
+libm_hidden_proto(tanh)
 _Mdouble_END_NAMESPACE
 
 #if 0 /*def __USE_GNU*/
 /* Cosine and sine of X.  */
 __MATHDECL (void,sincos,,
            (_Mdouble_ __x, _Mdouble_ *__sinx, _Mdouble_ *__cosx));
+libm_hidden_proto(sincos)
 #endif
 
 #if defined __USE_MISC || defined __USE_XOPEN_EXTENDED || defined __USE_ISOC99
 __BEGIN_NAMESPACE_C99
 /* Hyperbolic arc cosine of X.  */
 __MATHCALL (acosh,, (_Mdouble_ __x));
+libm_hidden_proto(acosh)
 /* Hyperbolic arc sine of X.  */
 __MATHCALL (asinh,, (_Mdouble_ __x));
+libm_hidden_proto(asinh)
 /* Hyperbolic arc tangent of X.  */
 __MATHCALL (atanh,, (_Mdouble_ __x));
+libm_hidden_proto(atanh)
 __END_NAMESPACE_C99
 #endif
 
@@ -99,40 +113,51 @@ __END_NAMESPACE_C99
 _Mdouble_BEGIN_NAMESPACE
 /* Exponential function of X.  */
 __MATHCALL (exp,, (_Mdouble_ __x));
+libm_hidden_proto(exp)
 
 /* Break VALUE into a normalized fraction and an integral power of 2.  */
 __MATHCALL (frexp,, (_Mdouble_ __x, int *__exponent));
+libm_hidden_proto(frexp)
 
 /* X times (two to the EXP power).  */
 __MATHCALL (ldexp,, (_Mdouble_ __x, int __exponent));
+libm_hidden_proto(ldexp)
 
 /* Natural logarithm of X.  */
 __MATHCALL (log,, (_Mdouble_ __x));
+libm_hidden_proto(log)
 
 /* Base-ten logarithm of X.  */
 __MATHCALL (log10,, (_Mdouble_ __x));
+libm_hidden_proto(log10)
 
 /* Break VALUE into integral and fractional parts.  */
 __MATHCALL (modf,, (_Mdouble_ __x, _Mdouble_ *__iptr));
+libm_hidden_proto(modf)
 _Mdouble_END_NAMESPACE
 
 #if 0 /*def __USE_GNU*/
 /* A function missing in all standards: compute exponent to base ten.  */
 __MATHCALL (exp10,, (_Mdouble_ __x));
+libm_hidden_proto(exp10)
 /* Another name occasionally used.  */
 __MATHCALL (pow10,, (_Mdouble_ __x));
+libm_hidden_proto(pow10)
 #endif
 
 #if defined __USE_MISC || defined __USE_XOPEN_EXTENDED || defined __USE_ISOC99
 __BEGIN_NAMESPACE_C99
 /* Return exp(X) - 1.  */
 __MATHCALL (expm1,, (_Mdouble_ __x));
+libm_hidden_proto(expm1)
 
 /* Return log(1 + X).  */
 __MATHCALL (log1p,, (_Mdouble_ __x));
+libm_hidden_proto(log1p)
 
 /* Return the base 2 signed integral exponent of X.  */
 __MATHCALL (logb,, (_Mdouble_ __x));
+libm_hidden_proto(logb)
 __END_NAMESPACE_C99
 #endif
 
@@ -140,9 +165,11 @@ __END_NAMESPACE_C99
 __BEGIN_NAMESPACE_C99
 /* Compute base-2 exponential of X.  */
 __MATHCALL (exp2,, (_Mdouble_ __x));
+libm_hidden_proto(exp2)
 
 /* Compute base-2 logarithm of X.  */
 __MATHCALL (log2,, (_Mdouble_ __x));
+libm_hidden_proto(log2)
 __END_NAMESPACE_C99
 #endif
 
@@ -152,15 +179,18 @@ __END_NAMESPACE_C99
 _Mdouble_BEGIN_NAMESPACE
 /* Return X to the Y power.  */
 __MATHCALL (pow,, (_Mdouble_ __x, _Mdouble_ __y));
+libm_hidden_proto(pow)
 
 /* Return the square root of X.  */
 __MATHCALL (sqrt,, (_Mdouble_ __x));
+libm_hidden_proto(sqrt)
 _Mdouble_END_NAMESPACE
 
 #if defined __USE_MISC || defined __USE_XOPEN || defined __USE_ISOC99
 __BEGIN_NAMESPACE_C99
 /* Return `sqrt(X*X + Y*Y)'.  */
 __MATHCALL (hypot,, (_Mdouble_ __x, _Mdouble_ __y));
+libm_hidden_proto(hypot)
 __END_NAMESPACE_C99
 #endif
 
@@ -168,6 +198,7 @@ __END_NAMESPACE_C99
 __BEGIN_NAMESPACE_C99
 /* Return the cube root of X.  */
 __MATHCALL (cbrt,, (_Mdouble_ __x));
+libm_hidden_proto(cbrt)
 __END_NAMESPACE_C99
 #endif
 
@@ -177,45 +208,56 @@ __END_NAMESPACE_C99
 _Mdouble_BEGIN_NAMESPACE
 /* Smallest integral value not less than X.  */
 __MATHCALLX (ceil,, (_Mdouble_ __x), (__const__));
+libm_hidden_proto(ceil)
 
 /* Absolute value of X.  */
 __MATHCALLX (fabs,, (_Mdouble_ __x), (__const__));
+libm_hidden_proto(fabs)
 
 /* Largest integer not greater than X.  */
 __MATHCALLX (floor,, (_Mdouble_ __x), (__const__));
+libm_hidden_proto(floor)
 
 /* Floating-point modulo remainder of X/Y.  */
 __MATHCALL (fmod,, (_Mdouble_ __x, _Mdouble_ __y));
+libm_hidden_proto(fmod)
 
 
 /* Return 0 if VALUE is finite or NaN, +1 if it
    is +Infinity, -1 if it is -Infinity.  */
 __MATHDECL_1 (int,__isinf,, (_Mdouble_ __value)) __attribute__ ((__const__));
+libm_hidden_proto(__isinf)
 
 /* Return nonzero if VALUE is finite and not NaN.  */
 __MATHDECL_1 (int,__finite,, (_Mdouble_ __value)) __attribute__ ((__const__));
+libm_hidden_proto(__finite)
 _Mdouble_END_NAMESPACE
 
 #ifdef __USE_MISC
 /* Return 0 if VALUE is finite or NaN, +1 if it
    is +Infinity, -1 if it is -Infinity.  */
 __MATHDECL_1 (int,isinf,, (_Mdouble_ __value)) __attribute__ ((__const__));
+libm_hidden_proto(isinf)
 
 /* Return nonzero if VALUE is finite and not NaN.  */
 __MATHDECL_1 (int,finite,, (_Mdouble_ __value)) __attribute__ ((__const__));
+libm_hidden_proto(finite)
 
 /* Return the remainder of X/Y.  */
 __MATHCALL (drem,, (_Mdouble_ __x, _Mdouble_ __y));
+libm_hidden_proto(drem)
 
 
 /* Return the fractional part of X after dividing out `ilogb (X)'.  */
 __MATHCALL (significand,, (_Mdouble_ __x));
+libm_hidden_proto(significand)
 #endif /* Use misc.  */
 
 #if defined __USE_MISC || defined __USE_ISOC99
 __BEGIN_NAMESPACE_C99
 /* Return X with its signed changed to Y's.  */
 __MATHCALLX (copysign,, (_Mdouble_ __x, _Mdouble_ __y), (__const__));
+libm_hidden_proto(copysign)
 __END_NAMESPACE_C99
 #endif
 
@@ -223,24 +265,33 @@ __END_NAMESPACE_C99
 __BEGIN_NAMESPACE_C99
 /* Return representation of NaN for double type.  */
 __MATHCALLX (nan,, (__const char *__tagb), (__const__));
+libm_hidden_proto(nan)
 __END_NAMESPACE_C99
 #endif
 
 
 /* Return nonzero if VALUE is not a number.  */
 __MATHDECL_1 (int,__isnan,, (_Mdouble_ __value)) __attribute__ ((__const__));
+libm_hidden_proto(__isnan)
 
 #if defined __USE_MISC || defined __USE_XOPEN
 /* Return nonzero if VALUE is not a number.  */
 __MATHDECL_1 (int,isnan,, (_Mdouble_ __value)) __attribute__ ((__const__));
+libm_hidden_proto(isnan)
 
 /* Bessel functions.  */
 __MATHCALL (j0,, (_Mdouble_));
+libm_hidden_proto(j0)
 __MATHCALL (j1,, (_Mdouble_));
+libm_hidden_proto(j1)
 __MATHCALL (jn,, (int, _Mdouble_));
+libm_hidden_proto(jn)
 __MATHCALL (y0,, (_Mdouble_));
+libm_hidden_proto(y0)
 __MATHCALL (y1,, (_Mdouble_));
+libm_hidden_proto(y1)
 __MATHCALL (yn,, (int, _Mdouble_));
+libm_hidden_proto(yn)
 #endif
 
 
@@ -248,8 +299,11 @@ __MATHCALL (yn,, (int, _Mdouble_));
 __BEGIN_NAMESPACE_C99
 /* Error and gamma functions.  */
 __MATHCALL (erf,, (_Mdouble_));
+libm_hidden_proto(erf)
 __MATHCALL (erfc,, (_Mdouble_));
+libm_hidden_proto(erfc)
 __MATHCALL (lgamma,, (_Mdouble_));
+libm_hidden_proto(lgamma)
 __END_NAMESPACE_C99
 #endif
 
@@ -257,12 +311,14 @@ __END_NAMESPACE_C99
 __BEGIN_NAMESPACE_C99
 /* True gamma function.  */
 __MATHCALL (tgamma,, (_Mdouble_));
+libm_hidden_proto(tgamma)
 __END_NAMESPACE_C99
 #endif
 
 #if defined __USE_MISC || defined __USE_XOPEN
 /* Obsolete alias for `lgamma'.  */
 __MATHCALL (gamma,, (_Mdouble_));
+libm_hidden_proto(gamma)
 #endif
 
 #ifdef __USE_MISC
@@ -270,6 +326,7 @@ __MATHCALL (gamma,, (_Mdouble_));
    `signgam'.  The reentrant version instead takes a pointer and stores
    the value through it.  */
 __MATHCALL (lgamma,_r, (_Mdouble_, int *__signgamp));
+libm_hidden_proto(lgamma_r)
 #endif
 
 
@@ -278,45 +335,56 @@ __BEGIN_NAMESPACE_C99
 /* Return the integer nearest X in the direction of the
    prevailing rounding mode.  */
 __MATHCALL (rint,, (_Mdouble_ __x));
+libm_hidden_proto(rint)
 
 /* Return X + epsilon if X < Y, X - epsilon if X > Y.  */
 __MATHCALLX (nextafter,, (_Mdouble_ __x, _Mdouble_ __y), (__const__));
+libm_hidden_proto(nextafter)
 # if defined __USE_ISOC99 && !defined __LDBL_COMPAT
 __MATHCALLX (nexttoward,, (_Mdouble_ __x, long double __y), (__const__));
+libm_hidden_proto(nexttoward)
 # endif
 
 /* Return the remainder of integer divison X / Y with infinite precision.  */
 __MATHCALL (remainder,, (_Mdouble_ __x, _Mdouble_ __y));
+libm_hidden_proto(remainder)
 
 # if defined __USE_MISC || defined __USE_ISOC99
 /* Return X times (2 to the Nth power).  */
 __MATHCALL (scalbn,, (_Mdouble_ __x, int __n));
+libm_hidden_proto(scalbn)
 # endif
 
 /* Return the binary exponent of X, which must be nonzero.  */
 __MATHDECL (int,ilogb,, (_Mdouble_ __x));
+libm_hidden_proto(ilogb)
 #endif
 
 #ifdef __USE_ISOC99
 /* Return X times (2 to the Nth power).  */
 __MATHCALL (scalbln,, (_Mdouble_ __x, long int __n));
+libm_hidden_proto(scalbln)
 
 /* Round X to integral value in floating-point format using current
    rounding direction, but do not raise inexact exception.  */
 __MATHCALL (nearbyint,, (_Mdouble_ __x));
+libm_hidden_proto(nearbyint)
 
 /* Round X to nearest integral value, rounding halfway cases away from
    zero.  */
 __MATHCALLX (round,, (_Mdouble_ __x), (__const__));
+libm_hidden_proto(round)
 
 /* Round X to the integral value in floating-point format nearest but
    not larger in magnitude.  */
 __MATHCALLX (trunc,, (_Mdouble_ __x), (__const__));
+libm_hidden_proto(trunc)
 
 /* Compute remainder of X and Y and put in *QUO a value with sign of x/y
    and magnitude congruent `mod 2^n' to the magnitude of the integral
    quotient x/y, with n >= 3.  */
 __MATHCALL (remquo,, (_Mdouble_ __x, _Mdouble_ __y, int *__quo));
+libm_hidden_proto(remquo)
 
 
 /* Conversion functions.  */
@@ -324,35 +392,45 @@ __MATHCALL (remquo,, (_Mdouble_ __x, _Mdouble_ __y, int *__quo));
 /* Round X to nearest integral value according to current rounding
    direction.  */
 __MATHDECL (long int,lrint,, (_Mdouble_ __x));
+libm_hidden_proto(lrint)
 __MATHDECL (long long int,llrint,, (_Mdouble_ __x));
+libm_hidden_proto(llrint)
 
 /* Round X to nearest integral value, rounding halfway cases away from
    zero.  */
 __MATHDECL (long int,lround,, (_Mdouble_ __x));
+libm_hidden_proto(lround)
 __MATHDECL (long long int,llround,, (_Mdouble_ __x));
+libm_hidden_proto(llround)
 
 
 /* Return positive difference between X and Y.  */
 __MATHCALL (fdim,, (_Mdouble_ __x, _Mdouble_ __y));
+libm_hidden_proto(fdim)
 
 /* Return maximum numeric value from X and Y.  */
 __MATHCALL (fmax,, (_Mdouble_ __x, _Mdouble_ __y));
+libm_hidden_proto(fmax)
 
 /* Return minimum numeric value from X and Y.  */
 __MATHCALL (fmin,, (_Mdouble_ __x, _Mdouble_ __y));
+libm_hidden_proto(fmin)
 
 
 /* Classify given number.  */
 __MATHDECL_1 (int, __fpclassify,, (_Mdouble_ __value))
      __attribute__ ((__const__));
+libm_hidden_proto(__fpclassify)
 
 /* Test for negative number.  */
 __MATHDECL_1 (int, __signbit,, (_Mdouble_ __value))
      __attribute__ ((__const__));
+libm_hidden_proto(__signbit)
 
 
 /* Multiply-add function computed as a ternary operation.  */
 __MATHCALL (fma,, (_Mdouble_ __x, _Mdouble_ __y, _Mdouble_ __z));
+libm_hidden_proto(fma)
 #endif /* Use ISO C99.  */
 
 #if defined __USE_MISC || defined __USE_XOPEN_EXTENDED || defined __USE_ISOC99
@@ -362,4 +440,5 @@ __END_NAMESPACE_C99
 #if defined __USE_MISC || defined __USE_XOPEN_EXTENDED
 /* Return X times (2 to the Nth power).  */
 __MATHCALL (scalb,, (_Mdouble_ __x, _Mdouble_ __n));
+libm_hidden_proto(scalb)
 #endif

diff --git a/libm/Makefile.in b/libm/Makefile.in
index 0d06ec7..98e3aaf 100644 (file)
--- a/libm/Makefile.in
+++ b/libm/Makefile.in
@@ -66,14 +66,15 @@ libm_CSRC := \
        s_log1p.c s_logb.c s_matherr.c s_modf.c s_nextafter.c s_round.c \
        s_rint.c s_scalbn.c s_signgam.c s_significand.c s_sin.c s_tan.c \
        s_tanh.c s_trunc.c w_acos.c w_acosh.c w_asin.c w_atan2.c w_atanh.c \
-       w_cabs.c w_cosh.c w_drem.c w_exp.c w_fmod.c w_gamma.c w_gamma_r.c \
+       w_cabs.c w_cosh.c w_drem.c w_exp.c w_fmod.c w_gamma.c \
        w_hypot.c w_j0.c w_j1.c w_jn.c w_lgamma.c w_lgamma_r.c \
        w_log.c w_log10.c w_pow.c w_remainder.c w_scalb.c w_sinh.c \
        w_sqrt.c nan.c carg.c s_llrint.c \
        s_fpclassify.c s_fpclassifyf.c s_signbit.c s_signbitf.c \
-       s_isnan.c s_isnanf.c s_isinf.c s_isinff.c \
+       s_isnan.c s_isnanf.c s_isinf.c s_isinff.c s_finitef.c \
        s_fdim.c s_fma.c s_fmax.c s_fmin.c s_nearbyint.c \
        s_remquo.c s_scalbln.c w_exp2.c w_tgamma.c
+# REMOVED: w_gamma_r.c
 FL_MOBJ := \
        acosf.o acoshf.o asinf.o asinhf.o atan2f.o atanf.o atanhf.o cbrtf.o \
        ceilf.o copysignf.o cosf.o coshf.o erfcf.o erff.o exp2f.o expf.o \

diff --git a/libm/carg.c b/libm/carg.c
index 7641d5d..7b290b0 100644 (file)
--- a/libm/carg.c
+++ b/libm/carg.c
@@ -21,13 +21,9 @@
 #include <complex.h>
 #include <math.h>
 
-libm_hidden_proto(atan2)
-libm_hidden_proto(carg)
-
 double
 carg (__complex__ double x)
 {
   return atan2 (__imag__ x, __real__ x);
 }
-
 libm_hidden_def(carg)

diff --git a/libm/e_acosh.c b/libm/e_acosh.c
index d5e510e..3d0a038 100644 (file)
--- a/libm/e_acosh.c
+++ b/libm/e_acosh.c
@@ -31,8 +31,6 @@ static char rcsid[] = "$NetBSD: e_acosh.c,v 1.9 1995/05/12 04:57:18 jtc Exp $";
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto(log1p)
-libm_hidden_proto(sqrt)
 
 #ifdef __STDC__
 static const double

diff --git a/libm/e_asin.c b/libm/e_asin.c
index 8a63977..ce8372c 100644 (file)
--- a/libm/e_asin.c
+++ b/libm/e_asin.c
@@ -48,7 +48,6 @@ static char rcsid[] = "$NetBSD: e_asin.c,v 1.9 1995/05/12 04:57:22 jtc Exp $";
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto(fabs)
 
 #ifdef __STDC__
 static const double

diff --git a/libm/e_atan2.c b/libm/e_atan2.c
index 7bb38da..407a129 100644 (file)
--- a/libm/e_atan2.c
+++ b/libm/e_atan2.c
@@ -44,8 +44,6 @@ static char rcsid[] = "$NetBSD: e_atan2.c,v 1.8 1995/05/10 20:44:51 jtc Exp $";
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto(atan)
-libm_hidden_proto(fabs)
 
 #ifdef __STDC__
 static const double

diff --git a/libm/e_atanh.c b/libm/e_atanh.c
index cfbe02b..c6c47bc 100644 (file)
--- a/libm/e_atanh.c
+++ b/libm/e_atanh.c
@@ -35,7 +35,6 @@ static char rcsid[] = "$NetBSD: e_atanh.c,v 1.8 1995/05/10 20:44:55 jtc Exp $";
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto(log1p)
 
 #ifdef __STDC__
 static const double one = 1.0, huge = 1e300;

diff --git a/libm/e_cosh.c b/libm/e_cosh.c
index aa25eef..a7e5e44 100644 (file)
--- a/libm/e_cosh.c
+++ b/libm/e_cosh.c
@@ -38,8 +38,6 @@ static char rcsid[] = "$NetBSD: e_cosh.c,v 1.7 1995/05/10 20:44:58 jtc Exp $";
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto(expm1)
-libm_hidden_proto(fabs)
 
 #ifdef __STDC__
 static const double one = 1.0, half=0.5, huge = 1.0e300;

diff --git a/libm/e_gamma.c b/libm/e_gamma.c
index 296ebb8..bb1bb91 100644 (file)
--- a/libm/e_gamma.c
+++ b/libm/e_gamma.c
@@ -22,7 +22,6 @@
 #include "math_private.h"
 
 libm_hidden_proto(signgam)
-
 #ifdef __STDC__
        //__private_extern__
        double attribute_hidden __ieee754_gamma(double x)

diff --git a/libm/e_j0.c b/libm/e_j0.c
index 74defac..7778788 100644 (file)
--- a/libm/e_j0.c
+++ b/libm/e_j0.c
@@ -62,10 +62,6 @@ static char rcsid[] = "$NetBSD: e_j0.c,v 1.8 1995/05/10 20:45:23 jtc Exp $";
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto(sin)
-libm_hidden_proto(cos)
-libm_hidden_proto(sqrt)
-libm_hidden_proto(fabs)
 
 #ifdef __STDC__
 static double pzero(double), qzero(double);

diff --git a/libm/e_j1.c b/libm/e_j1.c
index bb3e650..4b4274a 100644 (file)
--- a/libm/e_j1.c
+++ b/libm/e_j1.c
@@ -62,10 +62,6 @@ static char rcsid[] = "$NetBSD: e_j1.c,v 1.8 1995/05/10 20:45:27 jtc Exp $";
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto(sin)
-libm_hidden_proto(cos)
-libm_hidden_proto(sqrt)
-libm_hidden_proto(fabs)
 
 #ifdef __STDC__
 static double pone(double), qone(double);

diff --git a/libm/e_jn.c b/libm/e_jn.c
index 53c6396..7771eaf 100644 (file)
--- a/libm/e_jn.c
+++ b/libm/e_jn.c
@@ -43,10 +43,6 @@ static char rcsid[] = "$NetBSD: e_jn.c,v 1.9 1995/05/10 20:45:34 jtc Exp $";
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto(sin)
-libm_hidden_proto(cos)
-libm_hidden_proto(sqrt)
-libm_hidden_proto(fabs)
 
 #ifdef __STDC__
 static const double

diff --git a/libm/e_lgamma.c b/libm/e_lgamma.c
index 4dce71c..af45d11 100644 (file)
--- a/libm/e_lgamma.c
+++ b/libm/e_lgamma.c
@@ -22,7 +22,6 @@
 #include "math_private.h"
 
 libm_hidden_proto(signgam)
-
 #ifdef __STDC__
        //__private_extern__
        double attribute_hidden __ieee754_lgamma(double x)

diff --git a/libm/e_lgamma_r.c b/libm/e_lgamma_r.c
index 5e1b373..15b3583 100644 (file)
--- a/libm/e_lgamma_r.c
+++ b/libm/e_lgamma_r.c
@@ -84,9 +84,6 @@ static char rcsid[] = "$NetBSD: e_lgamma_r.c,v 1.7 1995/05/10 20:45:42 jtc Exp $
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto(floor)
-libm_hidden_proto(fabs)
-
 #ifdef __STDC__
 static const double
 #else

diff --git a/libm/e_pow.c b/libm/e_pow.c
index 675149e..53ec813 100644 (file)
--- a/libm/e_pow.c
+++ b/libm/e_pow.c
@@ -62,8 +62,6 @@ static char rcsid[] = "$NetBSD: e_pow.c,v 1.9 1995/05/12 04:57:32 jtc Exp $";
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto(scalbn)
-libm_hidden_proto(fabs)
 
 #ifdef __STDC__
 static const double

diff --git a/libm/e_rem_pio2.c b/libm/e_rem_pio2.c
index 97ce7ba..92deaa3 100644 (file)
--- a/libm/e_rem_pio2.c
+++ b/libm/e_rem_pio2.c
@@ -23,7 +23,6 @@ static char rcsid[] = "$NetBSD: e_rem_pio2.c,v 1.8 1995/05/10 20:46:02 jtc Exp $
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto(fabs)
 
 /*
  * Table of constants for 2/pi, 396 Hex digits (476 decimal) of 2/pi

diff --git a/libm/e_remainder.c b/libm/e_remainder.c
index 17047b3..95eee74 100644 (file)
--- a/libm/e_remainder.c
+++ b/libm/e_remainder.c
@@ -26,7 +26,6 @@ static char rcsid[] = "$NetBSD: e_remainder.c,v 1.8 1995/05/10 20:46:05 jtc Exp
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto(fabs)
 
 #ifdef __STDC__
 static const double zero = 0.0;

diff --git a/libm/e_scalb.c b/libm/e_scalb.c
index 772d955..2f0dba1 100644 (file)
--- a/libm/e_scalb.c
+++ b/libm/e_scalb.c
@@ -23,10 +23,6 @@ static char rcsid[] = "$NetBSD: e_scalb.c,v 1.6 1995/05/10 20:46:09 jtc Exp $";
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto(scalbn)
-libm_hidden_proto(finite)
-libm_hidden_proto(rint)
-libm_hidden_proto(__isnan)
 
 #ifdef _SCALB_INT
 #ifdef __STDC__

diff --git a/libm/e_sinh.c b/libm/e_sinh.c
index e8452c2..ec2b1d8 100644 (file)
--- a/libm/e_sinh.c
+++ b/libm/e_sinh.c
@@ -35,8 +35,6 @@ static char rcsid[] = "$NetBSD: e_sinh.c,v 1.7 1995/05/10 20:46:13 jtc Exp $";
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto(expm1)
-libm_hidden_proto(fabs)
 
 #ifdef __STDC__
 static const double one = 1.0, shuge = 1.0e307;

diff --git a/libm/float_wrappers.c b/libm/float_wrappers.c
index cd0ae18..58d3926 100644 (file)
--- a/libm/float_wrappers.c
+++ b/libm/float_wrappers.c
@@ -75,7 +75,6 @@ float       tanhf(float);
 
 
 #ifdef L_acosf
-libm_hidden_proto(acos)
 float acosf (float x)
 {
        return (float) acos( (double)x );
@@ -84,7 +83,6 @@ float acosf (float x)
 
 
 #ifdef L_acoshf
-libm_hidden_proto(acosh)
 float acoshf (float x)
 {
        return (float) acosh( (double)x );
@@ -93,7 +91,6 @@ float acoshf (float x)
 
 
 #ifdef L_asinf
-libm_hidden_proto(asin)
 float asinf (float x)
 {
        return (float) asin( (double)x );
@@ -102,7 +99,6 @@ float asinf (float x)
 
 
 #ifdef L_asinhf
-libm_hidden_proto(asinh)
 float asinhf (float x)
 {
        return (float) asinh( (double)x );
@@ -111,7 +107,6 @@ float asinhf (float x)
 
 
 #ifdef L_atan2f
-libm_hidden_proto(atan2)
 float atan2f (float x, float y)
 {
        return (float) atan2( (double)x, (double)y );
@@ -120,7 +115,6 @@ float atan2f (float x, float y)
 
 
 #ifdef L_atanf
-libm_hidden_proto(atan)
 float atanf (float x)
 {
        return (float) atan( (double)x );
@@ -129,7 +123,6 @@ float atanf (float x)
 
 
 #ifdef L_atanhf
-libm_hidden_proto(atanh)
 float atanhf (float x)
 {
        return (float) atanh( (double)x );
@@ -138,7 +131,6 @@ float atanhf (float x)
 
 
 #ifdef L_cargf
-libm_hidden_proto(carg)
 float cargf (float complex x)
 {
        return (float) carg( (double)x );
@@ -147,7 +139,6 @@ float cargf (float complex x)
 
 
 #ifdef L_cbrtf
-libm_hidden_proto(cbrt)
 float cbrtf (float x)
 {
        return (float) cbrt( (double)x );
@@ -156,7 +147,6 @@ float cbrtf (float x)
 
 
 #ifdef L_ceilf
-libm_hidden_proto(ceil)
 float ceilf (float x)
 {
        return (float) ceil( (double)x );
@@ -165,7 +155,6 @@ float ceilf (float x)
 
 
 #ifdef L_copysignf
-libm_hidden_proto(copysign)
 float copysignf (float x, float y)
 {
        return (float) copysign( (double)x, (double)y );
@@ -174,7 +163,6 @@ float copysignf (float x, float y)
 
 
 #ifdef L_cosf
-libm_hidden_proto(cos)
 float cosf (float x)
 {
        return (float) cos( (double)x );
@@ -183,7 +171,6 @@ float cosf (float x)
 
 
 #ifdef L_coshf
-libm_hidden_proto(cosh)
 float coshf (float x)
 {
        return (float) cosh( (double)x );
@@ -192,7 +179,6 @@ float coshf (float x)
 
 
 #ifdef L_erfcf
-libm_hidden_proto(erfc)
 float erfcf (float x)
 {
        return (float) erfc( (double)x );
@@ -201,7 +187,6 @@ float erfcf (float x)
 
 
 #ifdef L_erff
-libm_hidden_proto(erf)
 float erff (float x)
 {
        return (float) erf( (double)x );
@@ -210,7 +195,6 @@ float erff (float x)
 
 
 #ifdef L_exp2f
-libm_hidden_proto(exp2)
 float exp2f (float x)
 {
        return (float) exp2( (double)x );
@@ -219,7 +203,6 @@ float exp2f (float x)
 
 
 #ifdef L_expf
-libm_hidden_proto(exp)
 float expf (float x)
 {
        return (float) exp( (double)x );
@@ -228,7 +211,6 @@ float expf (float x)
 
 
 #ifdef L_expm1f
-libm_hidden_proto(expm1)
 float expm1f (float x)
 {
        return (float) expm1( (double)x );
@@ -237,7 +219,6 @@ float expm1f (float x)
 
 
 #ifdef L_fabsf
-libm_hidden_proto(fabs)
 float fabsf (float x)
 {
        return (float) fabs( (double)x );
@@ -246,7 +227,6 @@ float fabsf (float x)
 
 
 #ifdef L_fdimf
-libm_hidden_proto(fdim)
 float fdimf (float x, float y)
 {
        return (float) fdim( (double)x, (double)y );
@@ -255,7 +235,6 @@ float fdimf (float x, float y)
 
 
 #ifdef L_floorf
-libm_hidden_proto(floor)
 float floorf (float x)
 {
        return (float) floor( (double)x );
@@ -264,7 +243,6 @@ float floorf (float x)
 
 
 #ifdef L_fmaf
-libm_hidden_proto(fma)
 float fmaf (float x, float y, float z)
 {
        return (float) fma( (double)x, (double)y, (double)z );
@@ -273,7 +251,6 @@ float fmaf (float x, float y, float z)
 
 
 #ifdef L_fmaxf
-libm_hidden_proto(fmax)
 float fmaxf (float x, float y)
 {
        return (float) fmax( (double)x, (double)y );
@@ -282,7 +259,6 @@ float fmaxf (float x, float y)
 
 
 #ifdef L_fminf
-libm_hidden_proto(fmin)
 float fminf (float x, float y)
 {
        return (float) fmin( (double)x, (double)y );
@@ -291,7 +267,6 @@ float fminf (float x, float y)
 
 
 #ifdef L_fmodf
-libm_hidden_proto(fmod)
 float fmodf (float x, float y)
 {
        return (float) fmod( (double)x, (double)y );
@@ -300,7 +275,6 @@ float fmodf (float x, float y)
 
 
 #ifdef L_frexpf
-libm_hidden_proto(frexp)
 float frexpf (float x, int *_exp)
 {
        return (float) frexp( (double)x, _exp );
@@ -309,7 +283,6 @@ float frexpf (float x, int *_exp)
 
 
 #ifdef L_hypotf
-libm_hidden_proto(hypot)
 float hypotf (float x, float y)
 {
        return (float) hypot( (double)x, (double)y );
@@ -318,7 +291,6 @@ float hypotf (float x, float y)
 
 
 #ifdef L_ilogbf
-libm_hidden_proto(ilogb)
 int ilogbf (float x)
 {
        return (int) ilogb( (double)x );
@@ -327,7 +299,6 @@ int ilogbf (float x)
 
 
 #ifdef L_ldexpf
-libm_hidden_proto(ldexp)
 float ldexpf (float x, int _exp)
 {
        return (float) ldexp( (double)x, _exp );
@@ -336,7 +307,6 @@ float ldexpf (float x, int _exp)
 
 
 #ifdef L_lgammaf
-libm_hidden_proto(lgamma)
 float lgammaf (float x)
 {
        return (float) lgamma( (double)x );
@@ -345,7 +315,6 @@ float lgammaf (float x)
 
 
 #ifdef L_llrintf
-libm_hidden_proto(llrint)
 long long llrintf (float x)
 {
        return (long long) llrint( (double)x );
@@ -354,7 +323,6 @@ long long llrintf (float x)
 
 
 #ifdef L_llroundf
-libm_hidden_proto(llround)
 long long llroundf (float x)
 {
        return (long long) llround( (double)x );
@@ -363,7 +331,6 @@ long long llroundf (float x)
 
 
 #ifdef L_log10f
-libm_hidden_proto(log10)
 float log10f (float x)
 {
        return (float) log10( (double)x );
@@ -372,7 +339,6 @@ float log10f (float x)
 
 
 #ifdef L_log1pf
-libm_hidden_proto(log1p)
 float log1pf (float x)
 {
        return (float) log1p( (double)x );
@@ -381,7 +347,6 @@ float log1pf (float x)
 
 
 #ifdef L_log2f
-libm_hidden_proto(log2)
 float log2f (float x)
 {
        return (float) log2( (double)x );
@@ -390,7 +355,6 @@ float log2f (float x)
 
 
 #ifdef L_logbf
-libm_hidden_proto(logb)
 float logbf (float x)
 {
        return (float) logb( (double)x );
@@ -399,7 +363,6 @@ float logbf (float x)
 
 
 #ifdef L_logf
-libm_hidden_proto(log)
 float logf (float x)
 {
        return (float) log( (double)x );
@@ -408,7 +371,6 @@ float logf (float x)
 
 
 #ifdef L_lrintf
-libm_hidden_proto(lrint)
 long lrintf (float x)
 {
        return (long) lrint( (double)x );
@@ -417,7 +379,6 @@ long lrintf (float x)
 
 
 #ifdef L_lroundf
-libm_hidden_proto(lround)
 long lroundf (float x)
 {
        return (long) lround( (double)x );
@@ -426,7 +387,6 @@ long lroundf (float x)
 
 
 #ifdef L_modff
-libm_hidden_proto(modf)
 float modff (float x, float *iptr)
 {
        double y, result;
@@ -439,7 +399,6 @@ float modff (float x, float *iptr)
 
 
 #ifdef L_nearbyintf
-libm_hidden_proto(nearbyint)
 float nearbyintf (float x)
 {
        return (float) nearbyint( (double)x );
@@ -448,7 +407,6 @@ float nearbyintf (float x)
 
 
 #ifdef L_nextafterf
-libm_hidden_proto(nextafter)
 float nextafterf (float x, float y)
 {
        return (float) nextafter( (double)x, (double)y );
@@ -457,7 +415,6 @@ float nextafterf (float x, float y)
 
 
 #ifdef L_nexttowardf
-libm_hidden_proto(nexttoward)
 float nexttowardf (float x, long double y)
 {
        return (float) nexttoward( (double)x, (double)y );
@@ -466,7 +423,6 @@ float nexttowardf (float x, long double y)
 
 
 #ifdef L_powf
-libm_hidden_proto(pow)
 float powf (float x, float y)
 {
        return (float) pow( (double)x, (double)y );
@@ -475,7 +431,6 @@ float powf (float x, float y)
 
 
 #ifdef L_remainderf
-libm_hidden_proto(remainder)
 float remainderf (float x, float y)
 {
        return (float) remainder( (double)x, (double)y );
@@ -484,7 +439,6 @@ float remainderf (float x, float y)
 
 
 #ifdef L_remquof
-libm_hidden_proto(remquo)
 float remquof (float x, float y, int *quo)
 {
        return (float) remquo( (double)x, (double)y, quo );
@@ -493,7 +447,6 @@ float remquof (float x, float y, int *quo)
 
 
 #ifdef L_rintf
-libm_hidden_proto(rint)
 float rintf (float x)
 {
        return (float) rint( (double)x );
@@ -502,7 +455,6 @@ float rintf (float x)
 
 
 #ifdef L_roundf
-libm_hidden_proto(round)
 float roundf (float x)
 {
        return (float) round( (double)x );
@@ -511,7 +463,6 @@ float roundf (float x)
 
 
 #ifdef L_scalblnf
-libm_hidden_proto(scalbln)
 float scalblnf (float x, long _exp)
 {
        return (float) scalbln( (double)x, _exp );
@@ -520,7 +471,6 @@ float scalblnf (float x, long _exp)
 
 
 #ifdef L_scalbnf
-libm_hidden_proto(scalbn)
 float scalbnf (float x, int _exp)
 {
        return (float) scalbn( (double)x, _exp );
@@ -529,7 +479,6 @@ float scalbnf (float x, int _exp)
 
 
 #ifdef L_sinf
-libm_hidden_proto(sin)
 float sinf (float x)
 {
        return (float) sin( (double)x );
@@ -538,7 +487,6 @@ float sinf (float x)
 
 
 #ifdef L_sinhf
-libm_hidden_proto(sinh)
 float sinhf (float x)
 {
        return (float) sinh( (double)x );
@@ -547,7 +495,6 @@ float sinhf (float x)
 
 
 #ifdef L_sqrtf
-libm_hidden_proto(sqrt)
 float sqrtf (float x)
 {
        return (float) sqrt( (double)x );
@@ -556,7 +503,6 @@ float sqrtf (float x)
 
 
 #ifdef L_tanf
-libm_hidden_proto(tan)
 float tanf (float x)
 {
        return (float) tan( (double)x );
@@ -565,7 +511,6 @@ float tanf (float x)
 
 
 #ifdef L_tanhf
-libm_hidden_proto(tanh)
 float tanhf (float x)
 {
        return (float) tanh( (double)x );
@@ -574,7 +519,6 @@ float tanhf (float x)
 
 
 #ifdef L_tgammaf
-libm_hidden_proto(tgamma)
 float tgammaf (float x)
 {
        return (float) tgamma( (double)x );
@@ -583,7 +527,6 @@ float tgammaf (float x)
 
 
 #ifdef L_truncf
-libm_hidden_proto(trunc)
 float truncf (float x)
 {
        return (float) trunc( (double)x );

diff --git a/libm/k_rem_pio2.c b/libm/k_rem_pio2.c
index e3b9bc1..8d1388d 100644 (file)
--- a/libm/k_rem_pio2.c
+++ b/libm/k_rem_pio2.c
@@ -133,8 +133,6 @@ static char rcsid[] = "$NetBSD: k_rem_pio2.c,v 1.7 1995/05/10 20:46:25 jtc Exp $
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto(scalbn)
-libm_hidden_proto(floor)
 
 #ifdef __STDC__
 static const int init_jk[] = {2,3,4,6}; /* initial value for jk */

diff --git a/libm/k_standard.c b/libm/k_standard.c
index 4df1898..ed8062c 100644 (file)
--- a/libm/k_standard.c
+++ b/libm/k_standard.c
@@ -20,9 +20,6 @@ static char rcsid[] = "$NetBSD: k_standard.c,v 1.6 1995/05/10 20:46:35 jtc Exp $
 
 #ifndef _IEEE_LIBM
 
-libm_hidden_proto(copysign)
-libm_hidden_proto(matherr)
-libm_hidden_proto(rint)
 
 #ifndef _USE_WRITE
 #include <stdio.h>                     /* fputs(), stderr */

diff --git a/libm/k_tan.c b/libm/k_tan.c
index 2ba4644..95ec151 100644 (file)
--- a/libm/k_tan.c
+++ b/libm/k_tan.c
@@ -51,7 +51,6 @@ static char rcsid[] = "$NetBSD: k_tan.c,v 1.8 1995/05/10 20:46:37 jtc Exp $";
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto(fabs)
 
 #ifdef __STDC__
 static const double

diff --git a/libm/nan.c b/libm/nan.c
index 16e5c17..662a25d 100644 (file)
--- a/libm/nan.c
+++ b/libm/nan.c
@@ -31,7 +31,9 @@ double nan (const char *tagp)
        }
        return NAN;
 }
+libm_hidden_def(nan)
 
+libm_hidden_proto(nanf)
 float nanf (const char *tagp)
 {
        if (tagp[0] != '\0') {
@@ -41,8 +43,9 @@ float nanf (const char *tagp)
        }
        return NAN;
 }
+libm_hidden_def(nanf)
 
-#if 0
+#if defined __UCLIBC_HAS_LONG_DOUBLE_MATH__
 long double nanl (const char *tagp)
 {
        if (tagp[0] != '\0') {
@@ -52,4 +55,5 @@ long double nanl (const char *tagp)
        }
        return NAN;
 }
+libm_hidden_def(nanl)
 #endif

diff --git a/libm/s_asinh.c b/libm/s_asinh.c
index 9e9a056..efdee84 100644 (file)
--- a/libm/s_asinh.c
+++ b/libm/s_asinh.c
@@ -28,8 +28,6 @@ static char rcsid[] = "$NetBSD: s_asinh.c,v 1.9 1995/05/12 04:57:37 jtc Exp $";
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto(log1p)
-libm_hidden_proto(fabs)
 
 #ifdef __STDC__
 static const double
@@ -40,7 +38,6 @@ one =  1.00000000000000000000e+00, /* 0x3FF00000, 0x00000000 */
 ln2 =  6.93147180559945286227e-01, /* 0x3FE62E42, 0xFEFA39EF */
 huge=  1.00000000000000000000e+300;
 
-libm_hidden_proto(asinh)
 #ifdef __STDC__
        double asinh(double x)
 #else

diff --git a/libm/s_atan.c b/libm/s_atan.c
index 9c80355..7546ae9 100644 (file)
--- a/libm/s_atan.c
+++ b/libm/s_atan.c
@@ -37,7 +37,6 @@ static char rcsid[] = "$NetBSD: s_atan.c,v 1.8 1995/05/10 20:46:45 jtc Exp $";
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto(fabs)
 
 #ifdef __STDC__
 static const double atanhi[] = {
@@ -79,7 +78,6 @@ static double aT[] = {
   1.62858201153657823623e-02, /* 0x3F90AD3A, 0xE322DA11 */
 };
 
-libm_hidden_proto(atan)
 #ifdef __STDC__
        static const double
 #else

diff --git a/libm/s_cbrt.c b/libm/s_cbrt.c
index f463587..d47373e 100644 (file)
--- a/libm/s_cbrt.c
+++ b/libm/s_cbrt.c
@@ -39,7 +39,6 @@ E =  1.41428571428571436819e+00, /* 99/70     = 0x3FF6A0EA, 0x0EA0EA0F */
 F =  1.60714285714285720630e+00, /* 45/28     = 0x3FF9B6DB, 0x6DB6DB6E */
 G =  3.57142857142857150787e-01; /* 5/14      = 0x3FD6DB6D, 0xB6DB6DB7 */
 
-libm_hidden_proto(cbrt)
 #ifdef __STDC__
        double cbrt(double x)
 #else

diff --git a/libm/s_ceil.c b/libm/s_ceil.c
index 4683941..76be3ea 100644 (file)
--- a/libm/s_ceil.c
+++ b/libm/s_ceil.c
@@ -32,7 +32,6 @@ static const double huge = 1.0e300;
 static double huge = 1.0e300;
 #endif
 
-libm_hidden_proto(ceil)
 #ifdef __STDC__
        double ceil(double x)
 #else

diff --git a/libm/s_copysign.c b/libm/s_copysign.c
index 145a26c..cb2e0c9 100644 (file)
--- a/libm/s_copysign.c
+++ b/libm/s_copysign.c
@@ -23,7 +23,6 @@ static char rcsid[] = "$NetBSD: s_copysign.c,v 1.8 1995/05/10 20:46:57 jtc Exp $
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto(copysign)
 #ifdef __STDC__
        double copysign(double x, double y)
 #else

diff --git a/libm/s_cos.c b/libm/s_cos.c
index f05a8a5..74420fd 100644 (file)
--- a/libm/s_cos.c
+++ b/libm/s_cos.c
@@ -48,7 +48,6 @@ static char rcsid[] = "$NetBSD: s_cos.c,v 1.7 1995/05/10 20:47:02 jtc Exp $";
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto(cos)
 #ifdef __STDC__
        double cos(double x)
 #else

diff --git a/libm/s_erf.c b/libm/s_erf.c
index 0d24e21..0996a39 100644 (file)
--- a/libm/s_erf.c
+++ b/libm/s_erf.c
@@ -112,7 +112,6 @@ static char rcsid[] = "$NetBSD: s_erf.c,v 1.8 1995/05/10 20:47:05 jtc Exp $";
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto(fabs)
 
 #ifdef __STDC__
 static const double
@@ -193,7 +192,6 @@ sb5  =  2.55305040643316442583e+03, /* 0x40A3F219, 0xCEDF3BE6 */
 sb6  =  4.74528541206955367215e+02, /* 0x407DA874, 0xE79FE763 */
 sb7  = -2.24409524465858183362e+01; /* 0xC03670E2, 0x42712D62 */
 
-libm_hidden_proto(erf)
 #ifdef __STDC__
        double erf(double x)
 #else
@@ -251,7 +249,6 @@ libm_hidden_proto(erf)
 }
 libm_hidden_def(erf)
 
-libm_hidden_proto(erfc)
 #ifdef __STDC__
        double erfc(double x)
 #else

diff --git a/libm/s_expm1.c b/libm/s_expm1.c
index 2adeead..4eab15c 100644 (file)
--- a/libm/s_expm1.c
+++ b/libm/s_expm1.c
@@ -131,7 +131,6 @@ Q3  =  -7.93650757867487942473e-05, /* BF14CE19 9EAADBB7 */
 Q4  =   4.00821782732936239552e-06, /* 3ED0CFCA 86E65239 */
 Q5  =  -2.01099218183624371326e-07; /* BE8AFDB7 6E09C32D */
 
-libm_hidden_proto(expm1)
 #ifdef __STDC__
        double expm1(double x)
 #else

diff --git a/libm/s_fabs.c b/libm/s_fabs.c
index c1538ca..deb9138 100644 (file)
--- a/libm/s_fabs.c
+++ b/libm/s_fabs.c
@@ -21,7 +21,6 @@ static char rcsid[] = "$NetBSD: s_fabs.c,v 1.7 1995/05/10 20:47:13 jtc Exp $";
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto(fabs)
 #ifdef __STDC__
        double fabs(double x)
 #else

diff --git a/libm/s_fdim.c b/libm/s_fdim.c
index 6fdf3c2..98f140d 100644 (file)
--- a/libm/s_fdim.c
+++ b/libm/s_fdim.c
@@ -7,7 +7,6 @@
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto(fdim)
 #ifdef __STDC__
        double fdim(double x, double y)
 #else

diff --git a/libm/s_finite.c b/libm/s_finite.c
index 70b9aad..758da9a 100644 (file)
--- a/libm/s_finite.c
+++ b/libm/s_finite.c
@@ -10,10 +10,6 @@
  * ====================================================
  */
 
-#if defined(LIBM_SCCS) && !defined(lint)
-static char rcsid[] = "$NetBSD: s_finite.c,v 1.8 1995/05/10 20:47:17 jtc Exp $";
-#endif
-
 /*
  * finite(x) returns 1 is x is finite, else 0;
  * no branching!
@@ -22,17 +18,12 @@ static char rcsid[] = "$NetBSD: s_finite.c,v 1.8 1995/05/10 20:47:17 jtc Exp $";
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
-       int __finite(double x)
-#else
-       int __finite(x)
-       double x;
-#endif
+int __finite(double x)
 {
        int32_t hx;
        GET_HIGH_WORD(hx,x);
        return (int)((u_int32_t)((hx&0x7fffffff)-0x7ff00000)>>31);
 }
-libm_hidden_proto(finite)
-strong_alias(__finite,finite)
-libm_hidden_def(finite)
+libm_hidden_def(__finite)
+weak_alias(__finite,finite)
+libm_hidden_weak(finite)

diff --git a/libm/s_finitef.c b/libm/s_finitef.c
new file mode 100644 (file)
index 0000000..66eba8f
--- /dev/null
+++ b/libm/s_finitef.c
@@ -0,0 +1,32 @@
+/* s_finitef.c -- float version of s_finite.c.
+ * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
+ */
+
+/*
+ * ====================================================
+ * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
+ *
+ * Developed at SunPro, a Sun Microsystems, Inc. business.
+ * Permission to use, copy, modify, and distribute this
+ * software is freely granted, provided that this notice
+ * is preserved.
+ * ====================================================
+ */
+
+/*
+ * finitef(x) returns 1 is x is finite, else 0;
+ * no branching!
+ */
+
+#include "math.h"
+#include "math_private.h"
+
+libm_hidden_proto(__finitef)
+int __finitef(float x)
+{
+       int32_t ix;
+       GET_FLOAT_WORD(ix,x);
+       return (int)((u_int32_t)((ix&0x7fffffff)-0x7f800000)>>31);
+}
+libm_hidden_def(__finitef)
+strong_alias(__finitef,finitef)

diff --git a/libm/s_floor.c b/libm/s_floor.c
index 39b24c0..1eccfcd 100644 (file)
--- a/libm/s_floor.c
+++ b/libm/s_floor.c
@@ -32,7 +32,6 @@ static const double huge = 1.0e300;
 static double huge = 1.0e300;
 #endif
 
-libm_hidden_proto(floor)
 #ifdef __STDC__
        double floor(double x)
 #else

diff --git a/libm/s_fma.c b/libm/s_fma.c
index e5ff5a7..f9e8cf9 100644 (file)
--- a/libm/s_fma.c
+++ b/libm/s_fma.c
@@ -20,14 +20,11 @@
 
 #include <math.h>
 
+libm_hidden_proto(__fma)
 double
 __fma (double x, double y, double z)
 {
   return (x * y) + z;
 }
-weak_alias (__fma, fma)
-
-#ifdef NO_LONG_DOUBLE
-strong_alias (__fma, __fmal)
-weak_alias (__fmal, fmal)
-#endif
+libm_hidden_def(__fma)
+strong_alias (__fma, fma)

diff --git a/libm/s_fmax.c b/libm/s_fmax.c
index 61ec12d..e3cda76 100644 (file)
--- a/libm/s_fmax.c
+++ b/libm/s_fmax.c
@@ -7,7 +7,6 @@
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto(fmax)
 #ifdef __STDC__
        double fmax(double x, double y)
 #else

diff --git a/libm/s_fmin.c b/libm/s_fmin.c
index e30808d..4d2a0cf 100644 (file)
--- a/libm/s_fmin.c
+++ b/libm/s_fmin.c
@@ -7,7 +7,6 @@
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto(fmin)
 #ifdef __STDC__
        double fmin(double x, double y)
 #else

diff --git a/libm/s_fpclassify.c b/libm/s_fpclassify.c
index 6175f51..d2c4c82 100644 (file)
--- a/libm/s_fpclassify.c
+++ b/libm/s_fpclassify.c
@@ -22,7 +22,6 @@
 
 #include "math_private.h"
 
-libm_hidden_proto (__fpclassify)
 int
 __fpclassify (double x)
 {

diff --git a/libm/s_fpclassifyf.c b/libm/s_fpclassifyf.c
index 3a8fd56..602d8b2 100644 (file)
--- a/libm/s_fpclassifyf.c
+++ b/libm/s_fpclassifyf.c
@@ -19,10 +19,8 @@
    02111-1307 USA.  */
 
 #include <math.h>
-
 #include "math_private.h"
 
-
 libm_hidden_proto (__fpclassifyf)
 int
 __fpclassifyf (float x)

diff --git a/libm/s_frexp.c b/libm/s_frexp.c
index ed5e313..9ec4624 100644 (file)
--- a/libm/s_frexp.c
+++ b/libm/s_frexp.c
@@ -34,7 +34,6 @@ static double
 #endif
 two54 =  1.80143985094819840000e+16; /* 0x43500000, 0x00000000 */
 
-libm_hidden_proto(frexp)
 #ifdef __STDC__
        double frexp(double x, int *eptr)
 #else

diff --git a/libm/s_ilogb.c b/libm/s_ilogb.c
index db7c855..2617757 100644 (file)
--- a/libm/s_ilogb.c
+++ b/libm/s_ilogb.c
@@ -23,7 +23,6 @@ static char rcsid[] = "$NetBSD: s_ilogb.c,v 1.9 1995/05/10 20:47:28 jtc Exp $";
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto(ilogb)
 #ifdef __STDC__
        int ilogb(double x)
 #else

diff --git a/libm/s_isinf.c b/libm/s_isinf.c
index ce509f0..99a1cdf 100644 (file)
--- a/libm/s_isinf.c
+++ b/libm/s_isinf.c
@@ -4,10 +4,6 @@
  * Public domain.
  */
 
-#if defined(LIBM_SCCS) && !defined(lint)
-static char rcsid[] = "$NetBSD: s_isinf.c,v 1.3 1995/05/11 23:20:14 jtc Exp $";
-#endif
-
 /*
  * isinf(x) returns 1 is x is inf, -1 if x is -inf, else 0;
  * no branching!
@@ -16,7 +12,6 @@ static char rcsid[] = "$NetBSD: s_isinf.c,v 1.3 1995/05/11 23:20:14 jtc Exp $";
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto(__isinf)
 int
 __isinf (double x)
 {
@@ -26,9 +21,6 @@ __isinf (double x)
        lx |= -lx;
        return ~(lx >> 31) & (hx >> 30);
 }
-libm_hidden_def (__isinf)
+libm_hidden_def(__isinf)
 weak_alias (__isinf, isinf)
-#ifdef NO_LONG_DOUBLE
-strong_alias (__isinf, __isinfl)
-weak_alias (__isinf, isinfl)
-#endif
+libm_hidden_weak(isinf)

diff --git a/libm/s_isinff.c b/libm/s_isinff.c
index 33e2749..6827024 100644 (file)
--- a/libm/s_isinff.c
+++ b/libm/s_isinff.c
@@ -3,10 +3,6 @@
  * Public domain.
  */
 
-#if defined(LIBM_SCCS) && !defined(lint)
-static char rcsid[] = "$NetBSD: s_isinff.c,v 1.3 1995/05/11 23:20:21 jtc Exp $";
-#endif
-
 /*
  * isinff(x) returns 1 if x is inf, -1 if x is -inf, else 0;
  * no branching!
@@ -26,5 +22,5 @@ __isinff (float x)
        t |= -t;
        return ~(t >> 31) & (ix >> 30);
 }
-libm_hidden_def (__isinff)
-weak_alias (__isinff, isinff)
+libm_hidden_def(__isinff)
+strong_alias (__isinff, isinff)

diff --git a/libm/s_isnan.c b/libm/s_isnan.c
index 6263d1c..671c5cb 100644 (file)
--- a/libm/s_isnan.c
+++ b/libm/s_isnan.c
@@ -10,10 +10,6 @@
  * ====================================================
  */
 
-#if defined(LIBM_SCCS) && !defined(lint)
-static char rcsid[] = "$NetBSD: s_isnan.c,v 1.8 1995/05/10 20:47:36 jtc Exp $";
-#endif
-
 /*
  * isnan(x) returns 1 is x is nan, else 0;
  * no branching!
@@ -22,7 +18,6 @@ static char rcsid[] = "$NetBSD: s_isnan.c,v 1.8 1995/05/10 20:47:36 jtc Exp $";
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto (__isnan)
 #ifdef __STDC__
        int __isnan(double x)
 #else
@@ -37,9 +32,6 @@ libm_hidden_proto (__isnan)
        hx = 0x7ff00000 - hx;
        return (int)(((u_int32_t)hx)>>31);
 }
-libm_hidden_def (__isnan)
-weak_alias (__isnan, isnan)
-#ifdef NO_LONG_DOUBLE
-strong_alias (__isnan, __isnanl)
-weak_alias (__isnan, isnanl)
-#endif
+libm_hidden_def(__isnan)
+weak_alias(__isnan,isnan)
+libm_hidden_weak(isnan)

diff --git a/libm/s_isnanf.c b/libm/s_isnanf.c
index fa2d2fe..97c354d 100644 (file)
--- a/libm/s_isnanf.c
+++ b/libm/s_isnanf.c
@@ -13,10 +13,6 @@
  * ====================================================
  */
 
-#if defined(LIBM_SCCS) && !defined(lint)
-static char rcsid[] = "$NetBSD: s_isnanf.c,v 1.4 1995/05/10 20:47:38 jtc Exp $";
-#endif
-
 /*
  * isnanf(x) returns 1 is x is nan, else 0;
  * no branching!
@@ -26,12 +22,7 @@ static char rcsid[] = "$NetBSD: s_isnanf.c,v 1.4 1995/05/10 20:47:38 jtc Exp $";
 #include "math_private.h"
 
 libm_hidden_proto (__isnanf)
-#ifdef __STDC__
-       int __isnanf(float x)
-#else
-       int __isnanf(x)
-       float x;
-#endif
+int __isnanf(float x)
 {
        int32_t ix;
        GET_FLOAT_WORD(ix,x);

diff --git a/libm/s_ldexp.c b/libm/s_ldexp.c
index ffc268b..a065f5a 100644 (file)
--- a/libm/s_ldexp.c
+++ b/libm/s_ldexp.c
@@ -18,10 +18,7 @@ static char rcsid[] = "$NetBSD: s_ldexp.c,v 1.6 1995/05/10 20:47:40 jtc Exp $";
 #include "math_private.h"
 #include <errno.h>
 
-libm_hidden_proto(scalbn)
-libm_hidden_proto(finite)
 
-libm_hidden_proto(ldexp)
 #ifdef __STDC__
        double ldexp(double value, int exp)
 #else

diff --git a/libm/s_llrint.c b/libm/s_llrint.c
index 047290a..96e1495 100644 (file)
--- a/libm/s_llrint.c
+++ b/libm/s_llrint.c
@@ -29,8 +29,6 @@ static const double two52[2] =
  -4.50359962737049600000e+15, /* 0xC3300000, 0x00000000 */
 };
 
-libm_hidden_proto(llrint)
-
 long long int
 llrint (double x)
 {

diff --git a/libm/s_llround.c b/libm/s_llround.c
index 1db0c28..a549ccc 100644 (file)
--- a/libm/s_llround.c
+++ b/libm/s_llround.c
@@ -22,7 +22,6 @@
 
 #include "math_private.h"
 
-libm_hidden_proto(llround)
 long long int
 llround (double x)
 {

diff --git a/libm/s_log1p.c b/libm/s_log1p.c
index 7acf628..695019a 100644 (file)
--- a/libm/s_log1p.c
+++ b/libm/s_log1p.c
@@ -104,7 +104,6 @@ static const double zero = 0.0;
 static double zero = 0.0;
 #endif
 
-libm_hidden_proto(log1p)
 #ifdef __STDC__
        double log1p(double x)
 #else

diff --git a/libm/s_logb.c b/libm/s_logb.c
index ff47ab4..173b477 100644 (file)
--- a/libm/s_logb.c
+++ b/libm/s_logb.c
@@ -23,9 +23,7 @@ static char rcsid[] = "$NetBSD: s_logb.c,v 1.8 1995/05/10 20:47:50 jtc Exp $";
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto(fabs)
 
-libm_hidden_proto(logb)
 #ifdef __STDC__
        double logb(double x)
 #else

diff --git a/libm/s_lrint.c b/libm/s_lrint.c
index 61c5212..a0db12d 100644 (file)
--- a/libm/s_lrint.c
+++ b/libm/s_lrint.c
@@ -30,7 +30,6 @@ static const double two52[2] =
 };
 
 
-libm_hidden_proto(lrint)
 long int
 lrint (double x)
 {

diff --git a/libm/s_lround.c b/libm/s_lround.c
index 604004f..056a487 100644 (file)
--- a/libm/s_lround.c
+++ b/libm/s_lround.c
@@ -22,7 +22,6 @@
 
 #include "math_private.h"
 
-libm_hidden_proto(lround)
 long int
 lround (double x)
 {

diff --git a/libm/s_matherr.c b/libm/s_matherr.c
index 0c102e6..fda4e19 100644 (file)
--- a/libm/s_matherr.c
+++ b/libm/s_matherr.c
@@ -19,7 +19,6 @@ static char rcsid[] = "$NetBSD: s_matherr.c,v 1.6 1995/05/10 20:47:53 jtc Exp $"
 
 #ifndef _IEEE_LIBM
 
-libm_hidden_proto(matherr)
 #ifdef __STDC__
        int matherr(struct exception *x)
 #else

diff --git a/libm/s_modf.c b/libm/s_modf.c
index 0cf0e83..24369c0 100644 (file)
--- a/libm/s_modf.c
+++ b/libm/s_modf.c
@@ -33,7 +33,6 @@ static const double one = 1.0;
 static double one = 1.0;
 #endif
 
-libm_hidden_proto(modf)
 #ifdef __STDC__
        double modf(double x, double *iptr)
 #else

diff --git a/libm/s_nearbyint.c b/libm/s_nearbyint.c
index 1bd8d40..52ebbdb 100644 (file)
--- a/libm/s_nearbyint.c
+++ b/libm/s_nearbyint.c
@@ -12,7 +12,6 @@
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto(nearbyint)
 #ifdef __STDC__
        double nearbyint(double x)
 #else

diff --git a/libm/s_nextafter.c b/libm/s_nextafter.c
index bdc6f3a..1034e32 100644 (file)
--- a/libm/s_nextafter.c
+++ b/libm/s_nextafter.c
@@ -24,7 +24,6 @@ static char rcsid[] = "$NetBSD: s_nextafter.c,v 1.8 1995/05/10 20:47:58 jtc Exp
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto(nextafter)
 #ifdef __STDC__
        double nextafter(double x, double y)
 #else

diff --git a/libm/s_remquo.c b/libm/s_remquo.c
index 18853e2..9cbf8c4 100644 (file)
--- a/libm/s_remquo.c
+++ b/libm/s_remquo.c
@@ -7,7 +7,6 @@
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto(remquo)
 #ifdef __STDC__
        double remquo(double x, double y, int *quo)     /* wrapper remquo */
 #else

diff --git a/libm/s_rint.c b/libm/s_rint.c
index ce42aa9..d20f1bd 100644 (file)
--- a/libm/s_rint.c
+++ b/libm/s_rint.c
@@ -37,7 +37,6 @@ TWO52[2]={
  -4.50359962737049600000e+15, /* 0xC3300000, 0x00000000 */
 };
 
-libm_hidden_proto(rint)
 #ifdef __STDC__
        double rint(double x)
 #else

diff --git a/libm/s_round.c b/libm/s_round.c
index 0308948..7965c6f 100644 (file)
--- a/libm/s_round.c
+++ b/libm/s_round.c
@@ -25,7 +25,6 @@
 
 static const double huge = 1.0e300;
 
-libm_hidden_proto(round)
 double
 round (double x)
 {

diff --git a/libm/s_scalbln.c b/libm/s_scalbln.c
index a780f37..d2ea791 100644 (file)
--- a/libm/s_scalbln.c
+++ b/libm/s_scalbln.c
@@ -20,7 +20,6 @@
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto(scalbln)
 #ifdef __STDC__
 static const double
 #else

diff --git a/libm/s_scalbn.c b/libm/s_scalbn.c
index 6a74524..2c5ada3 100644 (file)
--- a/libm/s_scalbn.c
+++ b/libm/s_scalbn.c
@@ -24,7 +24,6 @@ static char rcsid[] = "$NetBSD: s_scalbn.c,v 1.8 1995/05/10 20:48:08 jtc Exp $";
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto(copysign)
 
 #ifdef __STDC__
 static const double
@@ -36,7 +35,6 @@ twom54  =  5.55111512312578270212e-17, /* 0x3C900000, 0x00000000 */
 huge   = 1.0e+300,
 tiny   = 1.0e-300;
 
-libm_hidden_proto(scalbn)
 #ifdef __STDC__
        double scalbn (double x, int n)
 #else

diff --git a/libm/s_signbit.c b/libm/s_signbit.c
index c8a72c5..c9f6527 100644 (file)
--- a/libm/s_signbit.c
+++ b/libm/s_signbit.c
@@ -22,7 +22,6 @@
 
 #include "math_private.h"
 
-libm_hidden_proto(__signbit)
 int
 __signbit (double x)
 {

diff --git a/libm/s_significand.c b/libm/s_significand.c
index e47618c..2a7980a 100644 (file)
--- a/libm/s_significand.c
+++ b/libm/s_significand.c
@@ -23,7 +23,6 @@ static char rcsid[] = "$NetBSD: s_significand.c,v 1.6 1995/05/10 20:48:11 jtc Ex
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto(ilogb)
 
 #ifdef __STDC__
        double significand(double x)
@@ -34,3 +33,4 @@ libm_hidden_proto(ilogb)
 {
        return __ieee754_scalb(x,(double) -ilogb(x));
 }
+libm_hidden_def(significand)

diff --git a/libm/s_sin.c b/libm/s_sin.c
index ef9a36d..c14709b 100644 (file)
--- a/libm/s_sin.c
+++ b/libm/s_sin.c
@@ -48,7 +48,6 @@ static char rcsid[] = "$NetBSD: s_sin.c,v 1.7 1995/05/10 20:48:15 jtc Exp $";
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto(sin)
 #ifdef __STDC__
        double sin(double x)
 #else

diff --git a/libm/s_tan.c b/libm/s_tan.c
index bab343c..26bb39f 100644 (file)
--- a/libm/s_tan.c
+++ b/libm/s_tan.c
@@ -47,7 +47,6 @@ static char rcsid[] = "$NetBSD: s_tan.c,v 1.7 1995/05/10 20:48:18 jtc Exp $";
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto(tan)
 #ifdef __STDC__
        double tan(double x)
 #else

diff --git a/libm/s_tanh.c b/libm/s_tanh.c
index ecabbef..edadbfe 100644 (file)
--- a/libm/s_tanh.c
+++ b/libm/s_tanh.c
@@ -41,8 +41,6 @@ static char rcsid[] = "$NetBSD: s_tanh.c,v 1.7 1995/05/10 20:48:22 jtc Exp $";
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto(expm1)
-libm_hidden_proto(fabs)
 
 #ifdef __STDC__
 static const double one=1.0, two=2.0, tiny = 1.0e-300;
@@ -50,7 +48,6 @@ static const double one=1.0, two=2.0, tiny = 1.0e-300;
 static double one=1.0, two=2.0, tiny = 1.0e-300;
 #endif
 
-libm_hidden_proto(tanh)
 #ifdef __STDC__
        double tanh(double x)
 #else

diff --git a/libm/s_trunc.c b/libm/s_trunc.c
index 8a4f5ae..6e5678b 100644 (file)
--- a/libm/s_trunc.c
+++ b/libm/s_trunc.c
@@ -23,7 +23,6 @@
 #include "math_private.h"
 
 
-libm_hidden_proto(trunc)
 double
 trunc (double x)
 {

diff --git a/libm/w_acos.c b/libm/w_acos.c
index ea00cf0..f93f6bb 100644 (file)
--- a/libm/w_acos.c
+++ b/libm/w_acos.c
@@ -21,7 +21,6 @@ static char rcsid[] = "$NetBSD: w_acos.c,v 1.6 1995/05/10 20:48:26 jtc Exp $";
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto(acos)
 #ifdef __STDC__
        double acos(double x)           /* wrapper acos */
 #else

diff --git a/libm/w_acosh.c b/libm/w_acosh.c
index e0efb8a..3268218 100644 (file)
--- a/libm/w_acosh.c
+++ b/libm/w_acosh.c
@@ -21,7 +21,6 @@ static char rcsid[] = "$NetBSD: w_acosh.c,v 1.6 1995/05/10 20:48:31 jtc Exp $";
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto(acosh)
 #ifdef __STDC__
        double acosh(double x)          /* wrapper acosh */
 #else

diff --git a/libm/w_asin.c b/libm/w_asin.c
index ad156ef..a028a1d 100644 (file)
--- a/libm/w_asin.c
+++ b/libm/w_asin.c
@@ -23,7 +23,6 @@ static char rcsid[] = "$NetBSD: w_asin.c,v 1.6 1995/05/10 20:48:35 jtc Exp $";
 #include "math_private.h"
 
 
-libm_hidden_proto(asin)
 #ifdef __STDC__
        double asin(double x)           /* wrapper asin */
 #else

diff --git a/libm/w_atan2.c b/libm/w_atan2.c
index c2da468..6a13d2b 100644 (file)
--- a/libm/w_atan2.c
+++ b/libm/w_atan2.c
@@ -20,7 +20,6 @@ static char rcsid[] = "$NetBSD: w_atan2.c,v 1.6 1995/05/10 20:48:39 jtc Exp $";
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto(atan2)
 #ifdef __STDC__
        double atan2(double y, double x)        /* wrapper atan2 */
 #else

diff --git a/libm/w_atanh.c b/libm/w_atanh.c
index 18d0a4a..9839313 100644 (file)
--- a/libm/w_atanh.c
+++ b/libm/w_atanh.c
@@ -21,7 +21,6 @@ static char rcsid[] = "$NetBSD: w_atanh.c,v 1.6 1995/05/10 20:48:43 jtc Exp $";
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto(atanh)
 #ifdef __STDC__
        double atanh(double x)          /* wrapper atanh */
 #else

diff --git a/libm/w_cabs.c b/libm/w_cabs.c
index 485e120..d2a54cd 100644 (file)
--- a/libm/w_cabs.c
+++ b/libm/w_cabs.c
@@ -8,9 +8,9 @@
 #include <complex.h>
 #include <math.h>
 
-libm_hidden_proto(hypot)
 
 double cabs(double _Complex z)
 {
        return hypot(__real__ z, __imag__ z);
 }
+libm_hidden_def(cabs)

diff --git a/libm/w_cosh.c b/libm/w_cosh.c
index c785af4..0766e37 100644 (file)
--- a/libm/w_cosh.c
+++ b/libm/w_cosh.c
@@ -21,7 +21,6 @@ static char rcsid[] = "$NetBSD: w_cosh.c,v 1.6 1995/05/10 20:48:47 jtc Exp $";
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto(cosh)
 #ifdef __STDC__
        double cosh(double x)           /* wrapper cosh */
 #else

diff --git a/libm/w_drem.c b/libm/w_drem.c
index 22e2817..6b3dd39 100644 (file)
--- a/libm/w_drem.c
+++ b/libm/w_drem.c
@@ -7,9 +7,9 @@
 
 #include <math.h>
 
-libm_hidden_proto(remainder)
 
 double drem(double x, double y)
 {
        return remainder(x, y);
 }
+libm_hidden_def(drem)

diff --git a/libm/w_exp.c b/libm/w_exp.c
index b9b7ccc..e112224 100644 (file)
--- a/libm/w_exp.c
+++ b/libm/w_exp.c
@@ -29,7 +29,6 @@ static double
 o_threshold=  7.09782712893383973096e+02,  /* 0x40862E42, 0xFEFA39EF */
 u_threshold= -7.45133219101941108420e+02;  /* 0xc0874910, 0xD52D3051 */
 
-libm_hidden_proto(exp)
 #ifdef __STDC__
        double exp(double x)            /* wrapper exp */
 #else

diff --git a/libm/w_exp2.c b/libm/w_exp2.c
index 20a9cf3..604d6ec 100644 (file)
--- a/libm/w_exp2.c
+++ b/libm/w_exp2.c
@@ -14,7 +14,6 @@
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto(exp2)
 #ifdef __STDC__
        double exp2(double x)
 #else

diff --git a/libm/w_fmod.c b/libm/w_fmod.c
index eed3837..ce7d784 100644 (file)
--- a/libm/w_fmod.c
+++ b/libm/w_fmod.c
@@ -21,7 +21,6 @@ static char rcsid[] = "$NetBSD: w_fmod.c,v 1.6 1995/05/10 20:48:55 jtc Exp $";
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto(fmod)
 #ifdef __STDC__
        double fmod(double x, double y) /* wrapper fmod */
 #else

diff --git a/libm/w_gamma.c b/libm/w_gamma.c
index 182dece..0b286e1 100644 (file)
--- a/libm/w_gamma.c
+++ b/libm/w_gamma.c
@@ -24,7 +24,6 @@ static char rcsid[] = "$NetBSD: w_gamma.c,v 1.7 1995/11/20 22:06:43 jtc Exp $";
 #include "math_private.h"
 
 libm_hidden_proto(signgam)
-
 #ifdef __STDC__
        double gamma(double x)
 #else
@@ -47,3 +46,4 @@ libm_hidden_proto(signgam)
             return y;
 #endif
 }
+libm_hidden_def(gamma)

diff --git a/libm/w_gamma_r.c b/libm/w_gamma_r.c
index 321e864..b9f14fb 100644 (file)
--- a/libm/w_gamma_r.c
+++ b/libm/w_gamma_r.c
@@ -23,6 +23,7 @@ static char rcsid[] = "$NetBSD: w_gamma_r.c,v 1.7 1995/11/20 22:06:45 jtc Exp $"
 
 
 double gamma_r(double x, int *signgamp);
+libm_hidden_proto(gamma_r)
 #ifdef __STDC__
        double gamma_r(double x, int *signgamp) /* wrapper lgamma_r */
 #else
@@ -45,3 +46,4 @@ double gamma_r(double x, int *signgamp);
             return y;
 #endif
 }
+libm_hidden_def(gamma_r)

diff --git a/libm/w_hypot.c b/libm/w_hypot.c
index e4b299d..9ed348e 100644 (file)
--- a/libm/w_hypot.c
+++ b/libm/w_hypot.c
@@ -21,7 +21,6 @@ static char rcsid[] = "$NetBSD: w_hypot.c,v 1.6 1995/05/10 20:49:07 jtc Exp $";
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto(hypot)
 #ifdef __STDC__
        double hypot(double x, double y)/* wrapper hypot */
 #else

diff --git a/libm/w_j0.c b/libm/w_j0.c
index 61f4f20..27290c8 100644 (file)
--- a/libm/w_j0.c
+++ b/libm/w_j0.c
@@ -39,6 +39,7 @@ static char rcsid[] = "$NetBSD: w_j0.c,v 1.6 1995/05/10 20:49:11 jtc Exp $";
            return z;
 #endif
 }
+libm_hidden_def(j0)
 
 #ifdef __STDC__
        double y0(double x)             /* wrapper y0 */
@@ -67,3 +68,4 @@ static char rcsid[] = "$NetBSD: w_j0.c,v 1.6 1995/05/10 20:49:11 jtc Exp $";
            return z;
 #endif
 }
+libm_hidden_def(y0)

diff --git a/libm/w_j1.c b/libm/w_j1.c
index 389dc15..9ce34cc 100644 (file)
--- a/libm/w_j1.c
+++ b/libm/w_j1.c
@@ -40,6 +40,7 @@ static char rcsid[] = "$NetBSD: w_j1.c,v 1.6 1995/05/10 20:49:15 jtc Exp $";
            return z;
 #endif
 }
+libm_hidden_def(j1)
 
 #ifdef __STDC__
        double y1(double x)             /* wrapper y1 */
@@ -68,3 +69,4 @@ static char rcsid[] = "$NetBSD: w_j1.c,v 1.6 1995/05/10 20:49:15 jtc Exp $";
            return z;
 #endif
 }
+libm_hidden_def(y1)

diff --git a/libm/w_jn.c b/libm/w_jn.c
index 173f6aa..2ba74d8 100644 (file)
--- a/libm/w_jn.c
+++ b/libm/w_jn.c
@@ -62,6 +62,7 @@ static char rcsid[] = "$NetBSD: w_jn.c,v 1.6 1995/05/10 20:49:19 jtc Exp $";
            return z;
 #endif
 }
+libm_hidden_def(jn)
 
 #ifdef __STDC__
        double yn(int n, double x)      /* wrapper yn */
@@ -90,3 +91,4 @@ static char rcsid[] = "$NetBSD: w_jn.c,v 1.6 1995/05/10 20:49:19 jtc Exp $";
            return z;
 #endif
 }
+libm_hidden_def(yn)

diff --git a/libm/w_lgamma.c b/libm/w_lgamma.c
index de0394b..24b8b02 100644 (file)
--- a/libm/w_lgamma.c
+++ b/libm/w_lgamma.c
@@ -24,8 +24,6 @@ static char rcsid[] = "$NetBSD: w_lgamma.c,v 1.6 1995/05/10 20:49:24 jtc Exp $";
 #include "math_private.h"
 
 libm_hidden_proto(signgam)
-
-libm_hidden_proto(lgamma)
 #ifdef __STDC__
        double lgamma(double x)
 #else

diff --git a/libm/w_lgamma_r.c b/libm/w_lgamma_r.c
index 6ca56d6..20b0026 100644 (file)
--- a/libm/w_lgamma_r.c
+++ b/libm/w_lgamma_r.c
@@ -21,7 +21,6 @@ static char rcsid[] = "$NetBSD: w_lgamma_r.c,v 1.6 1995/05/10 20:49:27 jtc Exp $
 #include "math.h"
 #include "math_private.h"
 
-
 #ifdef __STDC__
        double lgamma_r(double x, int *signgamp) /* wrapper lgamma_r */
 #else
@@ -44,3 +43,4 @@ static char rcsid[] = "$NetBSD: w_lgamma_r.c,v 1.6 1995/05/10 20:49:27 jtc Exp $
             return y;
 #endif
 }
+libm_hidden_def(lgamma_r)

diff --git a/libm/w_log.c b/libm/w_log.c
index 12c8282..22cdda1 100644 (file)
--- a/libm/w_log.c
+++ b/libm/w_log.c
@@ -21,7 +21,6 @@ static char rcsid[] = "$NetBSD: w_log.c,v 1.6 1995/05/10 20:49:33 jtc Exp $";
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto(log)
 #ifdef __STDC__
        double log(double x)            /* wrapper log */
 #else

diff --git a/libm/w_log10.c b/libm/w_log10.c
index cf52f6e..efb523e 100644 (file)
--- a/libm/w_log10.c
+++ b/libm/w_log10.c
@@ -21,7 +21,6 @@ static char rcsid[] = "$NetBSD: w_log10.c,v 1.6 1995/05/10 20:49:35 jtc Exp $";
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto(log10)
 #ifdef __STDC__
        double log10(double x)          /* wrapper log10 */
 #else

diff --git a/libm/w_pow.c b/libm/w_pow.c
index 89cd08f..94d30bc 100644 (file)
--- a/libm/w_pow.c
+++ b/libm/w_pow.c
@@ -19,7 +19,6 @@
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto(pow)
 #ifdef __STDC__
        double pow(double x, double y)  /* wrapper pow */
 #else

diff --git a/libm/w_remainder.c b/libm/w_remainder.c
index be3dd02..a30ff88 100644 (file)
--- a/libm/w_remainder.c
+++ b/libm/w_remainder.c
@@ -21,7 +21,6 @@ static char rcsid[] = "$NetBSD: w_remainder.c,v 1.6 1995/05/10 20:49:44 jtc Exp
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto(remainder)
 #ifdef __STDC__
        double remainder(double x, double y)    /* wrapper remainder */
 #else

diff --git a/libm/w_scalb.c b/libm/w_scalb.c
index a5f88de..a770877 100644 (file)
--- a/libm/w_scalb.c
+++ b/libm/w_scalb.c
@@ -58,3 +58,4 @@ static char rcsid[] = "$NetBSD: w_scalb.c,v 1.6 1995/05/10 20:49:48 jtc Exp $";
        return z;
 #endif
 }
+libm_hidden_def(scalb)

diff --git a/libm/w_sinh.c b/libm/w_sinh.c
index bed9bb3..dabfdd9 100644 (file)
--- a/libm/w_sinh.c
+++ b/libm/w_sinh.c
@@ -21,7 +21,6 @@ static char rcsid[] = "$NetBSD: w_sinh.c,v 1.6 1995/05/10 20:49:51 jtc Exp $";
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto(sinh)
 #ifdef __STDC__
        double sinh(double x)           /* wrapper sinh */
 #else

diff --git a/libm/w_sqrt.c b/libm/w_sqrt.c
index 0a37249..d695b1d 100644 (file)
--- a/libm/w_sqrt.c
+++ b/libm/w_sqrt.c
@@ -21,7 +21,6 @@ static char rcsid[] = "$NetBSD: w_sqrt.c,v 1.6 1995/05/10 20:49:55 jtc Exp $";
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto(sqrt)
 #ifdef __STDC__
        double sqrt(double x)           /* wrapper sqrt */
 #else

diff --git a/libm/w_tgamma.c b/libm/w_tgamma.c
index 62b3c62..0449e16 100644 (file)
--- a/libm/w_tgamma.c
+++ b/libm/w_tgamma.c
@@ -18,7 +18,7 @@
 #include "math.h"
 #include "math_private.h"
 
-libm_hidden_proto(tgamma)
+libm_hidden_proto(signgam)
 #ifdef __STDC__
        double tgamma(double x)
 #else