diff options
Diffstat (limited to 'sysdeps/ieee754/ldbl-96')
22 files changed, 22 insertions, 178 deletions
diff --git a/sysdeps/ieee754/ldbl-96/e_asinl.c b/sysdeps/ieee754/ldbl-96/e_asinl.c index d813039..02da3ad 100644 --- a/sysdeps/ieee754/ldbl-96/e_asinl.c +++ b/sysdeps/ieee754/ldbl-96/e_asinl.c @@ -61,11 +61,7 @@ #include "math.h" #include "math_private.h" -#ifdef __STDC__ static const long double -#else -static long double -#endif one = 1.0L, huge = 1.0e+4932L, pio2_hi = 1.5707963267948966192021943710788178805159986950457096099853515625L, @@ -91,14 +87,8 @@ static long double qS4 = -1.568433562487314651121702982333303458814E1L; /* 1.000000000000000000000000000000000000000E0 */ -#ifdef __STDC__ long double __ieee754_asinl (long double x) -#else -double -__ieee754_asinl (x) - long double x; -#endif { long double t, w, p, q, c, r, s; int32_t ix; diff --git a/sysdeps/ieee754/ldbl-96/e_hypotl.c b/sysdeps/ieee754/ldbl-96/e_hypotl.c index 5e0b37e..7a1ad3f 100644 --- a/sysdeps/ieee754/ldbl-96/e_hypotl.c +++ b/sysdeps/ieee754/ldbl-96/e_hypotl.c @@ -49,12 +49,7 @@ #include "math.h" #include "math_private.h" -#ifdef __STDC__ - long double __ieee754_hypotl(long double x, long double y) -#else - long double __ieee754_hypotl(x,y) - long double x, y; -#endif +long double __ieee754_hypotl(long double x, long double y) { long double a,b,t1,t2,y1,y2,w; u_int32_t j,k,ea,eb; diff --git a/sysdeps/ieee754/ldbl-96/s_asinhl.c b/sysdeps/ieee754/ldbl-96/s_asinhl.c index 9f37d48..415be5f 100644 --- a/sysdeps/ieee754/ldbl-96/s_asinhl.c +++ b/sysdeps/ieee754/ldbl-96/s_asinhl.c @@ -32,21 +32,12 @@ static char rcsid[] = "$NetBSD: $"; #include "math.h" #include "math_private.h" -#ifdef __STDC__ static const long double -#else -static long double -#endif one = 1.000000000000000000000e+00L, /* 0x3FFF, 0x00000000, 0x00000000 */ ln2 = 6.931471805599453094287e-01L, /* 0x3FFE, 0xB17217F7, 0xD1CF79AC */ huge= 1.000000000000000000e+4900L; -#ifdef __STDC__ - long double __asinhl(long double x) -#else - long double __asinhl(x) - long double x; -#endif +long double __asinhl(long double x) { long double t,w; int32_t hx,ix; diff --git a/sysdeps/ieee754/ldbl-96/s_ceill.c b/sysdeps/ieee754/ldbl-96/s_ceill.c index b99097f..96cc270 100644 --- a/sysdeps/ieee754/ldbl-96/s_ceill.c +++ b/sysdeps/ieee754/ldbl-96/s_ceill.c @@ -30,18 +30,9 @@ static char rcsid[] = "$NetBSD: $"; #include "math.h" #include "math_private.h" -#ifdef __STDC__ static const long double huge = 1.0e4930; -#else -static long double huge = 1.0e4930; -#endif -#ifdef __STDC__ - long double __ceill(long double x) -#else - long double __ceill(x) - long double x; -#endif +long double __ceill(long double x) { int32_t i1,j0; u_int32_t i,j,se,i0,sx; diff --git a/sysdeps/ieee754/ldbl-96/s_copysignl.c b/sysdeps/ieee754/ldbl-96/s_copysignl.c index 9976575..3a390e9 100644 --- a/sysdeps/ieee754/ldbl-96/s_copysignl.c +++ b/sysdeps/ieee754/ldbl-96/s_copysignl.c @@ -27,12 +27,7 @@ static char rcsid[] = "$NetBSD: $"; #include "math.h" #include "math_private.h" -#ifdef __STDC__ - long double __copysignl(long double x, long double y) -#else - long double __copysignl(x,y) - long double x,y; -#endif +long double __copysignl(long double x, long double y) { u_int32_t es1,es2; GET_LDOUBLE_EXP(es1,x); diff --git a/sysdeps/ieee754/ldbl-96/s_cosl.c b/sysdeps/ieee754/ldbl-96/s_cosl.c index e33abc9..6cfebf6 100644 --- a/sysdeps/ieee754/ldbl-96/s_cosl.c +++ b/sysdeps/ieee754/ldbl-96/s_cosl.c @@ -53,12 +53,7 @@ static char rcsid[] = "$NetBSD: $"; #include "math.h" #include "math_private.h" -#ifdef __STDC__ - long double __cosl(long double x) -#else - long double __cosl(x) - long double x; -#endif +long double __cosl(long double x) { long double y[2],z=0.0; int32_t n, se, i0, i1; diff --git a/sysdeps/ieee754/ldbl-96/s_erfl.c b/sysdeps/ieee754/ldbl-96/s_erfl.c index 7406c36..c614f10 100644 --- a/sysdeps/ieee754/ldbl-96/s_erfl.c +++ b/sysdeps/ieee754/ldbl-96/s_erfl.c @@ -107,11 +107,7 @@ #include "math.h" #include "math_private.h" -#ifdef __STDC__ static const long double -#else -static long double -#endif tiny = 1e-4931L, half = 0.5L, one = 1.0L, @@ -253,14 +249,8 @@ tiny = 1e-4931L, /* 1.000000000000000000000000000000000000000E0 */ }; -#ifdef __STDC__ long double __erfl (long double x) -#else -long double -__erfl (x) - long double x; -#endif { long double R, S, P, Q, s, y, z, r; int32_t ix, i; @@ -341,14 +331,8 @@ __erfl (x) } weak_alias (__erfl, erfl) -#ifdef __STDC__ - long double - __erfcl (long double x) -#else - long double - __erfcl (x) - long double x; -#endif +long double +__erfcl (long double x) { int32_t hx, ix; long double R, S, P, Q, s, y, z, r; diff --git a/sysdeps/ieee754/ldbl-96/s_fabsl.c b/sysdeps/ieee754/ldbl-96/s_fabsl.c index f717050..3f5106d 100644 --- a/sysdeps/ieee754/ldbl-96/s_fabsl.c +++ b/sysdeps/ieee754/ldbl-96/s_fabsl.c @@ -25,12 +25,7 @@ static char rcsid[] = "$NetBSD: $"; #include "math.h" #include "math_private.h" -#ifdef __STDC__ - long double __fabsl(long double x) -#else - long double __fabsl(x) - long double x; -#endif +long double __fabsl(long double x) { u_int32_t exp; GET_LDOUBLE_EXP(exp,x); diff --git a/sysdeps/ieee754/ldbl-96/s_finitel.c b/sysdeps/ieee754/ldbl-96/s_finitel.c index 437ea87..f30a4d2 100644 --- a/sysdeps/ieee754/ldbl-96/s_finitel.c +++ b/sysdeps/ieee754/ldbl-96/s_finitel.c @@ -26,12 +26,7 @@ static char rcsid[] = "$NetBSD: $"; #include "math.h" #include "math_private.h" -#ifdef __STDC__ - int __finitel(long double x) -#else - int __finitel(x) - long double x; -#endif +int __finitel(long double x) { int32_t exp; GET_LDOUBLE_EXP(exp,x); diff --git a/sysdeps/ieee754/ldbl-96/s_floorl.c b/sysdeps/ieee754/ldbl-96/s_floorl.c index 7115dba..d44e36e 100644 --- a/sysdeps/ieee754/ldbl-96/s_floorl.c +++ b/sysdeps/ieee754/ldbl-96/s_floorl.c @@ -30,18 +30,9 @@ static char rcsid[] = "$NetBSD: $"; #include "math.h" #include "math_private.h" -#ifdef __STDC__ static const long double huge = 1.0e4930; -#else -static long double huge = 1.0e4930; -#endif -#ifdef __STDC__ - long double __floorl(long double x) -#else - long double __floorl(x) - long double x; -#endif +long double __floorl(long double x) { int32_t i1,j0; u_int32_t i,j,se,i0,sx; diff --git a/sysdeps/ieee754/ldbl-96/s_frexpl.c b/sysdeps/ieee754/ldbl-96/s_frexpl.c index 0caa90b..57444c5 100644 --- a/sysdeps/ieee754/ldbl-96/s_frexpl.c +++ b/sysdeps/ieee754/ldbl-96/s_frexpl.c @@ -32,11 +32,7 @@ static char rcsid[] = "$NetBSD: $"; #include "math.h" #include "math_private.h" -#ifdef __STDC__ static const long double -#else -static long double -#endif #if LDBL_MANT_DIG == 64 two65 = 3.68934881474191032320e+19L; /* 0x4040, 0x80000000, 0x00000000 */ #else @@ -44,12 +40,7 @@ two65 = 3.68934881474191032320e+19L; /* 0x4040, 0x80000000, 0x00000000 */ #endif -#ifdef __STDC__ - long double __frexpl(long double x, int *eptr) -#else - long double __frexpl(x, eptr) - long double x; int *eptr; -#endif +long double __frexpl(long double x, int *eptr) { u_int32_t se, hx, ix, lx; GET_LDOUBLE_WORDS(se,hx,lx,x); diff --git a/sysdeps/ieee754/ldbl-96/s_ilogbl.c b/sysdeps/ieee754/ldbl-96/s_ilogbl.c index d11e4c2..fd030a7 100644 --- a/sysdeps/ieee754/ldbl-96/s_ilogbl.c +++ b/sysdeps/ieee754/ldbl-96/s_ilogbl.c @@ -29,12 +29,7 @@ static char rcsid[] = "$NetBSD: $"; #include "math.h" #include "math_private.h" -#ifdef __STDC__ - int __ilogbl(long double x) -#else - int __ilogbl(x) - long double x; -#endif +int __ilogbl(long double x) { int32_t es,hx,lx,ix; diff --git a/sysdeps/ieee754/ldbl-96/s_isnanl.c b/sysdeps/ieee754/ldbl-96/s_isnanl.c index 5aa9414..9814aa7 100644 --- a/sysdeps/ieee754/ldbl-96/s_isnanl.c +++ b/sysdeps/ieee754/ldbl-96/s_isnanl.c @@ -26,12 +26,7 @@ static char rcsid[] = "$NetBSD: $"; #include "math.h" #include "math_private.h" -#ifdef __STDC__ - int __isnanl(long double x) -#else - int __isnanl(x) - long double x; -#endif +int __isnanl(long double x) { int32_t se,hx,lx; GET_LDOUBLE_WORDS(se,hx,lx,x); diff --git a/sysdeps/ieee754/ldbl-96/s_logbl.c b/sysdeps/ieee754/ldbl-96/s_logbl.c index 2cd9d10..27f5ed7 100644 --- a/sysdeps/ieee754/ldbl-96/s_logbl.c +++ b/sysdeps/ieee754/ldbl-96/s_logbl.c @@ -27,12 +27,7 @@ static char rcsid[] = "$NetBSD: $"; #include "math.h" #include "math_private.h" -#ifdef __STDC__ - long double __logbl(long double x) -#else - long double __logbl(x) - long double x; -#endif +long double __logbl(long double x) { int32_t es,lx,ix; GET_LDOUBLE_WORDS(es,ix,lx,x); diff --git a/sysdeps/ieee754/ldbl-96/s_nearbyintl.c b/sysdeps/ieee754/ldbl-96/s_nearbyintl.c index 92c3ebf..e9ba502 100644 --- a/sysdeps/ieee754/ldbl-96/s_nearbyintl.c +++ b/sysdeps/ieee754/ldbl-96/s_nearbyintl.c @@ -29,22 +29,13 @@ #include "math.h" #include "math_private.h" -#ifdef __STDC__ static const long double -#else -static long double -#endif TWO63[2]={ 9.223372036854775808000000e+18, /* 0x403E, 0x00000000, 0x00000000 */ -9.223372036854775808000000e+18 /* 0xC03E, 0x00000000, 0x00000000 */ }; -#ifdef __STDC__ - long double __nearbyintl(long double x) -#else - long double __nearbyintl(x) - long double x; -#endif +long double __nearbyintl(long double x) { fenv_t env; int32_t se,j0,sx; diff --git a/sysdeps/ieee754/ldbl-96/s_nextafterl.c b/sysdeps/ieee754/ldbl-96/s_nextafterl.c index ed0877d..66d7580 100644 --- a/sysdeps/ieee754/ldbl-96/s_nextafterl.c +++ b/sysdeps/ieee754/ldbl-96/s_nextafterl.c @@ -28,12 +28,7 @@ static char rcsid[] = "$NetBSD: $"; #include "math.h" #include <math_private.h> -#ifdef __STDC__ - long double __nextafterl(long double x, long double y) -#else - long double __nextafterl(x,y) - long double x,y; -#endif +long double __nextafterl(long double x, long double y) { int32_t hx,hy,ix,iy; u_int32_t lx,ly,esx,esy; diff --git a/sysdeps/ieee754/ldbl-96/s_nexttoward.c b/sysdeps/ieee754/ldbl-96/s_nexttoward.c index e304384..2ea61a7 100644 --- a/sysdeps/ieee754/ldbl-96/s_nexttoward.c +++ b/sysdeps/ieee754/ldbl-96/s_nexttoward.c @@ -29,13 +29,7 @@ static char rcsid[] = "$NetBSD: $"; #include <math_private.h> #include <float.h> -#ifdef __STDC__ - double __nexttoward(double x, long double y) -#else - double __nexttoward(x,y) - double x; - long double y; -#endif +double __nexttoward(double x, long double y) { int32_t hx,ix,iy; u_int32_t lx,hy,ly,esy; diff --git a/sysdeps/ieee754/ldbl-96/s_nexttowardf.c b/sysdeps/ieee754/ldbl-96/s_nexttowardf.c index 6357975..665a8c6 100644 --- a/sysdeps/ieee754/ldbl-96/s_nexttowardf.c +++ b/sysdeps/ieee754/ldbl-96/s_nexttowardf.c @@ -21,13 +21,7 @@ static char rcsid[] = "$NetBSD: $"; #include <math_private.h> #include <float.h> -#ifdef __STDC__ - float __nexttowardf(float x, long double y) -#else - float __nexttowardf(x,y) - float x; - long double y; -#endif +float __nexttowardf(float x, long double y) { int32_t hx,ix,iy; u_int32_t hy,ly,esy; diff --git a/sysdeps/ieee754/ldbl-96/s_rintl.c b/sysdeps/ieee754/ldbl-96/s_rintl.c index 9d4777d..b69f306 100644 --- a/sysdeps/ieee754/ldbl-96/s_rintl.c +++ b/sysdeps/ieee754/ldbl-96/s_rintl.c @@ -31,22 +31,13 @@ static char rcsid[] = "$NetBSD: $"; #include "math.h" #include "math_private.h" -#ifdef __STDC__ static const long double -#else -static long double -#endif TWO63[2]={ 9.223372036854775808000000e+18, /* 0x403E, 0x00000000, 0x00000000 */ -9.223372036854775808000000e+18 /* 0xC03E, 0x00000000, 0x00000000 */ }; -#ifdef __STDC__ - long double __rintl(long double x) -#else - long double __rintl(x) - long double x; -#endif +long double __rintl(long double x) { int32_t se,j0,sx; u_int32_t i,i0,i1; diff --git a/sysdeps/ieee754/ldbl-96/s_sinl.c b/sysdeps/ieee754/ldbl-96/s_sinl.c index b939bd6..4f7ed91 100644 --- a/sysdeps/ieee754/ldbl-96/s_sinl.c +++ b/sysdeps/ieee754/ldbl-96/s_sinl.c @@ -53,12 +53,7 @@ static char rcsid[] = "$NetBSD: $"; #include "math.h" #include "math_private.h" -#ifdef __STDC__ - long double __sinl(long double x) -#else - long double __sinl(x) - long double x; -#endif +long double __sinl(long double x) { long double y[2],z=0.0; int32_t n, se, i0, i1; diff --git a/sysdeps/ieee754/ldbl-96/s_tanhl.c b/sysdeps/ieee754/ldbl-96/s_tanhl.c index 45cea90..4547517 100644 --- a/sysdeps/ieee754/ldbl-96/s_tanhl.c +++ b/sysdeps/ieee754/ldbl-96/s_tanhl.c @@ -45,18 +45,9 @@ static char rcsid[] = "$NetBSD: $"; #include "math.h" #include "math_private.h" -#ifdef __STDC__ static const long double one=1.0, two=2.0, tiny = 1.0e-4900L; -#else -static long double one=1.0, two=2.0, tiny = 1.0e-4900L; -#endif -#ifdef __STDC__ - long double __tanhl(long double x) -#else - long double __tanhl(x) - long double x; -#endif +long double __tanhl(long double x) { long double t,z; int32_t se; diff --git a/sysdeps/ieee754/ldbl-96/s_tanl.c b/sysdeps/ieee754/ldbl-96/s_tanl.c index 97a0b27..8e16860 100644 --- a/sysdeps/ieee754/ldbl-96/s_tanl.c +++ b/sysdeps/ieee754/ldbl-96/s_tanl.c @@ -51,12 +51,7 @@ static char rcsid[] = "$NetBSD: $"; #include "math.h" #include "math_private.h" -#ifdef __STDC__ - long double __tanl(long double x) -#else - long double __tanl(x) - long double x; -#endif +long double __tanl(long double x) { long double y[2],z=0.0; int32_t n, se; |