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.

diff --git a/libm/Makefile.in b/libm/Makefile.in
index 4b55b3a..f708c6a 100644 (file)
--- 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 1af6b1b..688bff4 100644 (file)
--- 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