From 40c881d1c51aa8a8200be61e5c5c393d03687fe0 Mon Sep 17 00:00:00 2001 From: Denis Vlasenko Date: Mon, 9 Feb 2009 13:07:37 +0000 Subject: ldouble_wrappers.c: fix __signbitl, it was calling itself by mistake. remove wrong casts to long double of long return values. remove lots of empty lines. --- libm/Makefile.in | 2 +- libm/ldouble_wrappers.c | 69 +++++-------------------------------------------- 2 files changed, 7 insertions(+), 64 deletions(-) (limited to 'libm') diff --git a/libm/Makefile.in b/libm/Makefile.in index 4b55b3a3a..f708c6ac4 100644 --- a/libm/Makefile.in +++ b/libm/Makefile.in @@ -87,7 +87,7 @@ LD_MOBJ := acoshl.o acosl.o asinhl.o asinl.o atan2l.o atanhl.o atanl.o cargl.o c frexpl.o gammal.o hypotl.o ilogbl.o isinfl.o isnanl.o ldexpl.o lgammal.o llrintl.o \ llroundl.o log10l.o log1pl.o XXXlog2l.o logbl.o logl.o lrintl.o lroundl.o \ modfl.o nearbyintl.o nextafterl.o XXXnexttowardl.o powl.o remainderl.o \ - remquol.o rintl.o roundl.o scalblnl.o scalbnl.o signbitl.o sinhl.o sinl.o sqrtl.o \ + remquol.o rintl.o roundl.o scalblnl.o scalbnl.o __signbitl.o sinhl.o sinl.o sqrtl.o \ tanhl.o tanl.o tgammal.o truncl.o else # This list of math functions was taken from POSIX/IEEE 1003.1b-1993 diff --git a/libm/ldouble_wrappers.c b/libm/ldouble_wrappers.c index 1af6b1b9f..688bff4bc 100644 --- a/libm/ldouble_wrappers.c +++ b/libm/ldouble_wrappers.c @@ -85,7 +85,6 @@ long double acoshl (long double x) } #endif - #ifdef L_acosl long double acosl (long double x) { @@ -93,7 +92,6 @@ long double acosl (long double x) } #endif - #ifdef L_asinhl long double asinhl (long double x) { @@ -101,7 +99,6 @@ long double asinhl (long double x) } #endif - #ifdef L_asinl long double asinl (long double x) { @@ -109,7 +106,6 @@ long double asinl (long double x) } #endif - #ifdef L_atan2l long double atan2l (long double x, long double y) { @@ -117,7 +113,6 @@ long double atan2l (long double x, long double y) } #endif - #ifdef L_atanhl long double atanhl (long double x) { @@ -125,7 +120,6 @@ long double atanhl (long double x) } #endif - #ifdef L_atanl long double atanl (long double x) { @@ -133,7 +127,6 @@ long double atanl (long double x) } #endif - #ifdef L_cargl long double cargl (long double complex x) { @@ -141,7 +134,6 @@ long double cargl (long double complex x) } #endif - #ifdef L_cbrtl long double cbrtl (long double x) { @@ -149,7 +141,6 @@ long double cbrtl (long double x) } #endif - #ifdef L_ceill long double ceill (long double x) { @@ -157,7 +148,6 @@ long double ceill (long double x) } #endif - #ifdef L_copysignl long double copysignl (long double x, long double y) { @@ -165,7 +155,6 @@ long double copysignl (long double x, long double y) } #endif - #ifdef L_coshl long double coshl (long double x) { @@ -173,7 +162,6 @@ long double coshl (long double x) } #endif - #ifdef L_cosl long double cosl (long double x) { @@ -181,7 +169,6 @@ long double cosl (long double x) } #endif - #ifdef L_erfcl long double erfcl (long double x) { @@ -189,7 +176,6 @@ long double erfcl (long double x) } #endif - #ifdef L_erfl long double erfl (long double x) { @@ -197,7 +183,6 @@ long double erfl (long double x) } #endif - #ifdef L_exp2l long double exp2l (long double x) { @@ -205,7 +190,6 @@ long double exp2l (long double x) } #endif - #ifdef L_expl long double expl (long double x) { @@ -213,7 +197,6 @@ long double expl (long double x) } #endif - #ifdef L_expm1l long double expm1l (long double x) { @@ -221,7 +204,6 @@ long double expm1l (long double x) } #endif - #ifdef L_fabsl long double fabsl (long double x) { @@ -229,7 +211,6 @@ long double fabsl (long double x) } #endif - #ifdef L_fdiml long double fdiml (long double x, long double y) { @@ -237,7 +218,6 @@ long double fdiml (long double x, long double y) } #endif - #ifdef L_floorl long double floorl (long double x) { @@ -245,7 +225,6 @@ long double floorl (long double x) } #endif - #ifdef L_fmal long double fmal (long double x, long double y, long double z) { @@ -253,7 +232,6 @@ long double fmal (long double x, long double y, long double z) } #endif - #ifdef L_fmaxl long double fmaxl (long double x, long double y) { @@ -261,7 +239,6 @@ long double fmaxl (long double x, long double y) } #endif - #ifdef L_fminl long double fminl (long double x, long double y) { @@ -269,7 +246,6 @@ long double fminl (long double x, long double y) } #endif - #ifdef L_fmodl long double fmodl (long double x, long double y) { @@ -277,7 +253,6 @@ long double fmodl (long double x, long double y) } #endif - #ifdef L_frexpl long double frexpl (long double x, int *exp) { @@ -285,7 +260,6 @@ long double frexpl (long double x, int *exp) } #endif - #ifdef L_hypotl long double hypotl (long double x, long double y) { @@ -293,7 +267,6 @@ long double hypotl (long double x, long double y) } #endif - #ifdef L_ilogbl int ilogbl (long double x) { @@ -301,7 +274,6 @@ int ilogbl (long double x) } #endif - #ifdef L_ldexpl long double ldexpl (long double x, int exp) { @@ -309,7 +281,6 @@ long double ldexpl (long double x, int exp) } #endif - #ifdef L_lgammal long double lgammal (long double x) { @@ -317,19 +288,17 @@ long double lgammal (long double x) } #endif - #ifdef L_llrintl long long llrintl (long double x) { - return (long double) llrint( (double)x ); + return llrint( (double)x ); } #endif - #ifdef L_llroundl long long llroundl (long double x) { - return (long double) llround( (double)x ); + return llround( (double)x ); } #endif @@ -340,7 +309,6 @@ long double log10l (long double x) } #endif - #ifdef L_log1pl long double log1pl (long double x) { @@ -348,7 +316,6 @@ long double log1pl (long double x) } #endif - #ifdef L_log2l long double log2l (long double x) { @@ -356,7 +323,6 @@ long double log2l (long double x) } #endif - #ifdef L_logbl long double logbl (long double x) { @@ -364,7 +330,6 @@ long double logbl (long double x) } #endif - #ifdef L_logl long double logl (long double x) { @@ -372,23 +337,20 @@ long double logl (long double x) } #endif - #ifdef L_lrintl long lrintl (long double x) { - return (long double) lrint( (double)x ); + return lrint( (double)x ); } #endif - #ifdef L_lroundl long lroundl (long double x) { - return (long double) lround( (double)x ); + return lround( (double)x ); } #endif - #ifdef L_modfl long double modfl (long double x, long double *iptr) { @@ -396,11 +358,9 @@ long double modfl (long double x, long double *iptr) result = modf ( x, &y ); *iptr = (long double)y; return (long double) result; - } #endif - #ifdef L_nearbyintl long double nearbyintl (long double x) { @@ -408,7 +368,6 @@ long double nearbyintl (long double x) } #endif - #ifdef L_nextafterl long double nextafterl (long double x, long double y) { @@ -416,7 +375,6 @@ long double nextafterl (long double x, long double y) } #endif - #ifdef L_nexttowardl long double nexttowardl (long double x, long double y) { @@ -424,7 +382,6 @@ long double nexttowardl (long double x, long double y) } #endif - #ifdef L_powl long double powl (long double x, long double y) { @@ -432,7 +389,6 @@ long double powl (long double x, long double y) } #endif - #ifdef L_remainderl long double remainderl (long double x, long double y) { @@ -440,7 +396,6 @@ long double remainderl (long double x, long double y) } #endif - #ifdef L_remquol long double remquol (long double x, long double y, int *quo) { @@ -448,7 +403,6 @@ long double remquol (long double x, long double y, int *quo) } #endif - #ifdef L_rintl long double rintl (long double x) { @@ -456,7 +410,6 @@ long double rintl (long double x) } #endif - #ifdef L_roundl long double roundl (long double x) { @@ -464,7 +417,6 @@ long double roundl (long double x) } #endif - #ifdef L_scalblnl long double scalblnl (long double x, long exp) { @@ -472,7 +424,6 @@ long double scalblnl (long double x, long exp) } #endif - #ifdef L_scalbnl long double scalbnl (long double x, int exp) { @@ -480,7 +431,6 @@ long double scalbnl (long double x, int exp) } #endif - #ifdef L_sinhl long double sinhl (long double x) { @@ -488,7 +438,6 @@ long double sinhl (long double x) } #endif - #ifdef L_sinl long double sinl (long double x) { @@ -496,7 +445,6 @@ long double sinl (long double x) } #endif - #ifdef L_sqrtl long double sqrtl (long double x) { @@ -504,7 +452,6 @@ long double sqrtl (long double x) } #endif - #ifdef L_tanhl long double tanhl (long double x) { @@ -512,7 +459,6 @@ long double tanhl (long double x) } #endif - #ifdef L_tanl long double tanl (long double x) { @@ -520,7 +466,6 @@ long double tanl (long double x) } #endif - #ifdef L_tgammal long double tgammal (long double x) { @@ -528,7 +473,6 @@ long double tgammal (long double x) } #endif - #ifdef L_truncl long double truncl (long double x) { @@ -536,7 +480,6 @@ long double truncl (long double x) } #endif - #ifdef __DO_C99_MATH__ #ifdef L_fpclassifyl @@ -553,10 +496,10 @@ int __finitel (long double x) } #endif -#ifdef L_signbitl +#ifdef L___signbitl int __signbitl (long double x) { - return __signbitl ( (double)x ); + return __signbit ( (double)x ); } #endif -- cgit v1.2.3