diff options
Diffstat (limited to 'libm')
| -rw-r--r-- | libm/Makefile.in | 7 | ||||
| -rw-r--r-- | libm/float_wrappers.c | 13 | ||||
| -rw-r--r-- | libm/ldouble_wrappers.c | 25 |
3 files changed, 32 insertions, 13 deletions
diff --git a/libm/Makefile.in b/libm/Makefile.in index b490ec8bf..fd36833b2 100644 --- a/libm/Makefile.in +++ b/libm/Makefile.in @@ -69,12 +69,13 @@ libm_CSRC := \ 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_hypot.c w_j0.c w_j1.c w_jn.c w_lgamma.c w_lgamma_r.c \ - w_log.c w_log2.c w_log10.c w_pow.c w_remainder.c w_scalb.c w_sinh.c \ + w_log.c w_log2.c w_log10.c w_pow.c w_remainder.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_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 +libm_CSRC += $(if $(UCLIBC_SUSV3_LEGACY),w_scalb.c) # REMOVED: w_gamma_r.c FL_MOBJ := \ acosf.o acoshf.o asinf.o asinhf.o atan2f.o atanf.o atanhf.o cbrtf.o \ @@ -84,9 +85,9 @@ FL_MOBJ := \ log1pf.o log2f.o logbf.o logf.o lrintf.o lroundf.o modff.o nearbyintf.o \ nextafterf.o powf.o remainderf.o remquof.o rintf.o roundf.o \ scalblnf.o scalbnf.o sinf.o sinhf.o sqrtf.o tanf.o tanhf.o \ - tgammaf.o truncf.o cargf.o llrintf.o + tgammaf.o truncf.o cabsf.o cargf.o llrintf.o -LD_MOBJ := acoshl.o acosl.o asinhl.o asinl.o atan2l.o atanhl.o atanl.o cargl.o cbrtl.o \ +LD_MOBJ := acoshl.o acosl.o asinhl.o asinl.o atan2l.o atanhl.o atanl.o cabsl.o cargl.o cbrtl.o \ ceill.o copysignl.o coshl.o cosl.o erfcl.o erfl.o exp2l.o expl.o \ expm1l.o fabsl.o finitel.o fdiml.o floorl.o fmal.o fmaxl.o fminl.o fmodl.o fpclassifyl.o \ frexpl.o gammal.o hypotl.o ilogbl.o isinfl.o isnanl.o ldexpl.o lgammal.o llrintl.o \ diff --git a/libm/float_wrappers.c b/libm/float_wrappers.c index 8efaeed1f..dc315e75c 100644 --- a/libm/float_wrappers.c +++ b/libm/float_wrappers.c @@ -24,8 +24,6 @@ #undef L_nearbyintf /*float nearbyintf(float);*/ #undef L_nexttowardf /*float nexttowardf(float, long double);*/ #undef L_remquof /*float remquof(float, float, int *);*/ -#undef L_scalblnf /*float scalblnf(float, long);*/ -#undef L_tgammaf /*float tgammaf(float);*/ /* Implement the following, as defined by SuSv3 */ #if 0 @@ -36,6 +34,7 @@ float asinhf(float); float atan2f(float, float); float atanf(float); float atanhf(float); +float cabsf(float complex); float cargf(float complex); float cbrtf(float); float ceilf(float); @@ -66,12 +65,14 @@ float powf(float, float); float remainderf(float, float); float rintf(float); float roundf(float); +float scalblnf(float, long); float scalbnf(float, int); float sinf(float); float sinhf(float); float sqrtf(float); float tanf(float); float tanhf(float); +float tgammaf(float); #endif @@ -131,6 +132,14 @@ float atanhf (float x) #endif +#ifdef L_cabsf +float cabsf (float complex x) +{ + return (float) cabs( (double complex)x ); +} +#endif + + #ifdef L_cargf float cargf (float complex x) { diff --git a/libm/ldouble_wrappers.c b/libm/ldouble_wrappers.c index 3567c61aa..76365fc23 100644 --- a/libm/ldouble_wrappers.c +++ b/libm/ldouble_wrappers.c @@ -23,6 +23,7 @@ long double asinl(long double); long double atan2l(long double, long double); long double atanhl(long double); long double atanl(long double); +long double cabsl(long double complex); long double cargl(long double complex); long double cbrtl(long double); long double ceill(long double); @@ -131,6 +132,14 @@ long double atanl (long double x) #endif +#ifdef L_cabsl +long double cabsl (long double complex x) +{ + return (long double) cabs( (double complex)x ); +} +#endif + + #ifdef L_cargl long double cargl (long double complex x) { @@ -276,9 +285,9 @@ long double fmodl (long double x, long double y) #ifdef L_frexpl -long double frexpl (long double x, int *exp) +long double frexpl (long double x, int *exponent) { - return (long double) frexp( (double)x, exp ); + return (long double) frexp( (double)x, exponent ); } #endif @@ -300,9 +309,9 @@ int ilogbl (long double x) #ifdef L_ldexpl -long double ldexpl (long double x, int exp) +long double ldexpl (long double x, int exponent) { - return (long double) ldexp( (double)x, exp ); + return (long double) ldexp( (double)x, exponent ); } #endif @@ -463,17 +472,17 @@ long double roundl (long double x) #ifdef L_scalblnl -long double scalblnl (long double x, long exp) +long double scalblnl (long double x, long exponent) { - return (long double) scalbln( (double)x, exp ); + return (long double) scalbln( (double)x, exponent ); } #endif #ifdef L_scalbnl -long double scalbnl (long double x, int exp) +long double scalbnl (long double x, int exponent) { - return (long double) scalbn( (double)x, exp ); + return (long double) scalbn( (double)x, exponent ); } #endif |