diff options
Diffstat (limited to 'libm')
81 files changed, 272 insertions, 28 deletions
diff --git a/libm/e_acosh.c b/libm/e_acosh.c index 258ffa549..d5e510eff 100644 --- a/libm/e_acosh.c +++ b/libm/e_acosh.c @@ -31,6 +31,9 @@ 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 #else diff --git a/libm/e_asin.c b/libm/e_asin.c index f9b16da71..8a639771b 100644 --- a/libm/e_asin.c +++ b/libm/e_asin.c @@ -48,6 +48,8 @@ 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 #else diff --git a/libm/e_atan2.c b/libm/e_atan2.c index 594b9a16f..7bb38da81 100644 --- a/libm/e_atan2.c +++ b/libm/e_atan2.c @@ -44,6 +44,9 @@ 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 #else diff --git a/libm/e_atanh.c b/libm/e_atanh.c index 7c8bbc14f..cfbe02bed 100644 --- a/libm/e_atanh.c +++ b/libm/e_atanh.c @@ -35,6 +35,8 @@ 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; #else diff --git a/libm/e_cosh.c b/libm/e_cosh.c index 5558a9642..aa25eefcb 100644 --- a/libm/e_cosh.c +++ b/libm/e_cosh.c @@ -38,6 +38,9 @@ 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; #else diff --git a/libm/e_gamma.c b/libm/e_gamma.c index 23611c369..0eec33cf4 100644 --- a/libm/e_gamma.c +++ b/libm/e_gamma.c @@ -21,6 +21,7 @@ #include "math_private.h" extern int signgam; +libm_hidden_proto(signgam) #ifdef __STDC__ //__private_extern__ diff --git a/libm/e_j0.c b/libm/e_j0.c index eaf06be05..74defacdf 100644 --- a/libm/e_j0.c +++ b/libm/e_j0.c @@ -62,6 +62,11 @@ 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); #else diff --git a/libm/e_j1.c b/libm/e_j1.c index 370f0f0a1..bb3e650eb 100644 --- a/libm/e_j1.c +++ b/libm/e_j1.c @@ -62,6 +62,11 @@ 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); #else diff --git a/libm/e_jn.c b/libm/e_jn.c index ac0013b8d..53c6396f6 100644 --- a/libm/e_jn.c +++ b/libm/e_jn.c @@ -43,6 +43,11 @@ 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 #else diff --git a/libm/e_lgamma.c b/libm/e_lgamma.c index 3d3d6471d..3bb223003 100644 --- a/libm/e_lgamma.c +++ b/libm/e_lgamma.c @@ -21,6 +21,7 @@ #include "math_private.h" extern int signgam; +libm_hidden_proto(signgam) #ifdef __STDC__ //__private_extern__ diff --git a/libm/e_lgamma_r.c b/libm/e_lgamma_r.c index 42b48b3a6..12ecdc338 100644 --- a/libm/e_lgamma_r.c +++ b/libm/e_lgamma_r.c @@ -84,6 +84,9 @@ 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 94b490115..675149e1f 100644 --- a/libm/e_pow.c +++ b/libm/e_pow.c @@ -62,6 +62,9 @@ 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 #else diff --git a/libm/e_rem_pio2.c b/libm/e_rem_pio2.c index 239b68a73..97ce7bab1 100644 --- a/libm/e_rem_pio2.c +++ b/libm/e_rem_pio2.c @@ -23,6 +23,8 @@ 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 1f7ea126b..17047b385 100644 --- a/libm/e_remainder.c +++ b/libm/e_remainder.c @@ -26,6 +26,8 @@ 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; #else diff --git a/libm/e_scalb.c b/libm/e_scalb.c index 1a1c43ac7..772d95523 100644 --- a/libm/e_scalb.c +++ b/libm/e_scalb.c @@ -23,6 +23,11 @@ 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__ double attribute_hidden __ieee754_scalb(double x, int fn) diff --git a/libm/e_sinh.c b/libm/e_sinh.c index 462bc2f57..e8452c287 100644 --- a/libm/e_sinh.c +++ b/libm/e_sinh.c @@ -35,6 +35,9 @@ 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; #else diff --git a/libm/float_wrappers.c b/libm/float_wrappers.c index 0be5304f7..8061357eb 100644 --- a/libm/float_wrappers.c +++ b/libm/float_wrappers.c @@ -77,6 +77,7 @@ float tanhf(float); #ifdef L_acosf +libm_hidden_proto(acos) float acosf (float x) { return (float) acos( (double)x ); @@ -85,6 +86,7 @@ float acosf (float x) #ifdef L_acoshf +libm_hidden_proto(acosh) float acoshf (float x) { return (float) acosh( (double)x ); @@ -93,6 +95,7 @@ float acoshf (float x) #ifdef L_asinf +libm_hidden_proto(asin) float asinf (float x) { return (float) asin( (double)x ); @@ -101,6 +104,7 @@ float asinf (float x) #ifdef L_asinhf +libm_hidden_proto(asinh) float asinhf (float x) { return (float) asinh( (double)x ); @@ -109,6 +113,7 @@ float asinhf (float x) #ifdef L_atan2f +libm_hidden_proto(atan2) float atan2f (float x, float y) { return (float) atan2( (double)x, (double)y ); @@ -117,6 +122,7 @@ float atan2f (float x, float y) #ifdef L_atanf +libm_hidden_proto(atan) float atanf (float x) { return (float) atan( (double)x ); @@ -125,6 +131,7 @@ float atanf (float x) #ifdef L_atanhf +libm_hidden_proto(atanh) float atanhf (float x) { return (float) atanh( (double)x ); @@ -133,6 +140,7 @@ float atanhf (float x) #ifdef L_cbrtf +libm_hidden_proto(cbrt) float cbrtf (float x) { return (float) cbrt( (double)x ); @@ -141,6 +149,7 @@ float cbrtf (float x) #ifdef L_ceilf +libm_hidden_proto(ceil) float ceilf (float x) { return (float) ceil( (double)x ); @@ -149,6 +158,7 @@ float ceilf (float x) #ifdef L_copysignf +libm_hidden_proto(copysign) float copysignf (float x, float y) { return (float) copysign( (double)x, (double)y ); @@ -157,6 +167,7 @@ float copysignf (float x, float y) #ifdef L_cosf +libm_hidden_proto(cos) float cosf (float x) { return (float) cos( (double)x ); @@ -165,6 +176,7 @@ float cosf (float x) #ifdef L_coshf +libm_hidden_proto(cosh) float coshf (float x) { return (float) cosh( (double)x ); @@ -173,6 +185,7 @@ float coshf (float x) #ifdef L_erfcf +libm_hidden_proto(erfc) float erfcf (float x) { return (float) erfc( (double)x ); @@ -181,6 +194,7 @@ float erfcf (float x) #ifdef L_erff +libm_hidden_proto(erf) float erff (float x) { return (float) erf( (double)x ); @@ -189,6 +203,7 @@ float erff (float x) #ifdef L_exp2f +libm_hidden_proto(exp2) float exp2f (float x) { return (float) exp2( (double)x ); @@ -197,6 +212,7 @@ float exp2f (float x) #ifdef L_expf +libm_hidden_proto(exp) float expf (float x) { return (float) exp( (double)x ); @@ -205,6 +221,7 @@ float expf (float x) #ifdef L_expm1f +libm_hidden_proto(expm1) float expm1f (float x) { return (float) expm1( (double)x ); @@ -213,6 +230,7 @@ float expm1f (float x) #ifdef L_fabsf +libm_hidden_proto(fabs) float fabsf (float x) { return (float) fabs( (double)x ); @@ -221,6 +239,7 @@ float fabsf (float x) #ifdef L_fdimf +libm_hidden_proto(fdim) float fdimf (float x, float y) { return (float) fdim( (double)x, (double)y ); @@ -229,6 +248,7 @@ float fdimf (float x, float y) #ifdef L_floorf +libm_hidden_proto(floor) float floorf (float x) { return (float) floor( (double)x ); @@ -237,6 +257,7 @@ 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 ); @@ -245,6 +266,7 @@ 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 ); @@ -253,6 +275,7 @@ 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 ); @@ -261,6 +284,7 @@ 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 ); @@ -269,6 +293,7 @@ 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 ); @@ -277,6 +302,7 @@ 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 ); @@ -285,6 +311,7 @@ float hypotf (float x, float y) #ifdef L_ilogbf +libm_hidden_proto(ilogb) int ilogbf (float x) { return (float) ilogb( (double)x ); @@ -293,6 +320,7 @@ int ilogbf (float x) #ifdef L_ldexpf +libm_hidden_proto(ldexp) float ldexpf (float x, int exp) { return (float) ldexp( (double)x, exp ); @@ -301,6 +329,7 @@ float ldexpf (float x, int exp) #ifdef L_lgammaf +libm_hidden_proto(lgamma) float lgammaf (float x) { return (float) lgamma( (double)x ); @@ -309,6 +338,7 @@ float lgammaf (float x) #ifdef L_llrintf +libm_hidden_proto(llrint) long long llrintf (float x) { return (float) llrint( (double)x ); @@ -317,6 +347,7 @@ long long llrintf (float x) #ifdef L_llroundf +libm_hidden_proto(llround) long long llroundf (float x) { return (float) llround( (double)x ); @@ -325,6 +356,7 @@ long long llroundf (float x) #ifdef L_log10f +libm_hidden_proto(log10) float log10f (float x) { return (float) log10( (double)x ); @@ -333,6 +365,7 @@ float log10f (float x) #ifdef L_log1pf +libm_hidden_proto(log1p) float log1pf (float x) { return (float) log1p( (double)x ); @@ -341,6 +374,7 @@ float log1pf (float x) #ifdef L_log2f +libm_hidden_proto(log2) float log2f (float x) { return (float) log2( (double)x ); @@ -349,6 +383,7 @@ float log2f (float x) #ifdef L_logbf +libm_hidden_proto(logb) float logbf (float x) { return (float) logb( (double)x ); @@ -357,6 +392,7 @@ float logbf (float x) #ifdef L_logf +libm_hidden_proto(log) float logf (float x) { return (float) log( (double)x ); @@ -365,6 +401,7 @@ float logf (float x) #ifdef L_lrintf +libm_hidden_proto(lrint) long lrintf (float x) { return (float) lrint( (double)x ); @@ -373,6 +410,7 @@ long lrintf (float x) #ifdef L_lroundf +libm_hidden_proto(lround) long lroundf (float x) { return (float) lround( (double)x ); @@ -381,6 +419,7 @@ long lroundf (float x) #ifdef L_modff +libm_hidden_proto(modf) float modff (float x, float *iptr) { double y, result; @@ -393,6 +432,7 @@ float modff (float x, float *iptr) #ifdef L_nearbyintf +libm_hidden_proto(nearbyint) float nearbyintf (float x) { return (float) nearbyint( (double)x ); @@ -401,6 +441,7 @@ float nearbyintf (float x) #ifdef L_nextafterf +libm_hidden_proto(nextafter) float nextafterf (float x, float y) { return (float) nextafter( (double)x, (double)y ); @@ -409,6 +450,7 @@ 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 ); @@ -417,6 +459,7 @@ 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 ); @@ -425,6 +468,7 @@ 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 ); @@ -433,6 +477,7 @@ 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 ); @@ -441,6 +486,7 @@ float remquof (float x, float y, int *quo) #ifdef L_rintf +libm_hidden_proto(rint) float rintf (float x) { return (float) rint( (double)x ); @@ -449,6 +495,7 @@ float rintf (float x) #ifdef L_roundf +libm_hidden_proto(round) float roundf (float x) { return (float) round( (double)x ); @@ -457,6 +504,7 @@ float roundf (float x) #ifdef L_scalblnf +libm_hidden_proto(scalbln) float scalblnf (float x, long exp) { return (float) scalbln( (double)x, exp ); @@ -465,6 +513,7 @@ 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 ); @@ -473,6 +522,7 @@ float scalbnf (float x, int exp) #ifdef L_sinf +libm_hidden_proto(sin) float sinf (float x) { return (float) sin( (double)x ); @@ -481,6 +531,7 @@ float sinf (float x) #ifdef L_sinhf +libm_hidden_proto(sinh) float sinhf (float x) { return (float) sinh( (double)x ); @@ -489,6 +540,7 @@ float sinhf (float x) #ifdef L_sqrtf +libm_hidden_proto(sqrt) float sqrtf (float x) { return (float) sqrt( (double)x ); @@ -497,6 +549,7 @@ float sqrtf (float x) #ifdef L_tanf +libm_hidden_proto(tan) float tanf (float x) { return (float) tan( (double)x ); @@ -505,6 +558,7 @@ float tanf (float x) #ifdef L_tanhf +libm_hidden_proto(tanh) float tanhf (float x) { return (float) tanh( (double)x ); @@ -513,6 +567,7 @@ float tanhf (float x) #ifdef L_tgammaf +libm_hidden_proto(tgamma) float tgammaf (float x) { return (float) tgamma( (double)x ); @@ -521,6 +576,7 @@ float tgammaf (float x) #ifdef L_truncf +libm_hidden_proto(trunc) float truncf (float x) { return (float) trunc( (double)x ); diff --git a/libm/fpmacros.c b/libm/fpmacros.c index 2624054d0..ebcb7c5fb 100644 --- a/libm/fpmacros.c +++ b/libm/fpmacros.c @@ -40,6 +40,7 @@ Calls: none ***********************************************************************/ +libm_hidden_proto(__fpclassifyf) int __fpclassifyf ( float x ) { unsigned int iexp; @@ -66,6 +67,7 @@ int __fpclassifyf ( float x ) else return FP_SUBNORMAL; /* must be subnormal */ } +libm_hidden_def(__fpclassifyf) /*********************************************************************** @@ -78,6 +80,7 @@ int __fpclassifyf ( float x ) Calls: none ***********************************************************************/ +libm_hidden_proto(__fpclassify) int __fpclassify ( double arg ) { register unsigned int exponent; @@ -106,6 +109,7 @@ int __fpclassify ( double arg ) return FP_SUBNORMAL; } } +libm_hidden_def(__fpclassify) /*********************************************************************** @@ -158,14 +162,14 @@ int __finitef ( float x ) z.fval = x; return ((z.lval & FEXP_MASK) != FEXP_MASK); } -weak_alias (__finitef, finitef) +strong_alias(__finitef,finitef) #if 0 /* use __finite in s_finite.c */ int __finite ( double x ) { return ( __fpclassify ( x ) >= FP_ZERO ); } -weak_alias (__finite, finite) +strong_alias(__finite,finite) #endif @@ -178,6 +182,7 @@ weak_alias (__finite, finite) Calls: none ***********************************************************************/ +libm_hidden_proto(__signbitf) int __signbitf ( float x ) { union { @@ -188,6 +193,7 @@ int __signbitf ( float x ) z.fval = x; return ((z.lval & SIGN_MASK) != 0); } +libm_hidden_def(__signbitf) /*********************************************************************** @@ -197,6 +203,7 @@ int __signbitf ( float x ) Calls: none ***********************************************************************/ +libm_hidden_proto(__signbit) int __signbit ( double arg ) { union @@ -210,6 +217,7 @@ int __signbit ( double arg ) sign = ( ( x.hex.high & dSgnMask ) == dSgnMask ) ? 1 : 0; return sign; } +libm_hidden_def(__signbit) /*********************************************************************** @@ -227,7 +235,7 @@ int __isinff ( float x ) } return 0; } -weak_alias (__isinff, isinff) +strong_alias(__isinff,isinff) int __isinf ( double x ) { @@ -237,7 +245,7 @@ int __isinf ( double x ) } return 0; } -weak_alias (__isinf, isinf) +strong_alias(__isinf,isinf) #if 0 int __isinfl ( long double x ) @@ -248,7 +256,7 @@ int __isinfl ( long double x ) } return 0; } -weak_alias (__isinfl, isinfl) +strong_alias(__isinfl,isinfl) #endif /*********************************************************************** @@ -271,14 +279,16 @@ int __isnanf ( float x ) z.fval = x; return (((z.lval&FEXP_MASK) == FEXP_MASK) && ((z.lval&FFRAC_MASK) != 0)); } -weak_alias (__isnanf, isnanf) +strong_alias(__isnanf,isnanf) +libm_hidden_proto(__isnan) int __isnan ( double x ) { int class = __fpclassify(x); return ( class == FP_NAN ); } -weak_alias (__isnan, isnan) +libm_hidden_def(__isnan) +strong_alias(__isnan,isnan) #if 0 int __isnanl ( long double x ) @@ -286,6 +296,6 @@ int __isnanl ( long double x ) int class = __fpclassify(x); return ( class == FP_NAN ); } -weak_alias (__isnanl, isnanl) +strong_alias(__isnanl,isnanl) #endif diff --git a/libm/k_rem_pio2.c b/libm/k_rem_pio2.c index e0347aad1..e3b9bc195 100644 --- a/libm/k_rem_pio2.c +++ b/libm/k_rem_pio2.c @@ -133,6 +133,9 @@ 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 */ #else diff --git a/libm/k_standard.c b/libm/k_standard.c index c56d5e490..d960e8fac 100644 --- a/libm/k_standard.c +++ b/libm/k_standard.c @@ -18,6 +18,10 @@ static char rcsid[] = "$NetBSD: k_standard.c,v 1.6 1995/05/10 20:46:35 jtc Exp $ #include "math_private.h" #include <errno.h> +libm_hidden_proto(copysign) +libm_hidden_proto(matherr) +libm_hidden_proto(rint) + #ifndef _USE_WRITE #include <stdio.h> /* fputs(), stderr */ #define WRITE2(u,v) fputs(u, stderr) diff --git a/libm/k_tan.c b/libm/k_tan.c index 5698db569..2ba464421 100644 --- a/libm/k_tan.c +++ b/libm/k_tan.c @@ -50,6 +50,9 @@ 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 #else diff --git a/libm/powerpc/s_ceil.c b/libm/powerpc/s_ceil.c index f6680eedf..a9d5a5b22 100644 --- a/libm/powerpc/s_ceil.c +++ b/libm/powerpc/s_ceil.c @@ -48,6 +48,7 @@ typedef union * Ceil(x) returns the smallest integer not less than x. * *******************************************************************************/ +libm_hidden_proto(ceil) double ceil ( double x ) { DblInHex xInHex,OldEnvironment; @@ -108,4 +109,4 @@ double ceil ( double x ) *******************************************************************************/ return ( x ); } - +libm_hidden_def(ceil) diff --git a/libm/powerpc/s_copysign.c b/libm/powerpc/s_copysign.c index d3fb5f40b..ece2a3dde 100644 --- a/libm/powerpc/s_copysign.c +++ b/libm/powerpc/s_copysign.c @@ -34,6 +34,7 @@ * suggested in the IEEE standard 754. * *******************************************************************************/ +libm_hidden_proto(copysign) double copysign ( double arg2, double arg1 ) { union @@ -54,3 +55,4 @@ double copysign ( double arg2, double arg1 ) return y.dbl; } +libm_hidden_def(copysign) diff --git a/libm/powerpc/s_floor.c b/libm/powerpc/s_floor.c index 0ddbb9b66..c5a33cfb7 100644 --- a/libm/powerpc/s_floor.c +++ b/libm/powerpc/s_floor.c @@ -48,6 +48,7 @@ typedef union * Floor(x) returns the largest integer not greater than x. * *******************************************************************************/ +libm_hidden_proto(floor) double floor ( double x ) { DblInHex xInHex,OldEnvironment; @@ -108,4 +109,4 @@ double floor ( double x ) *******************************************************************************/ return ( x ); } - +libm_hidden_def(floor) diff --git a/libm/powerpc/s_frexp.c b/libm/powerpc/s_frexp.c index 7c998f81a..001aaf708 100644 --- a/libm/powerpc/s_frexp.c +++ b/libm/powerpc/s_frexp.c @@ -39,6 +39,7 @@ typedef union double dbl; } DblInHex; +libm_hidden_proto(frexp) double frexp ( double value, int *eptr ) { DblInHex argument; @@ -61,4 +62,4 @@ double frexp ( double value, int *eptr ) argument.words.hi = ( argument.words.hi & 0x800fffff ) | 0x3fe00000; return argument.dbl; } - +libm_hidden_def(frexp) diff --git a/libm/powerpc/s_ldexp.c b/libm/powerpc/s_ldexp.c index 7e52352ae..10100d7c2 100644 --- a/libm/powerpc/s_ldexp.c +++ b/libm/powerpc/s_ldexp.c @@ -37,6 +37,7 @@ typedef union double dbl; } DblInHex; +libm_hidden_proto(ldexp) double ldexp ( double value, int exp ) { if ( exp > SHRT_MAX ) @@ -45,4 +46,4 @@ double ldexp ( double value, int exp ) exp = -SHRT_MAX; return scalb ( value, exp ); } - +libm_hidden_def(ldexp) diff --git a/libm/powerpc/s_logb.c b/libm/powerpc/s_logb.c index 3caecd95f..c3c6d00a8 100644 --- a/libm/powerpc/s_logb.c +++ b/libm/powerpc/s_logb.c @@ -60,6 +60,7 @@ static const DblInHex minusInf = {{ 0xFFF00000, 0x00000000 }}; ******************************************************************************** *******************************************************************************/ +libm_hidden_proto(logb) double logb ( double x ) { DblInHex xInHex; @@ -102,4 +103,4 @@ double logb ( double x ) return ( xInHex.dbl - klTod ); } } - +libm_hidden_def(logb) diff --git a/libm/powerpc/s_modf.c b/libm/powerpc/s_modf.c index cb8338a90..b9d69445d 100644 --- a/libm/powerpc/s_modf.c +++ b/libm/powerpc/s_modf.c @@ -280,6 +280,7 @@ long int roundtol ( double x ) * modf is the double implementation. * *******************************************************************************/ +libm_hidden_proto(modf) double modf ( double x, double *iptr ) { register double OldEnvironment, xtrunc; @@ -340,3 +341,4 @@ double modf ( double x, double *iptr ) return ( argument.dbl ); } } +libm_hidden_def(modf) diff --git a/libm/powerpc/s_nearbyint.c b/libm/powerpc/s_nearbyint.c index f2d7ded35..068e21378 100644 --- a/libm/powerpc/s_nearbyint.c +++ b/libm/powerpc/s_nearbyint.c @@ -15,6 +15,7 @@ static const double twoTo52 = 4503599627370496.0; +libm_hidden_proto(nearbyint) double nearbyint ( double x ) { double y; @@ -34,3 +35,4 @@ double nearbyint ( double x ) asm ("mtfsf 255,%0" : /*NULLOUT*/ : /*IN*/ "f" ( OldEnvironment )); return ( y ); } +libm_hidden_def(nearbyint) diff --git a/libm/powerpc/s_rint.c b/libm/powerpc/s_rint.c index c229515c4..dd2ae585e 100644 --- a/libm/powerpc/s_rint.c +++ b/libm/powerpc/s_rint.c @@ -70,6 +70,7 @@ static const double doubleToLong = 4503603922337792.0; // 2^52 static const DblInHex Huge = {{ 0x7FF00000, 0x00000000 }}; static const DblInHex TOWARDZERO = {{ 0x00000000, 0x00000001 }}; +libm_hidden_proto(rint) /******************************************************************************* * * * The function rint rounds its double argument to integral value * @@ -155,4 +156,4 @@ double rint ( double x ) *******************************************************************************/ return ( x ); } - +libm_hidden_def(rint) diff --git a/libm/powerpc/s_round.c b/libm/powerpc/s_round.c index a0f72ebe3..62d5936d9 100644 --- a/libm/powerpc/s_round.c +++ b/libm/powerpc/s_round.c @@ -29,6 +29,7 @@ static const double twoTo52 = 4503599627370496.0; * * *******************************************************************************/ +libm_hidden_proto(round) double round ( double x ) { DblInHex argument, OldEnvironment; @@ -111,3 +112,4 @@ double round ( double x ) *******************************************************************************/ return ( x ); } +libm_hidden_def(round) diff --git a/libm/powerpc/s_trunc.c b/libm/powerpc/s_trunc.c index 7db7606b6..f793992a7 100644 --- a/libm/powerpc/s_trunc.c +++ b/libm/powerpc/s_trunc.c @@ -27,6 +27,7 @@ static const double twoTo52 = 4503599627370496.0; * * *******************************************************************************/ +libm_hidden_proto(trunc) double trunc ( double x ) { DblInHex argument,OldEnvironment; @@ -85,3 +86,4 @@ double trunc ( double x ) *******************************************************************************/ return ( x ); } +libm_hidden_def(trunc) diff --git a/libm/powerpc/w_scalb.c b/libm/powerpc/w_scalb.c index fe23ece53..e847fc78a 100644 --- a/libm/powerpc/w_scalb.c +++ b/libm/powerpc/w_scalb.c @@ -50,6 +50,7 @@ static const double twoToM1022 = 2.225073858507201383e-308; // 0x1p-1022 Calls: none. ***********************************************************************/ +libm_hidden_proto(scalb) double scalb ( double x, int n ) { DblInHex xInHex; @@ -85,3 +86,4 @@ double scalb ( double x, int n ) xInHex.words.hi = ( ( unsigned long ) ( n + 1023 ) ) << 20; return ( x * xInHex.dbl ); } +libm_hidden_def(scalb) diff --git a/libm/s_asinh.c b/libm/s_asinh.c index e9e3b9302..9e9a05660 100644 --- a/libm/s_asinh.c +++ b/libm/s_asinh.c @@ -28,6 +28,9 @@ 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 #else @@ -37,6 +40,7 @@ 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 @@ -63,3 +67,4 @@ huge= 1.00000000000000000000e+300; } if(hx>0) return w; else return -w; } +libm_hidden_def(asinh) diff --git a/libm/s_atan.c b/libm/s_atan.c index 53e48e45f..9c8035569 100644 --- a/libm/s_atan.c +++ b/libm/s_atan.c @@ -37,6 +37,8 @@ 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[] = { #else @@ -77,6 +79,7 @@ static double aT[] = { 1.62858201153657823623e-02, /* 0x3F90AD3A, 0xE322DA11 */ }; +libm_hidden_proto(atan) #ifdef __STDC__ static const double #else @@ -137,3 +140,4 @@ huge = 1.0e300; return (hx<0)? -z:z; } } +libm_hidden_def(atan) diff --git a/libm/s_cbrt.c b/libm/s_cbrt.c index cf75dcfc6..f4635874c 100644 --- a/libm/s_cbrt.c +++ b/libm/s_cbrt.c @@ -39,6 +39,7 @@ 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 @@ -91,3 +92,4 @@ G = 3.57142857142857150787e-01; /* 5/14 = 0x3FD6DB6D, 0xB6DB6DB7 */ SET_HIGH_WORD(t,high|sign); return(t); } +libm_hidden_def(cbrt) diff --git a/libm/s_ceil.c b/libm/s_ceil.c index c888e5190..46839410e 100644 --- a/libm/s_ceil.c +++ b/libm/s_ceil.c @@ -32,6 +32,7 @@ static const double huge = 1.0e300; static double huge = 1.0e300; #endif +libm_hidden_proto(ceil) #ifdef __STDC__ double ceil(double x) #else @@ -78,4 +79,4 @@ static double huge = 1.0e300; INSERT_WORDS(x,i0,i1); return x; } - +libm_hidden_def(ceil) diff --git a/libm/s_copysign.c b/libm/s_copysign.c index e276f733d..145a26cc1 100644 --- a/libm/s_copysign.c +++ b/libm/s_copysign.c @@ -23,6 +23,7 @@ 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 @@ -36,4 +37,4 @@ static char rcsid[] = "$NetBSD: s_copysign.c,v 1.8 1995/05/10 20:46:57 jtc Exp $ SET_HIGH_WORD(x,(hx&0x7fffffff)|(hy&0x80000000)); return x; } - +libm_hidden_def(copysign) diff --git a/libm/s_cos.c b/libm/s_cos.c index d458b746e..f05a8a53b 100644 --- a/libm/s_cos.c +++ b/libm/s_cos.c @@ -48,6 +48,7 @@ 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 @@ -80,3 +81,4 @@ static char rcsid[] = "$NetBSD: s_cos.c,v 1.7 1995/05/10 20:47:02 jtc Exp $"; } } } +libm_hidden_def(cos) diff --git a/libm/s_erf.c b/libm/s_erf.c index 44568abb2..0d24e2174 100644 --- a/libm/s_erf.c +++ b/libm/s_erf.c @@ -112,6 +112,8 @@ 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 #else @@ -191,6 +193,7 @@ 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 @@ -246,7 +249,9 @@ sb7 = -2.24409524465858183362e+01; /* 0xC03670E2, 0x42712D62 */ r = __ieee754_exp(-z*z-0.5625)*__ieee754_exp((z-x)*(z+x)+R/S); if(hx>=0) return one-r/x; else return r/x-one; } +libm_hidden_def(erf) +libm_hidden_proto(erfc) #ifdef __STDC__ double erfc(double x) #else @@ -312,3 +317,4 @@ sb7 = -2.24409524465858183362e+01; /* 0xC03670E2, 0x42712D62 */ if(hx>0) return tiny*tiny; else return two-tiny; } } +libm_hidden_def(erfc) diff --git a/libm/s_expm1.c b/libm/s_expm1.c index aee70835b..2adeead0b 100644 --- a/libm/s_expm1.c +++ b/libm/s_expm1.c @@ -131,6 +131,7 @@ 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 @@ -227,3 +228,4 @@ Q5 = -2.01099218183624371326e-07; /* BE8AFDB7 6E09C32D */ } return y; } +libm_hidden_def(expm1) diff --git a/libm/s_fabs.c b/libm/s_fabs.c index b9aacc282..c1538ca9e 100644 --- a/libm/s_fabs.c +++ b/libm/s_fabs.c @@ -21,6 +21,7 @@ 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 @@ -33,3 +34,4 @@ static char rcsid[] = "$NetBSD: s_fabs.c,v 1.7 1995/05/10 20:47:13 jtc Exp $"; SET_HIGH_WORD(x,high&0x7fffffff); return x; } +libm_hidden_def(fabs) diff --git a/libm/s_finite.c b/libm/s_finite.c index a3385bcde..70b9aadc4 100644 --- a/libm/s_finite.c +++ b/libm/s_finite.c @@ -33,4 +33,6 @@ static char rcsid[] = "$NetBSD: s_finite.c,v 1.8 1995/05/10 20:47:17 jtc Exp $"; GET_HIGH_WORD(hx,x); return (int)((u_int32_t)((hx&0x7fffffff)-0x7ff00000)>>31); } -weak_alias(__finite,finite) +libm_hidden_proto(finite) +strong_alias(__finite,finite) +libm_hidden_def(finite) diff --git a/libm/s_floor.c b/libm/s_floor.c index d7e5307e0..39b24c05b 100644 --- a/libm/s_floor.c +++ b/libm/s_floor.c @@ -32,6 +32,7 @@ static const double huge = 1.0e300; static double huge = 1.0e300; #endif +libm_hidden_proto(floor) #ifdef __STDC__ double floor(double x) #else @@ -79,3 +80,4 @@ static double huge = 1.0e300; INSERT_WORDS(x,i0,i1); return x; } +libm_hidden_def(floor) diff --git a/libm/s_frexp.c b/libm/s_frexp.c index 3feeffcfb..ed5e31395 100644 --- a/libm/s_frexp.c +++ b/libm/s_frexp.c @@ -34,6 +34,7 @@ static double #endif two54 = 1.80143985094819840000e+16; /* 0x43500000, 0x00000000 */ +libm_hidden_proto(frexp) #ifdef __STDC__ double frexp(double x, int *eptr) #else @@ -57,3 +58,4 @@ two54 = 1.80143985094819840000e+16; /* 0x43500000, 0x00000000 */ SET_HIGH_WORD(x,hx); return x; } +libm_hidden_def(frexp) diff --git a/libm/s_ilogb.c b/libm/s_ilogb.c index 3a6e964e8..db7c8553e 100644 --- a/libm/s_ilogb.c +++ b/libm/s_ilogb.c @@ -23,6 +23,7 @@ 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 @@ -49,3 +50,4 @@ static char rcsid[] = "$NetBSD: s_ilogb.c,v 1.9 1995/05/10 20:47:28 jtc Exp $"; else if (hx<0x7ff00000) return (hx>>20)-1023; else return 0x7fffffff; } +libm_hidden_def(ilogb) diff --git a/libm/s_ldexp.c b/libm/s_ldexp.c index bd3c90bac..ffc268b52 100644 --- a/libm/s_ldexp.c +++ b/libm/s_ldexp.c @@ -18,6 +18,10 @@ 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 @@ -30,3 +34,4 @@ static char rcsid[] = "$NetBSD: s_ldexp.c,v 1.6 1995/05/10 20:47:40 jtc Exp $"; if(!finite(value)||value==0.0) errno = ERANGE; return value; } +libm_hidden_def(ldexp) diff --git a/libm/s_llround.c b/libm/s_llround.c index a07238896..1db0c2836 100644 --- a/libm/s_llround.c +++ b/libm/s_llround.c @@ -22,7 +22,7 @@ #include "math_private.h" - +libm_hidden_proto(llround) long long int llround (double x) { @@ -73,3 +73,4 @@ llround (double x) return sign * result; } +libm_hidden_def(llround) diff --git a/libm/s_log1p.c b/libm/s_log1p.c index d6f5523e8..7acf6289b 100644 --- a/libm/s_log1p.c +++ b/libm/s_log1p.c @@ -104,6 +104,7 @@ static const double zero = 0.0; static double zero = 0.0; #endif +libm_hidden_proto(log1p) #ifdef __STDC__ double log1p(double x) #else @@ -172,3 +173,4 @@ static double zero = 0.0; if(k==0) return f-(hfsq-s*(hfsq+R)); else return k*ln2_hi-((hfsq-(s*(hfsq+R)+(k*ln2_lo+c)))-f); } +libm_hidden_def(log1p) diff --git a/libm/s_logb.c b/libm/s_logb.c index 85b539886..ff47ab476 100644 --- a/libm/s_logb.c +++ b/libm/s_logb.c @@ -23,6 +23,9 @@ 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 @@ -40,3 +43,4 @@ static char rcsid[] = "$NetBSD: s_logb.c,v 1.8 1995/05/10 20:47:50 jtc Exp $"; else return (double) (ix-1023); } +libm_hidden_def(logb) diff --git a/libm/s_lround.c b/libm/s_lround.c index 5b1d5467e..604004f7f 100644 --- a/libm/s_lround.c +++ b/libm/s_lround.c @@ -22,7 +22,7 @@ #include "math_private.h" - +libm_hidden_proto(lround) long int lround (double x) { @@ -73,3 +73,4 @@ lround (double x) return sign * result; } +libm_hidden_def(lround) diff --git a/libm/s_matherr.c b/libm/s_matherr.c index b76c51407..8c19f43bb 100644 --- a/libm/s_matherr.c +++ b/libm/s_matherr.c @@ -17,6 +17,7 @@ static char rcsid[] = "$NetBSD: s_matherr.c,v 1.6 1995/05/10 20:47:53 jtc Exp $" #include "math.h" #include "math_private.h" +libm_hidden_proto(matherr) #ifdef __STDC__ int matherr(struct exception *x) #else @@ -28,3 +29,4 @@ static char rcsid[] = "$NetBSD: s_matherr.c,v 1.6 1995/05/10 20:47:53 jtc Exp $" if(x->arg1!=x->arg1) return 0; return n; } +libm_hidden_def(matherr) diff --git a/libm/s_modf.c b/libm/s_modf.c index d5737c44a..0cf0e8356 100644 --- a/libm/s_modf.c +++ b/libm/s_modf.c @@ -33,6 +33,7 @@ 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 @@ -81,3 +82,4 @@ static double one = 1.0; } } } +libm_hidden_def(modf) diff --git a/libm/s_nextafter.c b/libm/s_nextafter.c index a1369ced0..bdc6f3a61 100644 --- a/libm/s_nextafter.c +++ b/libm/s_nextafter.c @@ -24,6 +24,7 @@ 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 @@ -77,3 +78,4 @@ static char rcsid[] = "$NetBSD: s_nextafter.c,v 1.8 1995/05/10 20:47:58 jtc Exp INSERT_WORDS(x,hx,lx); return x; } +libm_hidden_def(nextafter) diff --git a/libm/s_rint.c b/libm/s_rint.c index 7cff5e498..ce42aa99d 100644 --- a/libm/s_rint.c +++ b/libm/s_rint.c @@ -37,6 +37,7 @@ TWO52[2]={ -4.50359962737049600000e+15, /* 0xC3300000, 0x00000000 */ }; +libm_hidden_proto(rint) #ifdef __STDC__ double rint(double x) #else @@ -84,3 +85,4 @@ TWO52[2]={ w = TWO52[sx]+x; return w-TWO52[sx]; } +libm_hidden_def(rint) diff --git a/libm/s_round.c b/libm/s_round.c index b2d009520..03089482b 100644 --- a/libm/s_round.c +++ b/libm/s_round.c @@ -25,7 +25,7 @@ static const double huge = 1.0e300; - +libm_hidden_proto(round) double round (double x) { @@ -90,3 +90,4 @@ round (double x) INSERT_WORDS (x, i0, i1); return x; } +libm_hidden_def(round) diff --git a/libm/s_scalbn.c b/libm/s_scalbn.c index 9bb054ac4..6a7452485 100644 --- a/libm/s_scalbn.c +++ b/libm/s_scalbn.c @@ -24,6 +24,8 @@ 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 #else @@ -34,6 +36,7 @@ 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 @@ -65,3 +68,4 @@ tiny = 1.0e-300; SET_HIGH_WORD(x,(hx&0x800fffff)|(k<<20)); return x*twom54; } +libm_hidden_def(scalbn) diff --git a/libm/s_signgam.c b/libm/s_signgam.c index d67d5918e..13d2a1c34 100644 --- a/libm/s_signgam.c +++ b/libm/s_signgam.c @@ -1,3 +1,5 @@ #include "math.h" #include "math_private.h" +libm_hidden_proto(signgam) int signgam = 0; +libm_hidden_def(signgam) diff --git a/libm/s_significand.c b/libm/s_significand.c index 9aa5476b9..e47618cfc 100644 --- a/libm/s_significand.c +++ b/libm/s_significand.c @@ -23,6 +23,8 @@ 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) #else diff --git a/libm/s_sin.c b/libm/s_sin.c index bcdb7e4e4..ef9a36d7d 100644 --- a/libm/s_sin.c +++ b/libm/s_sin.c @@ -48,6 +48,7 @@ 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 @@ -80,3 +81,4 @@ static char rcsid[] = "$NetBSD: s_sin.c,v 1.7 1995/05/10 20:48:15 jtc Exp $"; } } } +libm_hidden_def(sin) diff --git a/libm/s_tan.c b/libm/s_tan.c index eca0f6cd5..bab343c73 100644 --- a/libm/s_tan.c +++ b/libm/s_tan.c @@ -47,6 +47,7 @@ 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 @@ -74,3 +75,4 @@ static char rcsid[] = "$NetBSD: s_tan.c,v 1.7 1995/05/10 20:48:18 jtc Exp $"; -1 -- n odd */ } } +libm_hidden_def(tan) diff --git a/libm/s_tanh.c b/libm/s_tanh.c index 6276e8971..ecabbef98 100644 --- a/libm/s_tanh.c +++ b/libm/s_tanh.c @@ -41,12 +41,16 @@ 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; #else static double one=1.0, two=2.0, tiny = 1.0e-300; #endif +libm_hidden_proto(tanh) #ifdef __STDC__ double tanh(double x) #else @@ -84,3 +88,4 @@ static double one=1.0, two=2.0, tiny = 1.0e-300; } return (jx>=0)? z: -z; } +libm_hidden_def(tanh) diff --git a/libm/w_acos.c b/libm/w_acos.c index 69d6732d2..ea00cf010 100644 --- a/libm/w_acos.c +++ b/libm/w_acos.c @@ -21,7 +21,7 @@ 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 @@ -41,3 +41,4 @@ static char rcsid[] = "$NetBSD: w_acos.c,v 1.6 1995/05/10 20:48:26 jtc Exp $"; return z; #endif } +libm_hidden_def(acos) diff --git a/libm/w_acosh.c b/libm/w_acosh.c index e332e3b2f..e0efb8a63 100644 --- a/libm/w_acosh.c +++ b/libm/w_acosh.c @@ -21,6 +21,7 @@ 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 @@ -40,3 +41,4 @@ static char rcsid[] = "$NetBSD: w_acosh.c,v 1.6 1995/05/10 20:48:31 jtc Exp $"; return z; #endif } +libm_hidden_def(acosh) diff --git a/libm/w_asin.c b/libm/w_asin.c index 1c663333c..ad156ef05 100644 --- a/libm/w_asin.c +++ b/libm/w_asin.c @@ -23,6 +23,7 @@ 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 @@ -42,3 +43,4 @@ static char rcsid[] = "$NetBSD: w_asin.c,v 1.6 1995/05/10 20:48:35 jtc Exp $"; return z; #endif } +libm_hidden_def(asin) diff --git a/libm/w_atan2.c b/libm/w_atan2.c index cd6b57b54..c2da4681c 100644 --- a/libm/w_atan2.c +++ b/libm/w_atan2.c @@ -20,7 +20,7 @@ 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 @@ -40,3 +40,4 @@ static char rcsid[] = "$NetBSD: w_atan2.c,v 1.6 1995/05/10 20:48:39 jtc Exp $"; return z; #endif } +libm_hidden_def(atan2) diff --git a/libm/w_atanh.c b/libm/w_atanh.c index afb44e382..18d0a4a80 100644 --- a/libm/w_atanh.c +++ b/libm/w_atanh.c @@ -21,7 +21,7 @@ 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 @@ -45,3 +45,4 @@ static char rcsid[] = "$NetBSD: w_atanh.c,v 1.6 1995/05/10 20:48:43 jtc Exp $"; return z; #endif } +libm_hidden_def(atanh) diff --git a/libm/w_cabs.c b/libm/w_cabs.c index 6743146c6..485e120db 100644 --- a/libm/w_cabs.c +++ b/libm/w_cabs.c @@ -8,6 +8,8 @@ #include <complex.h> #include <math.h> +libm_hidden_proto(hypot) + double cabs(double _Complex z) { return hypot(__real__ z, __imag__ z); diff --git a/libm/w_cosh.c b/libm/w_cosh.c index 2228032a1..c785af4b5 100644 --- a/libm/w_cosh.c +++ b/libm/w_cosh.c @@ -21,6 +21,7 @@ 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 @@ -40,3 +41,4 @@ static char rcsid[] = "$NetBSD: w_cosh.c,v 1.6 1995/05/10 20:48:47 jtc Exp $"; return z; #endif } +libm_hidden_def(cosh) diff --git a/libm/w_drem.c b/libm/w_drem.c index 0f6840934..c2f0d3b67 100644 --- a/libm/w_drem.c +++ b/libm/w_drem.c @@ -7,6 +7,8 @@ #include <math.h> +libm_hidden_proto(remainder) + double drem(x, y) double x, y; diff --git a/libm/w_exp.c b/libm/w_exp.c index 9226b03a9..b9b7ccc26 100644 --- a/libm/w_exp.c +++ b/libm/w_exp.c @@ -29,6 +29,7 @@ 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 @@ -51,3 +52,4 @@ u_threshold= -7.45133219101941108420e+02; /* 0xc0874910, 0xD52D3051 */ return z; #endif } +libm_hidden_def(exp) diff --git a/libm/w_fmod.c b/libm/w_fmod.c index 6956861f4..eed38372b 100644 --- a/libm/w_fmod.c +++ b/libm/w_fmod.c @@ -21,7 +21,7 @@ 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 @@ -41,3 +41,4 @@ static char rcsid[] = "$NetBSD: w_fmod.c,v 1.6 1995/05/10 20:48:55 jtc Exp $"; return z; #endif } +libm_hidden_def(fmod) diff --git a/libm/w_gamma.c b/libm/w_gamma.c index f5b00d024..46e54ec9f 100644 --- a/libm/w_gamma.c +++ b/libm/w_gamma.c @@ -24,6 +24,7 @@ static char rcsid[] = "$NetBSD: w_gamma.c,v 1.7 1995/11/20 22:06:43 jtc Exp $"; #include "math_private.h" extern int signgam; +libm_hidden_proto(signgam) #ifdef __STDC__ double gamma(double x) diff --git a/libm/w_hypot.c b/libm/w_hypot.c index 0504b3c30..e4b299d5f 100644 --- a/libm/w_hypot.c +++ b/libm/w_hypot.c @@ -21,7 +21,7 @@ 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 @@ -41,3 +41,4 @@ static char rcsid[] = "$NetBSD: w_hypot.c,v 1.6 1995/05/10 20:49:07 jtc Exp $"; return z; #endif } +libm_hidden_def(hypot) diff --git a/libm/w_lgamma.c b/libm/w_lgamma.c index 9d122a94f..d415546b7 100644 --- a/libm/w_lgamma.c +++ b/libm/w_lgamma.c @@ -24,7 +24,9 @@ static char rcsid[] = "$NetBSD: w_lgamma.c,v 1.6 1995/05/10 20:49:24 jtc Exp $"; #include "math_private.h" extern int signgam; +libm_hidden_proto(signgam) +libm_hidden_proto(lgamma) #ifdef __STDC__ double lgamma(double x) #else @@ -47,3 +49,4 @@ extern int signgam; return y; #endif } +libm_hidden_def(lgamma) diff --git a/libm/w_log.c b/libm/w_log.c index d7ac66c67..12c8282d5 100644 --- a/libm/w_log.c +++ b/libm/w_log.c @@ -21,7 +21,7 @@ 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 @@ -41,3 +41,4 @@ static char rcsid[] = "$NetBSD: w_log.c,v 1.6 1995/05/10 20:49:33 jtc Exp $"; return __kernel_standard(x,x,17); /* log(x<0) */ #endif } +libm_hidden_def(log) diff --git a/libm/w_log10.c b/libm/w_log10.c index 6e4345750..cf52f6e65 100644 --- a/libm/w_log10.c +++ b/libm/w_log10.c @@ -21,7 +21,7 @@ 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 @@ -44,3 +44,4 @@ static char rcsid[] = "$NetBSD: w_log10.c,v 1.6 1995/05/10 20:49:35 jtc Exp $"; return z; #endif } +libm_hidden_def(log10) diff --git a/libm/w_pow.c b/libm/w_pow.c index 571897cca..89cd08f73 100644 --- a/libm/w_pow.c +++ b/libm/w_pow.c @@ -19,7 +19,7 @@ #include "math.h" #include "math_private.h" - +libm_hidden_proto(pow) #ifdef __STDC__ double pow(double x, double y) /* wrapper pow */ #else @@ -59,3 +59,4 @@ return z; #endif } +libm_hidden_def(pow) diff --git a/libm/w_remainder.c b/libm/w_remainder.c index 0fbe9b0e4..be3dd02c9 100644 --- a/libm/w_remainder.c +++ b/libm/w_remainder.c @@ -21,6 +21,7 @@ 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 @@ -40,3 +41,4 @@ static char rcsid[] = "$NetBSD: w_remainder.c,v 1.6 1995/05/10 20:49:44 jtc Exp return z; #endif } +libm_hidden_def(remainder) diff --git a/libm/w_sinh.c b/libm/w_sinh.c index f9a6c60a9..bed9bb3f9 100644 --- a/libm/w_sinh.c +++ b/libm/w_sinh.c @@ -21,6 +21,7 @@ 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 @@ -40,3 +41,4 @@ static char rcsid[] = "$NetBSD: w_sinh.c,v 1.6 1995/05/10 20:49:51 jtc Exp $"; return z; #endif } +libm_hidden_def(sinh) diff --git a/libm/w_sqrt.c b/libm/w_sqrt.c index e9c6cb693..0a37249b1 100644 --- a/libm/w_sqrt.c +++ b/libm/w_sqrt.c @@ -21,6 +21,7 @@ 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 @@ -40,3 +41,4 @@ static char rcsid[] = "$NetBSD: w_sqrt.c,v 1.6 1995/05/10 20:49:55 jtc Exp $"; return z; #endif } +libm_hidden_def(sqrt) |