diff options
Diffstat (limited to 'sysdeps/ieee754/ldbl-128')
26 files changed, 23 insertions, 224 deletions
diff --git a/sysdeps/ieee754/ldbl-128/e_asinl.c b/sysdeps/ieee754/ldbl-128/e_asinl.c index e82b03f..12791c9 100644 --- a/sysdeps/ieee754/ldbl-128/e_asinl.c +++ b/sysdeps/ieee754/ldbl-128/e_asinl.c @@ -63,11 +63,7 @@ #include "math_private.h" long double sqrtl (long double); -#ifdef __STDC__ static const long double -#else -static long double -#endif one = 1.0L, huge = 1.0e+4932L, pio2_hi = 1.5707963267948966192313216916397514420986L, @@ -132,14 +128,8 @@ static long double -#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, sign, flag; diff --git a/sysdeps/ieee754/ldbl-128/k_tanl.c b/sysdeps/ieee754/ldbl-128/k_tanl.c index 3cb8ae3..a08a239 100644 --- a/sysdeps/ieee754/ldbl-128/k_tanl.c +++ b/sysdeps/ieee754/ldbl-128/k_tanl.c @@ -58,11 +58,7 @@ #include "math.h" #include "math_private.h" -#ifdef __STDC__ static const long double -#else -static long double -#endif one = 1.0L, pio4hi = 7.8539816339744830961566084581987569936977E-1L, pio4lo = 2.1679525325309452561992610065108379921906E-35L, @@ -85,15 +81,8 @@ static long double /* 1.000000000000000000000000000000000000000E0 */ -#ifdef __STDC__ long double __kernel_tanl (long double x, long double y, int iy) -#else -long double -__kernel_tanl (x, y, iy) - long double x, y; - int iy; -#endif { long double z, r, v, w, s; int32_t ix, sign; diff --git a/sysdeps/ieee754/ldbl-128/s_asinhl.c b/sysdeps/ieee754/ldbl-128/s_asinhl.c index 98ad830..0a83413 100644 --- a/sysdeps/ieee754/ldbl-128/s_asinhl.c +++ b/sysdeps/ieee754/ldbl-128/s_asinhl.c @@ -32,23 +32,13 @@ static char rcsid[] = "$NetBSD: $"; #include "math.h" #include "math_private.h" -#ifdef __STDC__ static const long double -#else -static long double -#endif one = 1.0L, ln2 = 6.931471805599453094172321214581765681e-1L, huge = 1.0e+4900L; -#ifdef __STDC__ long double __asinhl (long double x) -#else -long double -__asinhl (x) - long double x; -#endif { long double t, w; int32_t ix, sign; diff --git a/sysdeps/ieee754/ldbl-128/s_ceill.c b/sysdeps/ieee754/ldbl-128/s_ceill.c index 71f2fee..fe1fc83 100644 --- a/sysdeps/ieee754/ldbl-128/s_ceill.c +++ b/sysdeps/ieee754/ldbl-128/s_ceill.c @@ -29,18 +29,9 @@ static char rcsid[] = "$NetBSD: $"; #include "math.h" #include "math_private.h" -#ifdef __STDC__ static const long double huge = 1.0e4930L; -#else -static long double huge = 1.0e4930L; -#endif -#ifdef __STDC__ - long double __ceill(long double x) -#else - long double __ceill(x) - long double x; -#endif +long double __ceill(long double x) { int64_t i0,i1,j0; u_int64_t i,j; diff --git a/sysdeps/ieee754/ldbl-128/s_copysignl.c b/sysdeps/ieee754/ldbl-128/s_copysignl.c index cece4f2..3426ccd 100644 --- a/sysdeps/ieee754/ldbl-128/s_copysignl.c +++ b/sysdeps/ieee754/ldbl-128/s_copysignl.c @@ -26,12 +26,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_int64_t hx,hy; GET_LDOUBLE_MSW64(hx,x); diff --git a/sysdeps/ieee754/ldbl-128/s_cosl.c b/sysdeps/ieee754/ldbl-128/s_cosl.c index ef61c3a..ae26d35 100644 --- a/sysdeps/ieee754/ldbl-128/s_cosl.c +++ b/sysdeps/ieee754/ldbl-128/s_cosl.c @@ -48,12 +48,7 @@ #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.0L; int64_t n, ix; diff --git a/sysdeps/ieee754/ldbl-128/s_erfl.c b/sysdeps/ieee754/ldbl-128/s_erfl.c index e6983ec..feb74f7 100644 --- a/sysdeps/ieee754/ldbl-128/s_erfl.c +++ b/sysdeps/ieee754/ldbl-128/s_erfl.c @@ -136,11 +136,7 @@ deval (long double x, const long double *p, int n) -#ifdef __STDC__ static const long double -#else -static long double -#endif tiny = 1e-4931L, half = 0.5L, one = 1.0L, @@ -754,14 +750,8 @@ static const long double RDr1[NRDr1 + 1] = }; -#ifdef __STDC__ long double __erfl (long double x) -#else -double -__erfl (x) - long double x; -#endif { long double a, y, z; int32_t i, ix, sign; @@ -808,15 +798,8 @@ __erfl (x) } weak_alias (__erfl, erfl) -#ifdef __STDC__ - long double - __erfcl (long double x) -#else - long double - __erfcl (x) - double - x; -#endif +long double +__erfcl (long double x) { long double y, z, p, r; int32_t i, ix, sign; diff --git a/sysdeps/ieee754/ldbl-128/s_fabsl.c b/sysdeps/ieee754/ldbl-128/s_fabsl.c index c0fd05a..73de8f0 100644 --- a/sysdeps/ieee754/ldbl-128/s_fabsl.c +++ b/sysdeps/ieee754/ldbl-128/s_fabsl.c @@ -24,12 +24,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_int64_t hx; GET_LDOUBLE_MSW64(hx,x); diff --git a/sysdeps/ieee754/ldbl-128/s_finitel.c b/sysdeps/ieee754/ldbl-128/s_finitel.c index e3b0a2b..b789735 100644 --- a/sysdeps/ieee754/ldbl-128/s_finitel.c +++ b/sysdeps/ieee754/ldbl-128/s_finitel.c @@ -25,12 +25,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) { int64_t hx; GET_LDOUBLE_MSW64(hx,x); diff --git a/sysdeps/ieee754/ldbl-128/s_floorl.c b/sysdeps/ieee754/ldbl-128/s_floorl.c index 2a60a79..2799d1c 100644 --- a/sysdeps/ieee754/ldbl-128/s_floorl.c +++ b/sysdeps/ieee754/ldbl-128/s_floorl.c @@ -29,18 +29,9 @@ static char rcsid[] = "$NetBSD: $"; #include "math.h" #include "math_private.h" -#ifdef __STDC__ static const long double huge = 1.0e4930L; -#else -static long double huge = 1.0e4930L; -#endif -#ifdef __STDC__ - long double __floorl(long double x) -#else - long double __floorl(x) - long double x; -#endif +long double __floorl(long double x) { int64_t i0,i1,j0; u_int64_t i,j; diff --git a/sysdeps/ieee754/ldbl-128/s_frexpl.c b/sysdeps/ieee754/ldbl-128/s_frexpl.c index 6dbb60e..7f899e4 100644 --- a/sysdeps/ieee754/ldbl-128/s_frexpl.c +++ b/sysdeps/ieee754/ldbl-128/s_frexpl.c @@ -30,19 +30,10 @@ static char rcsid[] = "$NetBSD: $"; #include "math.h" #include "math_private.h" -#ifdef __STDC__ static const long double -#else -static long double -#endif two114 = 2.0769187434139310514121985316880384E+34L; /* 0x4071000000000000, 0 */ -#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_int64_t hx, lx, ix; GET_LDOUBLE_WORDS64(hx,lx,x); diff --git a/sysdeps/ieee754/ldbl-128/s_ilogbl.c b/sysdeps/ieee754/ldbl-128/s_ilogbl.c index fe14395..a6f52c3 100644 --- a/sysdeps/ieee754/ldbl-128/s_ilogbl.c +++ b/sysdeps/ieee754/ldbl-128/s_ilogbl.c @@ -28,12 +28,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) { int64_t hx,lx; int ix; diff --git a/sysdeps/ieee754/ldbl-128/s_isnanl.c b/sysdeps/ieee754/ldbl-128/s_isnanl.c index 267ec8d..ef7bc7b 100644 --- a/sysdeps/ieee754/ldbl-128/s_isnanl.c +++ b/sysdeps/ieee754/ldbl-128/s_isnanl.c @@ -25,12 +25,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) { int64_t hx,lx; GET_LDOUBLE_WORDS64(hx,lx,x); diff --git a/sysdeps/ieee754/ldbl-128/s_logbl.c b/sysdeps/ieee754/ldbl-128/s_logbl.c index 1fda289..8d7b4c6 100644 --- a/sysdeps/ieee754/ldbl-128/s_logbl.c +++ b/sysdeps/ieee754/ldbl-128/s_logbl.c @@ -26,12 +26,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) { int64_t lx,hx; GET_LDOUBLE_WORDS64(hx,lx,x); diff --git a/sysdeps/ieee754/ldbl-128/s_modfl.c b/sysdeps/ieee754/ldbl-128/s_modfl.c index 63d66e7..3657268 100644 --- a/sysdeps/ieee754/ldbl-128/s_modfl.c +++ b/sysdeps/ieee754/ldbl-128/s_modfl.c @@ -30,18 +30,9 @@ static char rcsid[] = "$NetBSD: $"; #include "math.h" #include "math_private.h" -#ifdef __STDC__ static const long double one = 1.0; -#else -static long double one = 1.0; -#endif -#ifdef __STDC__ - long double __modfl(long double x, long double *iptr) -#else - long double __modfl(x, iptr) - long double x,*iptr; -#endif +long double __modfl(long double x, long double *iptr) { int64_t i0,i1,j0; u_int64_t i; diff --git a/sysdeps/ieee754/ldbl-128/s_nearbyintl.c b/sysdeps/ieee754/ldbl-128/s_nearbyintl.c index bea3183..b97c1ac 100644 --- a/sysdeps/ieee754/ldbl-128/s_nearbyintl.c +++ b/sysdeps/ieee754/ldbl-128/s_nearbyintl.c @@ -27,22 +27,13 @@ #include "math.h" #include "math_private.h" -#ifdef __STDC__ static const long double -#else -static long double -#endif TWO112[2]={ 5.19229685853482762853049632922009600E+33L, /* 0x406F000000000000, 0 */ -5.19229685853482762853049632922009600E+33L /* 0xC06F000000000000, 0 */ }; -#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; int64_t i0,j0,sx; diff --git a/sysdeps/ieee754/ldbl-128/s_nextafterl.c b/sysdeps/ieee754/ldbl-128/s_nextafterl.c index 7bc869a..0bf9339 100644 --- a/sysdeps/ieee754/ldbl-128/s_nextafterl.c +++ b/sysdeps/ieee754/ldbl-128/s_nextafterl.c @@ -27,12 +27,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) { int64_t hx,hy,ix,iy; u_int64_t lx,ly; diff --git a/sysdeps/ieee754/ldbl-128/s_nexttoward.c b/sysdeps/ieee754/ldbl-128/s_nexttoward.c index 178505c..6506722 100644 --- a/sysdeps/ieee754/ldbl-128/s_nexttoward.c +++ b/sysdeps/ieee754/ldbl-128/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; int64_t hy,iy; diff --git a/sysdeps/ieee754/ldbl-128/s_nexttowardf.c b/sysdeps/ieee754/ldbl-128/s_nexttowardf.c index 1f37d80..e7265e7 100644 --- a/sysdeps/ieee754/ldbl-128/s_nexttowardf.c +++ b/sysdeps/ieee754/ldbl-128/s_nexttowardf.c @@ -21,13 +21,7 @@ static char rcsid[] = "$NetBSD: $"; #include "math.h" #include "math_private.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; int64_t hy,iy; diff --git a/sysdeps/ieee754/ldbl-128/s_rintl.c b/sysdeps/ieee754/ldbl-128/s_rintl.c index c3fc3ba..833ad42 100644 --- a/sysdeps/ieee754/ldbl-128/s_rintl.c +++ b/sysdeps/ieee754/ldbl-128/s_rintl.c @@ -30,22 +30,13 @@ static char rcsid[] = "$NetBSD: $"; #include "math.h" #include "math_private.h" -#ifdef __STDC__ static const long double -#else -static long double -#endif TWO112[2]={ 5.19229685853482762853049632922009600E+33L, /* 0x406F000000000000, 0 */ -5.19229685853482762853049632922009600E+33L /* 0xC06F000000000000, 0 */ }; -#ifdef __STDC__ - long double __rintl(long double x) -#else - long double __rintl(x) - long double x; -#endif +long double __rintl(long double x) { int64_t i0,j0,sx; u_int64_t i,i1; diff --git a/sysdeps/ieee754/ldbl-128/s_scalblnl.c b/sysdeps/ieee754/ldbl-128/s_scalblnl.c index 5e8b58b..f5624e2 100644 --- a/sysdeps/ieee754/ldbl-128/s_scalblnl.c +++ b/sysdeps/ieee754/ldbl-128/s_scalblnl.c @@ -28,22 +28,13 @@ static char rcsid[] = "$NetBSD: $"; #include "math.h" #include "math_private.h" -#ifdef __STDC__ static const long double -#else -static long double -#endif two114 = 2.0769187434139310514121985316880384E+34L, /* 0x4071000000000000, 0 */ twom114 = 4.8148248609680896326399448564623183E-35L, /* 0x3F8D000000000000, 0 */ huge = 1.0E+4900L, tiny = 1.0E-4900L; -#ifdef __STDC__ - long double __scalblnl (long double x, long int n) -#else - long double __scalblnl (x,n) - long double x; long int n; -#endif +long double __scalblnl (long double x, long int n) { int64_t k,hx,lx; GET_LDOUBLE_WORDS64(hx,lx,x); diff --git a/sysdeps/ieee754/ldbl-128/s_scalbnl.c b/sysdeps/ieee754/ldbl-128/s_scalbnl.c index c54f064..b9de0f7 100644 --- a/sysdeps/ieee754/ldbl-128/s_scalbnl.c +++ b/sysdeps/ieee754/ldbl-128/s_scalbnl.c @@ -28,22 +28,13 @@ static char rcsid[] = "$NetBSD: $"; #include "math.h" #include "math_private.h" -#ifdef __STDC__ static const long double -#else -static long double -#endif two114 = 2.0769187434139310514121985316880384E+34L, /* 0x4071000000000000, 0 */ twom114 = 4.8148248609680896326399448564623183E-35L, /* 0x3F8D000000000000, 0 */ huge = 1.0E+4900L, tiny = 1.0E-4900L; -#ifdef __STDC__ - long double __scalbnl (long double x, int n) -#else - long double __scalbnl (x,n) - long double x; int n; -#endif +long double __scalbnl (long double x, int n) { int64_t k,hx,lx; GET_LDOUBLE_WORDS64(hx,lx,x); diff --git a/sysdeps/ieee754/ldbl-128/s_sinl.c b/sysdeps/ieee754/ldbl-128/s_sinl.c index dc509e7..63a920b 100644 --- a/sysdeps/ieee754/ldbl-128/s_sinl.c +++ b/sysdeps/ieee754/ldbl-128/s_sinl.c @@ -48,12 +48,7 @@ #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.0L; int64_t n, ix; diff --git a/sysdeps/ieee754/ldbl-128/s_tanhl.c b/sysdeps/ieee754/ldbl-128/s_tanhl.c index fcbf300..979eb86 100644 --- a/sysdeps/ieee754/ldbl-128/s_tanhl.c +++ b/sysdeps/ieee754/ldbl-128/s_tanhl.c @@ -44,20 +44,10 @@ #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 t, z; u_int32_t jx, ix; diff --git a/sysdeps/ieee754/ldbl-128/s_tanl.c b/sysdeps/ieee754/ldbl-128/s_tanl.c index 2349da6..41e5902 100644 --- a/sysdeps/ieee754/ldbl-128/s_tanl.c +++ b/sysdeps/ieee754/ldbl-128/s_tanl.c @@ -48,12 +48,7 @@ #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.0L; int64_t n, ix; diff --git a/sysdeps/ieee754/ldbl-128/w_expl.c b/sysdeps/ieee754/ldbl-128/w_expl.c index d6205d3..ab82ef1 100644 --- a/sysdeps/ieee754/ldbl-128/w_expl.c +++ b/sysdeps/ieee754/ldbl-128/w_expl.c @@ -25,20 +25,11 @@ static char rcsid[] = "$NetBSD: $"; #include "math.h" #include "math_private.h" -#ifdef __STDC__ static const long double -#else -static long double -#endif o_threshold= 1.1356523406294143949491931077970763428449E4L, u_threshold= -1.1433462743336297878837243843452621503410E4; -#ifdef __STDC__ - long double __expl(long double x) /* wrapper exp */ -#else - long double __expl(x) /* wrapper exp */ - long double x; -#endif +long double __expl(long double x) /* wrapper exp */ { #ifdef _IEEE_LIBM return __ieee754_expl(x); |