diff options
Diffstat (limited to 'libc/sysdeps/ieee754/ldbl-128ibm')
31 files changed, 28 insertions, 268 deletions
diff --git a/libc/sysdeps/ieee754/ldbl-128ibm/e_acosl.c b/libc/sysdeps/ieee754/ldbl-128ibm/e_acosl.c index 1b37c9220..cd51f1357 100644 --- a/libc/sysdeps/ieee754/ldbl-128ibm/e_acosl.c +++ b/libc/sysdeps/ieee754/ldbl-128ibm/e_acosl.c @@ -57,11 +57,7 @@ #include "math.h" #include "math_private.h" -#ifdef __STDC__ static const long double -#else -static long double -#endif one = 1.0L, pio2_hi = 1.5707963267948966192313216916397514420986L, pio2_lo = 4.3359050650618905123985220130216759843812E-35L, @@ -152,14 +148,8 @@ static long double qS8 = -4.175375777334867025769346564600396877176E1L; /* 1.000000000000000000000000000000000000000E0 */ -#ifdef __STDC__ long double __ieee754_acosl (long double x) -#else -long double -__ieee754_acosl (x) - long double x; -#endif { long double z, r, w, p, q, s, t, f2; int32_t ix, sign; diff --git a/libc/sysdeps/ieee754/ldbl-128ibm/e_asinl.c b/libc/sysdeps/ieee754/ldbl-128ibm/e_asinl.c index 6c61232c0..576496c25 100644 --- a/libc/sysdeps/ieee754/ldbl-128ibm/e_asinl.c +++ b/libc/sysdeps/ieee754/ldbl-128ibm/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+300L, 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/libc/sysdeps/ieee754/ldbl-128ibm/e_jnl.c b/libc/sysdeps/ieee754/ldbl-128ibm/e_jnl.c index 2114753f8..5115488bd 100644 --- a/libc/sysdeps/ieee754/ldbl-128ibm/e_jnl.c +++ b/libc/sysdeps/ieee754/ldbl-128ibm/e_jnl.c @@ -59,26 +59,15 @@ #include "math.h" #include "math_private.h" -#ifdef __STDC__ static const long double -#else -static long double -#endif invsqrtpi = 5.6418958354775628694807945156077258584405E-1L, two = 2.0e0L, one = 1.0e0L, zero = 0.0L; -#ifdef __STDC__ long double __ieee754_jnl (int n, long double x) -#else -long double -__ieee754_jnl (n, x) - int n; - long double x; -#endif { u_int32_t se; int32_t i, ix, sgn; @@ -305,15 +294,8 @@ __ieee754_jnl (n, x) } strong_alias (__ieee754_jnl, __jnl_finite) -#ifdef __STDC__ long double __ieee754_ynl (int n, long double x) -#else -long double -__ieee754_ynl (n, x) - int n; - long double x; -#endif { u_int32_t se; int32_t i, ix; diff --git a/libc/sysdeps/ieee754/ldbl-128ibm/k_tanl.c b/libc/sysdeps/ieee754/ldbl-128ibm/k_tanl.c index 6c45b2fc4..9487f6b1d 100644 --- a/libc/sysdeps/ieee754/ldbl-128ibm/k_tanl.c +++ b/libc/sysdeps/ieee754/ldbl-128ibm/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/libc/sysdeps/ieee754/ldbl-128ibm/s_asinhl.c b/libc/sysdeps/ieee754/ldbl-128ibm/s_asinhl.c index d1b63bb90..bc5a066ed 100644 --- a/libc/sysdeps/ieee754/ldbl-128ibm/s_asinhl.c +++ b/libc/sysdeps/ieee754/ldbl-128ibm/s_asinhl.c @@ -29,21 +29,12 @@ static char rcsid[] = "$NetBSD: s_asinh.c,v 1.9 1995/05/12 04:57:37 jtc Exp $"; #include "math_private.h" #include <math_ldbl_opt.h> -#ifdef __STDC__ static const long double -#else -static long double -#endif one = 1.00000000000000000000e+00L, /* 0x3ff0000000000000, 0 */ ln2 = 0.6931471805599453094172321214581766L, /* 0x3fe62e42fefa39ef, 0x3c7abc9e3b398040 */ huge= 1.00000000000000000000e+300L; -#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; int64_t hx,ix; diff --git a/libc/sysdeps/ieee754/ldbl-128ibm/s_ceill.c b/libc/sysdeps/ieee754/ldbl-128ibm/s_ceill.c index 6252e9140..914f1b554 100644 --- a/libc/sysdeps/ieee754/ldbl-128ibm/s_ceill.c +++ b/libc/sysdeps/ieee754/ldbl-128ibm/s_ceill.c @@ -1,6 +1,6 @@ /* Ceil (round to +inf) long double floating-point values. IBM extended format long double version. - Copyright (C) 2006, 2007 Free Software Foundation, Inc. + Copyright (C) 2006, 2007, 2012 Free Software Foundation, Inc. This file is part of the GNU C Library. The GNU C Library is free software; you can redistribute it and/or @@ -24,14 +24,8 @@ #include <ieee754.h> -#ifdef __STDC__ long double __ceill (long double x) -#else -long double -__ceill (x) - long double x; -#endif { double xh, xl, hi, lo; diff --git a/libc/sysdeps/ieee754/ldbl-128ibm/s_copysignl.c b/libc/sysdeps/ieee754/ldbl-128ibm/s_copysignl.c index 1a198c16e..f3a906e65 100644 --- a/libc/sysdeps/ieee754/ldbl-128ibm/s_copysignl.c +++ b/libc/sysdeps/ieee754/ldbl-128ibm/s_copysignl.c @@ -27,12 +27,7 @@ static char rcsid[] = "$NetBSD: $"; #include "math_private.h" #include <math_ldbl_opt.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) { if (signbit (x) != signbit (y)) x = -x; diff --git a/libc/sysdeps/ieee754/ldbl-128ibm/s_cosl.c b/libc/sysdeps/ieee754/ldbl-128ibm/s_cosl.c index 8470850fc..57bae0cab 100644 --- a/libc/sysdeps/ieee754/ldbl-128ibm/s_cosl.c +++ b/libc/sysdeps/ieee754/ldbl-128ibm/s_cosl.c @@ -49,12 +49,7 @@ #include "math_private.h" #include <math_ldbl_opt.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/libc/sysdeps/ieee754/ldbl-128ibm/s_erfl.c b/libc/sysdeps/ieee754/ldbl-128ibm/s_erfl.c index f40c783d0..8cd1df6c0 100644 --- a/libc/sysdeps/ieee754/ldbl-128ibm/s_erfl.c +++ b/libc/sysdeps/ieee754/ldbl-128ibm/s_erfl.c @@ -140,11 +140,7 @@ deval (long double x, const long double *p, int n) -#ifdef __STDC__ static const long double -#else -static long double -#endif tiny = 1e-300L, half = 0.5L, one = 1.0L, @@ -758,14 +754,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; @@ -818,15 +808,8 @@ __erfl (x) } long_double_symbol (libm, __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/libc/sysdeps/ieee754/ldbl-128ibm/s_fabsl.c b/libc/sysdeps/ieee754/ldbl-128ibm/s_fabsl.c index 89eb20510..a288eac37 100644 --- a/libc/sysdeps/ieee754/ldbl-128ibm/s_fabsl.c +++ b/libc/sysdeps/ieee754/ldbl-128ibm/s_fabsl.c @@ -26,12 +26,7 @@ static char rcsid[] = "$NetBSD: $"; #include "math_private.h" #include <math_ldbl_opt.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, lx; GET_LDOUBLE_WORDS64(hx,lx,x); diff --git a/libc/sysdeps/ieee754/ldbl-128ibm/s_floorl.c b/libc/sysdeps/ieee754/ldbl-128ibm/s_floorl.c index eff757240..685e411cd 100644 --- a/libc/sysdeps/ieee754/ldbl-128ibm/s_floorl.c +++ b/libc/sysdeps/ieee754/ldbl-128ibm/s_floorl.c @@ -1,6 +1,6 @@ /* Round to int long double floating-point values. IBM extended format long double version. - Copyright (C) 2006, 2007 Free Software Foundation, Inc. + Copyright (C) 2006, 2007, 2012 Free Software Foundation, Inc. This file is part of the GNU C Library. The GNU C Library is free software; you can redistribute it and/or @@ -24,14 +24,8 @@ #include <ieee754.h> -#ifdef __STDC__ long double __floorl (long double x) -#else -long double -__floorl (x) - long double x; -#endif { double xh, xl, hi, lo; diff --git a/libc/sysdeps/ieee754/ldbl-128ibm/s_frexpl.c b/libc/sysdeps/ieee754/ldbl-128ibm/s_frexpl.c index fab566da3..215083bc2 100644 --- a/libc/sysdeps/ieee754/ldbl-128ibm/s_frexpl.c +++ b/libc/sysdeps/ieee754/ldbl-128ibm/s_frexpl.c @@ -31,19 +31,10 @@ static char rcsid[] = "$NetBSD: $"; #include "math_private.h" #include <math_ldbl_opt.h> -#ifdef __STDC__ static const long double -#else -static long double -#endif two107 = 162259276829213363391578010288128.0; /* 0x4670000000000000, 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, ixl; int64_t explo; diff --git a/libc/sysdeps/ieee754/ldbl-128ibm/s_ilogbl.c b/libc/sysdeps/ieee754/ldbl-128ibm/s_ilogbl.c index 428854d77..106c7311c 100644 --- a/libc/sysdeps/ieee754/ldbl-128ibm/s_ilogbl.c +++ b/libc/sysdeps/ieee754/ldbl-128ibm/s_ilogbl.c @@ -29,12 +29,7 @@ static char rcsid[] = "$NetBSD: $"; #include "math_private.h" #include <math_ldbl_opt.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/libc/sysdeps/ieee754/ldbl-128ibm/s_llrintl.c b/libc/sysdeps/ieee754/ldbl-128ibm/s_llrintl.c index 3718250b6..0a399695c 100644 --- a/libc/sysdeps/ieee754/ldbl-128ibm/s_llrintl.c +++ b/libc/sysdeps/ieee754/ldbl-128ibm/s_llrintl.c @@ -1,6 +1,6 @@ /* Round to long long int long double floating-point values. IBM extended format long double version. - Copyright (C) 2006 Free Software Foundation, Inc. + Copyright (C) 2006, 2012 Free Software Foundation, Inc. This file is part of the GNU C Library. The GNU C Library is free software; you can redistribute it and/or @@ -25,14 +25,8 @@ #include <ieee754.h> -#ifdef __STDC__ long long __llrintl (long double x) -#else -long long -__llrintl (x) - long double x; -#endif { double xh, xl; long long res, hi, lo; diff --git a/libc/sysdeps/ieee754/ldbl-128ibm/s_llroundl.c b/libc/sysdeps/ieee754/ldbl-128ibm/s_llroundl.c index 9e25024f9..00cc41620 100644 --- a/libc/sysdeps/ieee754/ldbl-128ibm/s_llroundl.c +++ b/libc/sysdeps/ieee754/ldbl-128ibm/s_llroundl.c @@ -1,6 +1,6 @@ /* Round to long long int long double floating-point values. IBM extended format long double version. - Copyright (C) 2006 Free Software Foundation, Inc. + Copyright (C) 2006, 2012 Free Software Foundation, Inc. This file is part of the GNU C Library. The GNU C Library is free software; you can redistribute it and/or @@ -24,14 +24,8 @@ #include <float.h> #include <ieee754.h> -#ifdef __STDC__ long long __llroundl (long double x) -#else -long long -__llroundl (x) - long double x; -#endif { double xh, xl; long long res, hi, lo; diff --git a/libc/sysdeps/ieee754/ldbl-128ibm/s_logbl.c b/libc/sysdeps/ieee754/ldbl-128ibm/s_logbl.c index 0c61cdae2..10ae684d1 100644 --- a/libc/sysdeps/ieee754/ldbl-128ibm/s_logbl.c +++ b/libc/sysdeps/ieee754/ldbl-128ibm/s_logbl.c @@ -27,12 +27,7 @@ static char rcsid[] = "$NetBSD: $"; #include "math_private.h" #include <math_ldbl_opt.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/libc/sysdeps/ieee754/ldbl-128ibm/s_lrintl.c b/libc/sysdeps/ieee754/ldbl-128ibm/s_lrintl.c index e28934842..9e50541d3 100644 --- a/libc/sysdeps/ieee754/ldbl-128ibm/s_lrintl.c +++ b/libc/sysdeps/ieee754/ldbl-128ibm/s_lrintl.c @@ -1,6 +1,6 @@ /* Round to long int long double floating-point values. IBM extended format long double version. - Copyright (C) 2006 Free Software Foundation, Inc. + Copyright (C) 2006, 2012 Free Software Foundation, Inc. This file is part of the GNU C Library. The GNU C Library is free software; you can redistribute it and/or @@ -25,14 +25,8 @@ #include <ieee754.h> -#ifdef __STDC__ long __lrintl (long double x) -#else -long -__lrintl (x) - long double x; -#endif { double xh, xl; long res, hi, lo; diff --git a/libc/sysdeps/ieee754/ldbl-128ibm/s_lroundl.c b/libc/sysdeps/ieee754/ldbl-128ibm/s_lroundl.c index a5251eece..24b4f46e6 100644 --- a/libc/sysdeps/ieee754/ldbl-128ibm/s_lroundl.c +++ b/libc/sysdeps/ieee754/ldbl-128ibm/s_lroundl.c @@ -1,6 +1,6 @@ /* Round to long int long double floating-point values. IBM extended format long double version. - Copyright (C) 2006 Free Software Foundation, Inc. + Copyright (C) 2006, 2012 Free Software Foundation, Inc. This file is part of the GNU C Library. The GNU C Library is free software; you can redistribute it and/or @@ -24,14 +24,8 @@ #include <float.h> #include <ieee754.h> -#ifdef __STDC__ long __lroundl (long double x) -#else -long -__lroundl (x) - long double x; -#endif { double xh, xl; long res, hi, lo; diff --git a/libc/sysdeps/ieee754/ldbl-128ibm/s_modfl.c b/libc/sysdeps/ieee754/ldbl-128ibm/s_modfl.c index f2e65f0c4..1fe323595 100644 --- a/libc/sysdeps/ieee754/ldbl-128ibm/s_modfl.c +++ b/libc/sysdeps/ieee754/ldbl-128ibm/s_modfl.c @@ -31,18 +31,9 @@ static char rcsid[] = "$NetBSD: $"; #include "math_private.h" #include <math_ldbl_opt.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/libc/sysdeps/ieee754/ldbl-128ibm/s_nearbyintl.c b/libc/sysdeps/ieee754/ldbl-128ibm/s_nearbyintl.c index 36c5a164d..3f7d6bd60 100644 --- a/libc/sysdeps/ieee754/ldbl-128ibm/s_nearbyintl.c +++ b/libc/sysdeps/ieee754/ldbl-128ibm/s_nearbyintl.c @@ -1,6 +1,6 @@ /* Round to int long double floating-point values without raising inexact. IBM extended format long double version. - Copyright (C) 2006, 2008 Free Software Foundation, Inc. + Copyright (C) 2006, 2008, 2012 Free Software Foundation, Inc. This file is part of the GNU C Library. The GNU C Library is free software; you can redistribute it and/or @@ -28,14 +28,8 @@ #include <ieee754.h> -#ifdef __STDC__ long double __nearbyintl (long double x) -#else -long double -__nearbyintl (x) - long double x; -#endif { fenv_t env; static const long double TWO52 = 4503599627370496.0L; diff --git a/libc/sysdeps/ieee754/ldbl-128ibm/s_nextafterl.c b/libc/sysdeps/ieee754/ldbl-128ibm/s_nextafterl.c index 39d0e6a5e..994e287c9 100644 --- a/libc/sysdeps/ieee754/ldbl-128ibm/s_nextafterl.c +++ b/libc/sysdeps/ieee754/ldbl-128ibm/s_nextafterl.c @@ -28,12 +28,7 @@ static char rcsid[] = "$NetBSD: $"; #include <math_private.h> #include <math_ldbl_opt.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,ihx,ihy,ilx; u_int64_t lx,ly; diff --git a/libc/sysdeps/ieee754/ldbl-128ibm/s_nexttoward.c b/libc/sysdeps/ieee754/ldbl-128ibm/s_nexttoward.c index e2f6521f5..bcf265d40 100644 --- a/libc/sysdeps/ieee754/ldbl-128ibm/s_nexttoward.c +++ b/libc/sysdeps/ieee754/ldbl-128ibm/s_nexttoward.c @@ -30,13 +30,7 @@ static char rcsid[] = "$NetBSD: $"; #include <math_ldbl_opt.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/libc/sysdeps/ieee754/ldbl-128ibm/s_nexttowardf.c b/libc/sysdeps/ieee754/ldbl-128ibm/s_nexttowardf.c index cf655fad1..e88361a93 100644 --- a/libc/sysdeps/ieee754/ldbl-128ibm/s_nexttowardf.c +++ b/libc/sysdeps/ieee754/ldbl-128ibm/s_nexttowardf.c @@ -23,13 +23,7 @@ static char rcsid[] = "$NetBSD: $"; #include <math_ldbl_opt.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; int64_t hy,iy; diff --git a/libc/sysdeps/ieee754/ldbl-128ibm/s_rintl.c b/libc/sysdeps/ieee754/ldbl-128ibm/s_rintl.c index 1f4e33f91..2c16b8611 100644 --- a/libc/sysdeps/ieee754/ldbl-128ibm/s_rintl.c +++ b/libc/sysdeps/ieee754/ldbl-128ibm/s_rintl.c @@ -1,6 +1,6 @@ /* Round to int long double floating-point values. IBM extended format long double version. - Copyright (C) 2006 Free Software Foundation, Inc. + Copyright (C) 2006, 2012 Free Software Foundation, Inc. This file is part of the GNU C Library. The GNU C Library is free software; you can redistribute it and/or @@ -28,14 +28,8 @@ #include <ieee754.h> -#ifdef __STDC__ long double __rintl (long double x) -#else -long double -__rintl (x) - long double x; -#endif { double xh, xl, hi, lo; diff --git a/libc/sysdeps/ieee754/ldbl-128ibm/s_roundl.c b/libc/sysdeps/ieee754/ldbl-128ibm/s_roundl.c index d633bfa4c..ac8e17afa 100644 --- a/libc/sysdeps/ieee754/ldbl-128ibm/s_roundl.c +++ b/libc/sysdeps/ieee754/ldbl-128ibm/s_roundl.c @@ -1,6 +1,6 @@ /* Round to int long double floating-point values. IBM extended format long double version. - Copyright (C) 2006, 2007 Free Software Foundation, Inc. + Copyright (C) 2006, 2007, 2012 Free Software Foundation, Inc. This file is part of the GNU C Library. The GNU C Library is free software; you can redistribute it and/or @@ -27,14 +27,8 @@ #include <ieee754.h> -#ifdef __STDC__ long double __roundl (long double x) -#else -long double -__roundl (x) - long double x; -#endif { double xh, xl, hi, lo; diff --git a/libc/sysdeps/ieee754/ldbl-128ibm/s_scalblnl.c b/libc/sysdeps/ieee754/ldbl-128ibm/s_scalblnl.c index 3a1ba07f2..a1632e77f 100644 --- a/libc/sysdeps/ieee754/ldbl-128ibm/s_scalblnl.c +++ b/libc/sysdeps/ieee754/ldbl-128ibm/s_scalblnl.c @@ -29,28 +29,15 @@ static char rcsid[] = "$NetBSD: $"; #include "math_private.h" #include <math_ldbl_opt.h> -#ifdef __STDC__ static const long double -#else -static long double -#endif twolm54 = 5.55111512312578270212e-17, /* 0x3C90000000000000, 0 */ huge = 1.0E+300L, tiny = 1.0E-300L; -#ifdef __STDC__ static const double -#else -static double -#endif two54 = 1.80143985094819840000e+16, /* 0x4350000000000000 */ twom54 = 5.55111512312578270212e-17; /* 0x3C90000000000000 */ -#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,l,hx,lx; union { int64_t i; double d; } u; diff --git a/libc/sysdeps/ieee754/ldbl-128ibm/s_scalbnl.c b/libc/sysdeps/ieee754/ldbl-128ibm/s_scalbnl.c index 50bd8cb0b..a52cd42f0 100644 --- a/libc/sysdeps/ieee754/ldbl-128ibm/s_scalbnl.c +++ b/libc/sysdeps/ieee754/ldbl-128ibm/s_scalbnl.c @@ -29,28 +29,15 @@ static char rcsid[] = "$NetBSD: $"; #include "math_private.h" #include <math_ldbl_opt.h> -#ifdef __STDC__ static const long double -#else -static long double -#endif twolm54 = 5.55111512312578270212e-17, /* 0x3C90000000000000, 0 */ huge = 1.0E+300L, tiny = 1.0E-300L; -#ifdef __STDC__ static const double -#else -static double -#endif two54 = 1.80143985094819840000e+16, /* 0x4350000000000000 */ twom54 = 5.55111512312578270212e-17; /* 0x3C90000000000000 */ -#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,l,hx,lx; union { int64_t i; double d; } u; diff --git a/libc/sysdeps/ieee754/ldbl-128ibm/s_sinl.c b/libc/sysdeps/ieee754/ldbl-128ibm/s_sinl.c index bd72225e1..e26d99888 100644 --- a/libc/sysdeps/ieee754/ldbl-128ibm/s_sinl.c +++ b/libc/sysdeps/ieee754/ldbl-128ibm/s_sinl.c @@ -49,12 +49,7 @@ #include "math_private.h" #include <math_ldbl_opt.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/libc/sysdeps/ieee754/ldbl-128ibm/s_tanhl.c b/libc/sysdeps/ieee754/ldbl-128ibm/s_tanhl.c index 851ca125f..40df484c8 100644 --- a/libc/sysdeps/ieee754/ldbl-128ibm/s_tanhl.c +++ b/libc/sysdeps/ieee754/ldbl-128ibm/s_tanhl.c @@ -42,18 +42,9 @@ static char rcsid[] = "$NetBSD: s_tanh.c,v 1.7 1995/05/10 20:48:22 jtc Exp $"; #include "math_private.h" #include <math_ldbl_opt.h> -#ifdef __STDC__ static const long double one=1.0L, two=2.0L, tiny = 1.0e-300L; -#else -static long double one=1.0L, two=2.0L, tiny = 1.0e-300L; -#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; int64_t jx,ix,lx; diff --git a/libc/sysdeps/ieee754/ldbl-128ibm/s_tanl.c b/libc/sysdeps/ieee754/ldbl-128ibm/s_tanl.c index 913f38f24..3de0a0da2 100644 --- a/libc/sysdeps/ieee754/ldbl-128ibm/s_tanl.c +++ b/libc/sysdeps/ieee754/ldbl-128ibm/s_tanl.c @@ -49,12 +49,7 @@ #include "math_private.h" #include <math_ldbl_opt.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/libc/sysdeps/ieee754/ldbl-128ibm/s_truncl.c b/libc/sysdeps/ieee754/ldbl-128ibm/s_truncl.c index ceace0d43..ba86abf33 100644 --- a/libc/sysdeps/ieee754/ldbl-128ibm/s_truncl.c +++ b/libc/sysdeps/ieee754/ldbl-128ibm/s_truncl.c @@ -1,6 +1,6 @@ /* Truncate (toward zero) long double floating-point values. IBM extended format long double version. - Copyright (C) 2006, 2007 Free Software Foundation, Inc. + Copyright (C) 2006, 2007, 2012 Free Software Foundation, Inc. This file is part of the GNU C Library. The GNU C Library is free software; you can redistribute it and/or @@ -27,14 +27,8 @@ #include <ieee754.h> -#ifdef __STDC__ long double __truncl (long double x) -#else -long double -__truncl (x) - long double x; -#endif { double xh, xl, hi, lo; |