diff options
Diffstat (limited to 'libm/ldouble_wrappers.c')
| -rw-r--r-- | libm/ldouble_wrappers.c | 25 |
1 files changed, 17 insertions, 8 deletions
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 |