فهرست منبع

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.

Denis Vlasenko 17 سال پیش
والد
کامیت
40c881d1c5
2فایلهای تغییر یافته به همراه7 افزوده شده و 64 حذف شده
  1. 1 1
      libm/Makefile.in
  2. 6 63
      libm/ldouble_wrappers.c

+ 1 - 1
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

+ 6 - 63
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