Use ANSI C and get rid of the __STDC__ and other wrapping.
authorJeroen Ruigrok/asmodai <asmodai@dragonflybsd.org>
Wed, 29 Dec 2004 15:22:57 +0000 (15:22 +0000)
committerJeroen Ruigrok/asmodai <asmodai@dragonflybsd.org>
Wed, 29 Dec 2004 15:22:57 +0000 (15:22 +0000)
160 files changed:
lib/msun/src/e_acos.c
lib/msun/src/e_acosf.c
lib/msun/src/e_acosh.c
lib/msun/src/e_acoshf.c
lib/msun/src/e_asin.c
lib/msun/src/e_asinf.c
lib/msun/src/e_atan2.c
lib/msun/src/e_atan2f.c
lib/msun/src/e_atanh.c
lib/msun/src/e_atanhf.c
lib/msun/src/e_cosh.c
lib/msun/src/e_coshf.c
lib/msun/src/e_exp.c
lib/msun/src/e_expf.c
lib/msun/src/e_fmod.c
lib/msun/src/e_fmodf.c
lib/msun/src/e_gamma.c
lib/msun/src/e_gamma_r.c
lib/msun/src/e_gammaf.c
lib/msun/src/e_gammaf_r.c
lib/msun/src/e_hypot.c
lib/msun/src/e_hypotf.c
lib/msun/src/e_j0.c
lib/msun/src/e_j0f.c
lib/msun/src/e_j1.c
lib/msun/src/e_j1f.c
lib/msun/src/e_jn.c
lib/msun/src/e_jnf.c
lib/msun/src/e_lgamma.c
lib/msun/src/e_lgamma_r.c
lib/msun/src/e_lgammaf.c
lib/msun/src/e_lgammaf_r.c
lib/msun/src/e_log.c
lib/msun/src/e_log10.c
lib/msun/src/e_log10f.c
lib/msun/src/e_logf.c
lib/msun/src/e_pow.c
lib/msun/src/e_powf.c
lib/msun/src/e_rem_pio2.c
lib/msun/src/e_rem_pio2f.c
lib/msun/src/e_remainder.c
lib/msun/src/e_remainderf.c
lib/msun/src/e_scalb.c
lib/msun/src/e_scalbf.c
lib/msun/src/e_sinh.c
lib/msun/src/e_sinhf.c
lib/msun/src/e_sqrt.c
lib/msun/src/e_sqrtf.c
lib/msun/src/k_cos.c
lib/msun/src/k_cosf.c
lib/msun/src/k_rem_pio2.c
lib/msun/src/k_rem_pio2f.c
lib/msun/src/k_sin.c
lib/msun/src/k_sinf.c
lib/msun/src/k_standard.c
lib/msun/src/k_tan.c
lib/msun/src/k_tanf.c
lib/msun/src/s_asinh.c
lib/msun/src/s_asinhf.c
lib/msun/src/s_atan.c
lib/msun/src/s_atanf.c
lib/msun/src/s_cbrt.c
lib/msun/src/s_cbrtf.c
lib/msun/src/s_ceil.c
lib/msun/src/s_ceilf.c
lib/msun/src/s_copysign.c
lib/msun/src/s_copysignf.c
lib/msun/src/s_cos.c
lib/msun/src/s_cosf.c
lib/msun/src/s_erf.c
lib/msun/src/s_erff.c
lib/msun/src/s_expm1.c
lib/msun/src/s_expm1f.c
lib/msun/src/s_fabs.c
lib/msun/src/s_fabsf.c
lib/msun/src/s_finite.c
lib/msun/src/s_finitef.c
lib/msun/src/s_floor.c
lib/msun/src/s_floorf.c
lib/msun/src/s_frexp.c
lib/msun/src/s_frexpf.c
lib/msun/src/s_ilogb.c
lib/msun/src/s_ilogbf.c
lib/msun/src/s_isnan.c
lib/msun/src/s_isnanf.c
lib/msun/src/s_ldexp.c
lib/msun/src/s_ldexpf.c
lib/msun/src/s_log1p.c
lib/msun/src/s_log1pf.c
lib/msun/src/s_logb.c
lib/msun/src/s_logbf.c
lib/msun/src/s_matherr.c
lib/msun/src/s_modf.c
lib/msun/src/s_modff.c
lib/msun/src/s_nextafter.c
lib/msun/src/s_nextafterf.c
lib/msun/src/s_rint.c
lib/msun/src/s_rintf.c
lib/msun/src/s_scalbn.c
lib/msun/src/s_scalbnf.c
lib/msun/src/s_significand.c
lib/msun/src/s_significandf.c
lib/msun/src/s_sin.c
lib/msun/src/s_sinf.c
lib/msun/src/s_tan.c
lib/msun/src/s_tanf.c
lib/msun/src/s_tanh.c
lib/msun/src/s_tanhf.c
lib/msun/src/w_acos.c
lib/msun/src/w_acosf.c
lib/msun/src/w_acosh.c
lib/msun/src/w_acoshf.c
lib/msun/src/w_asin.c
lib/msun/src/w_asinf.c
lib/msun/src/w_atan2.c
lib/msun/src/w_atan2f.c
lib/msun/src/w_atanh.c
lib/msun/src/w_atanhf.c
lib/msun/src/w_cosh.c
lib/msun/src/w_coshf.c
lib/msun/src/w_exp.c
lib/msun/src/w_expf.c
lib/msun/src/w_fmod.c
lib/msun/src/w_fmodf.c
lib/msun/src/w_gamma.c
lib/msun/src/w_gamma_r.c
lib/msun/src/w_gammaf.c
lib/msun/src/w_gammaf_r.c
lib/msun/src/w_hypot.c
lib/msun/src/w_hypotf.c
lib/msun/src/w_j0.c
lib/msun/src/w_j0f.c
lib/msun/src/w_j1.c
lib/msun/src/w_j1f.c
lib/msun/src/w_jn.c
lib/msun/src/w_jnf.c
lib/msun/src/w_lgamma.c
lib/msun/src/w_lgamma_r.c
lib/msun/src/w_lgammaf.c
lib/msun/src/w_lgammaf_r.c
lib/msun/src/w_log.c
lib/msun/src/w_log10.c
lib/msun/src/w_log10f.c
lib/msun/src/w_logf.c
lib/msun/src/w_pow.c
lib/msun/src/w_powf.c
lib/msun/src/w_remainder.c
lib/msun/src/w_remainderf.c
lib/msun/src/w_scalb.c
lib/msun/src/w_scalbf.c
lib/msun/src/w_sinh.c
lib/msun/src/w_sinhf.c
lib/msun/src/w_sqrt.c
lib/msun/src/w_sqrtf.c
lib/msun/src/w_y0.c
lib/msun/src/w_y0f.c
lib/msun/src/w_y1.c
lib/msun/src/w_y1f.c
lib/msun/src/w_yn.c
lib/msun/src/w_ynf.c

index b63ae93..dfe4173 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/e_acos.c,v 1.7 1999/08/28 00:06:27 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/e_acos.c,v 1.2 2003/06/17 04:26:52 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/e_acos.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /* __ieee754_acos(x)
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const double
-#else
-static double
-#endif
 one=  1.00000000000000000000e+00, /* 0x3FF00000, 0x00000000 */
 pi =  3.14159265358979311600e+00, /* 0x400921FB, 0x54442D18 */
 pio2_hi =  1.57079632679489655800e+00, /* 0x3FF921FB, 0x54442D18 */
@@ -60,12 +56,8 @@ qS2 =  2.02094576023350569471e+00, /* 0x40002AE5, 0x9C598AC8 */
 qS3 = -6.88283971605453293030e-01, /* 0xBFE6066C, 0x1B8D0159 */
 qS4 =  7.70381505559019352791e-02; /* 0x3FB3B8C5, 0xB12E9282 */
 
-#ifdef __STDC__
-       double __generic___ieee754_acos(double x)
-#else
-       double __generic___ieee754_acos(x)
-       double x;
-#endif
+double
+__generic___ieee754_acos(double x)
 {
        double z,p,q,r,w,s,c,df;
        int32_t hx,ix;
index 620b26c..2e4466c 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/e_acosf.c,v 1.6 1999/08/28 00:06:27 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/e_acosf.c,v 1.2 2003/06/17 04:26:52 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/e_acosf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const float
-#else
-static float
-#endif
 one =  1.0000000000e+00, /* 0x3F800000 */
 pi =  3.1415925026e+00, /* 0x40490fda */
 pio2_hi =  1.5707962513e+00, /* 0x3fc90fda */
@@ -39,12 +35,8 @@ qS2 =  2.0209457874e+00, /* 0x4001572d */
 qS3 = -6.8828397989e-01, /* 0xbf303361 */
 qS4 =  7.7038154006e-02; /* 0x3d9dc62e */
 
-#ifdef __STDC__
-       float __ieee754_acosf(float x)
-#else
-       float __ieee754_acosf(x)
-       float x;
-#endif
+float
+__ieee754_acosf(float x)
 {
        float z,p,q,r,w,s,c,df;
        int32_t hx,ix;
index 835937a..2bbc9ad 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/e_acosh.c,v 1.6 1999/08/28 00:06:28 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/e_acosh.c,v 1.2 2003/06/17 04:26:52 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/e_acosh.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /* __ieee754_acosh(x)
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const double
-#else
-static double
-#endif
 one    = 1.0,
 ln2    = 6.93147180559945286227e-01;  /* 0x3FE62E42, 0xFEFA39EF */
 
-#ifdef __STDC__
-       double __ieee754_acosh(double x)
-#else
-       double __ieee754_acosh(x)
-       double x;
-#endif
+double
+__ieee754_acosh(double x)
 {
        double t;
        int32_t hx;
index bfefdf3..93ab07f 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/e_acoshf.c,v 1.6 1999/08/28 00:06:28 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/e_acoshf.c,v 1.2 2003/06/17 04:26:52 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/e_acoshf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const float
-#else
-static float
-#endif
 one    = 1.0,
 ln2    = 6.9314718246e-01;  /* 0x3f317218 */
 
-#ifdef __STDC__
-       float __ieee754_acoshf(float x)
-#else
-       float __ieee754_acoshf(x)
-       float x;
-#endif
+float
+__ieee754_acoshf(float x)
 {
        float t;
        int32_t hx;
index d077078..2207774 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/e_asin.c,v 1.8 1999/08/28 00:06:28 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/e_asin.c,v 1.2 2003/06/17 04:26:52 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/e_asin.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /* __ieee754_asin(x)
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const double
-#else
-static double
-#endif
 one =  1.00000000000000000000e+00, /* 0x3FF00000, 0x00000000 */
 huge =  1.000e+300,
 pio2_hi =  1.57079632679489655800e+00, /* 0x3FF921FB, 0x54442D18 */
@@ -69,12 +65,8 @@ qS2 =  2.02094576023350569471e+00, /* 0x40002AE5, 0x9C598AC8 */
 qS3 = -6.88283971605453293030e-01, /* 0xBFE6066C, 0x1B8D0159 */
 qS4 =  7.70381505559019352791e-02; /* 0x3FB3B8C5, 0xB12E9282 */
 
-#ifdef __STDC__
-       double __generic___ieee754_asin(double x)
-#else
-       double __generic___ieee754_asin(x)
-       double x;
-#endif
+double
+__generic___ieee754_asin(double x)
 {
        double t=0.0,w,p,q,c,r,s;
        int32_t hx,ix;
index 2c47979..1433a85 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/e_asinf.c,v 1.7 1999/08/28 00:06:28 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/e_asinf.c,v 1.2 2003/06/17 04:26:52 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/e_asinf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const float
-#else
-static float
-#endif
 one =  1.0000000000e+00, /* 0x3F800000 */
 huge =  1.000e+30,
 pio2_hi =  1.5707962513e+00, /* 0x3fc90fda */
@@ -41,12 +37,8 @@ qS2 =  2.0209457874e+00, /* 0x4001572d */
 qS3 = -6.8828397989e-01, /* 0xbf303361 */
 qS4 =  7.7038154006e-02; /* 0x3d9dc62e */
 
-#ifdef __STDC__
-       float __ieee754_asinf(float x)
-#else
-       float __ieee754_asinf(x)
-       float x;
-#endif
+float
+__ieee754_asinf(float x)
 {
        float t=0.0,w,p,q,c,r,s;
        int32_t hx,ix;
index 351e842..0b5a5af 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/e_atan2.c,v 1.7 1999/08/28 00:06:28 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/e_atan2.c,v 1.2 2003/06/17 04:26:52 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/e_atan2.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /* __ieee754_atan2(y,x)
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const double
-#else
-static double
-#endif
 tiny  = 1.0e-300,
 zero  = 0.0,
 pi_o_4  = 7.8539816339744827900E-01, /* 0x3FE921FB, 0x54442D18 */
@@ -55,12 +51,8 @@ pi_o_2  = 1.5707963267948965580E+00, /* 0x3FF921FB, 0x54442D18 */
 pi      = 3.1415926535897931160E+00, /* 0x400921FB, 0x54442D18 */
 pi_lo   = 1.2246467991473531772E-16; /* 0x3CA1A626, 0x33145C07 */
 
-#ifdef __STDC__
-       double __generic___ieee754_atan2(double y, double x)
-#else
-       double __generic___ieee754_atan2(y,x)
-       double  y,x;
-#endif
+double
+__generic___ieee754_atan2(double y, double x)
 {
        double z;
        int32_t k,m,hx,hy,ix,iy;
index d293412..ba24213 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/e_atan2f.c,v 1.5 1999/08/28 00:06:29 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/e_atan2f.c,v 1.2 2003/06/17 04:26:52 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/e_atan2f.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const float
-#else
-static float
-#endif
 tiny  = 1.0e-30,
 zero  = 0.0,
 pi_o_4  = 7.8539818525e-01, /* 0x3f490fdb */
@@ -31,12 +27,8 @@ pi_o_2  = 1.5707963705e+00, /* 0x3fc90fdb */
 pi      = 3.1415925026e+00, /* 0x40490fda */
 pi_lo   = 1.5099578832e-07; /* 0x34222168 */
 
-#ifdef __STDC__
-       float __ieee754_atan2f(float y, float x)
-#else
-       float __ieee754_atan2f(y,x)
-       float  y,x;
-#endif
+float
+__ieee754_atan2f(float y, float x)
 {
        float z;
        int32_t k,m,hx,hy,ix,iy;
index f7625b6..5809b26 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/e_atanh.c,v 1.5 1999/08/28 00:06:29 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/e_atanh.c,v 1.2 2003/06/17 04:26:52 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/e_atanh.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /* __ieee754_atanh(x)
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const double one = 1.0, huge = 1e300;
-#else
-static double one = 1.0, huge = 1e300;
-#endif
 
-#ifdef __STDC__
 static const double zero = 0.0;
-#else
-static double zero = 0.0;
-#endif
 
-#ifdef __STDC__
-       double __ieee754_atanh(double x)
-#else
-       double __ieee754_atanh(x)
-       double x;
-#endif
+double
+__ieee754_atanh(double x)
 {
        double t;
        int32_t hx,ix;
index d4fd168..d302820 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/e_atanhf.c,v 1.5 1999/08/28 00:06:29 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/e_atanhf.c,v 1.2 2003/06/17 04:26:52 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/e_atanhf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const float one = 1.0, huge = 1e30;
-#else
-static float one = 1.0, huge = 1e30;
-#endif
 
-#ifdef __STDC__
 static const float zero = 0.0;
-#else
-static float zero = 0.0;
-#endif
 
-#ifdef __STDC__
-       float __ieee754_atanhf(float x)
-#else
-       float __ieee754_atanhf(x)
-       float x;
-#endif
+float
+__ieee754_atanhf(float x)
 {
        float t;
        int32_t hx,ix;
index 273cd83..bede86b 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/e_cosh.c,v 1.6 1999/08/28 00:06:29 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/e_cosh.c,v 1.2 2003/06/17 04:26:52 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/e_cosh.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /* __ieee754_cosh(x)
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const double one = 1.0, half=0.5, huge = 1.0e300;
-#else
-static double one = 1.0, half=0.5, huge = 1.0e300;
-#endif
 
-#ifdef __STDC__
-       double __ieee754_cosh(double x)
-#else
-       double __ieee754_cosh(x)
-       double x;
-#endif
+double __ieee754_cosh(double x)
 {
        double t,w;
        int32_t ix;
index 1974940..feebaa3 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/e_coshf.c,v 1.5 1999/08/28 00:06:29 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/e_coshf.c,v 1.2 2003/06/17 04:26:52 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/e_coshf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const float one = 1.0, half=0.5, huge = 1.0e30;
-#else
-static float one = 1.0, half=0.5, huge = 1.0e30;
-#endif
 
-#ifdef __STDC__
-       float __ieee754_coshf(float x)
-#else
-       float __ieee754_coshf(x)
-       float x;
-#endif
+float
+__ieee754_coshf(float x)
 {
        float t,w;
        int32_t ix;
index e555ea3..09c1030 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/e_exp.c,v 1.7 1999/08/28 00:06:30 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/e_exp.c,v 1.2 2003/06/17 04:26:52 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/e_exp.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /* __ieee754_exp(x)
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const double
-#else
-static double
-#endif
 one    = 1.0,
 halF[2]        = {0.5,-0.5,},
 huge   = 1.0e+300,
@@ -102,12 +98,8 @@ P4   = -1.65339022054652515390e-06, /* 0xBEBBBD41, 0xC5D26BF1 */
 P5   =  4.13813679705723846039e-08; /* 0x3E663769, 0x72BEA4D0 */
 
 
-#ifdef __STDC__
-       double __generic___ieee754_exp(double x)        /* default IEEE double exp */
-#else
-       double __generic___ieee754_exp(x)       /* default IEEE double exp */
-       double x;
-#endif
+double
+__generic___ieee754_exp(double x)      /* default IEEE double exp */
 {
        double y,hi=0.0,lo=0.0,c,t;
        int32_t k=0,xsb;
index 844b006..e883e7a 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/e_expf.c,v 1.6 1999/08/28 00:06:30 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/e_expf.c,v 1.2 2003/06/17 04:26:52 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/e_expf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const float
-#else
-static float
-#endif
 one    = 1.0,
 halF[2]        = {0.5,-0.5,},
 huge   = 1.0e+30,
@@ -41,12 +37,8 @@ P3   =  6.6137559770e-05, /* 0x388ab355 */
 P4   = -1.6533901999e-06, /* 0xb5ddea0e */
 P5   =  4.1381369442e-08; /* 0x3331bb4c */
 
-#ifdef __STDC__
-       float __ieee754_expf(float x)   /* default IEEE double exp */
-#else
-       float __ieee754_expf(x) /* default IEEE double exp */
-       float x;
-#endif
+float
+__ieee754_expf(float x)        /* default IEEE double exp */
 {
        float y,hi=0.0,lo=0.0,c,t;
        int32_t k=0,xsb;
index 782de8f..4c6ed2e 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/e_fmod.c,v 1.6 1999/08/28 00:06:30 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/e_fmod.c,v 1.2 2003/06/17 04:26:52 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/e_fmod.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const double one = 1.0, Zero[] = {0.0, -0.0,};
-#else
-static double one = 1.0, Zero[] = {0.0, -0.0,};
-#endif
 
-#ifdef __STDC__
-       double __generic___ieee754_fmod(double x, double y)
-#else
-       double __generic___ieee754_fmod(x,y)
-       double x,y ;
-#endif
+double
+__generic___ieee754_fmod(double x, double y)
 {
        int32_t n,hx,hy,hz,ix,iy,sx,i;
        u_int32_t lx,ly,lz;
index a593874..d4b058a 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/e_fmodf.c,v 1.5 1999/08/28 00:06:30 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/e_fmodf.c,v 1.2 2003/06/17 04:26:52 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/e_fmodf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const float one = 1.0, Zero[] = {0.0, -0.0,};
-#else
-static float one = 1.0, Zero[] = {0.0, -0.0,};
-#endif
 
-#ifdef __STDC__
-       float __ieee754_fmodf(float x, float y)
-#else
-       float __ieee754_fmodf(x,y)
-       float x,y ;
-#endif
+float
+__ieee754_fmodf(float x, float y)
 {
        int32_t n,hx,hy,hz,ix,iy,sx,i;
 
index ecebe1d..40636ba 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/e_gamma.c,v 1.5 1999/08/28 00:06:31 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/e_gamma.c,v 1.2 2003/06/17 04:26:52 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/e_gamma.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /* __ieee754_gamma(x)
 
 extern int signgam;
 
-#ifdef __STDC__
-       double __ieee754_gamma(double x)
-#else
-       double __ieee754_gamma(x)
-       double x;
-#endif
+double
+__ieee754_gamma(double x)
 {
        return __ieee754_gamma_r(x,&signgam);
 }
index 7c0dfa6..ded1f58 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/e_gamma_r.c,v 1.5 1999/08/28 00:06:31 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/e_gamma_r.c,v 1.2 2003/06/17 04:26:52 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/e_gamma_r.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /* __ieee754_gamma_r(x, signgamp)
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
-       double __ieee754_gamma_r(double x, int *signgamp)
-#else
-       double __ieee754_gamma_r(x,signgamp)
-       double x; int *signgamp;
-#endif
+double
+__ieee754_gamma_r(double x, int *signgamp)
 {
        return __ieee754_lgamma_r(x,signgamp);
 }
index 3a1d598..59172b4 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/e_gammaf.c,v 1.5 1999/08/28 00:06:31 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/e_gammaf.c,v 1.2 2003/06/17 04:26:52 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/e_gammaf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 
 extern int signgam;
 
-#ifdef __STDC__
-       float __ieee754_gammaf(float x)
-#else
-       float __ieee754_gammaf(x)
-       float x;
-#endif
+float
+__ieee754_gammaf(float x)
 {
        return __ieee754_gammaf_r(x,&signgam);
 }
index 986565a..fe6aee5 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/e_gammaf_r.c,v 1.5 1999/08/28 00:06:31 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/e_gammaf_r.c,v 1.2 2003/06/17 04:26:52 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/e_gammaf_r.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
-       float __ieee754_gammaf_r(float x, int *signgamp)
-#else
-       float __ieee754_gammaf_r(x,signgamp)
-       float x; int *signgamp;
-#endif
+float
+__ieee754_gammaf_r(float x, int *signgamp)
 {
        return __ieee754_lgammaf_r(x,signgamp);
 }
index 608e12b..e3d6571 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/e_hypot.c,v 1.6 1999/08/28 00:06:31 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/e_hypot.c,v 1.2 2003/06/17 04:26:52 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/e_hypot.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /* __ieee754_hypot(x,y)
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
-       double __ieee754_hypot(double x, double y)
-#else
-       double __ieee754_hypot(x,y)
-       double x, y;
-#endif
+double
+__ieee754_hypot(double x, double y)
 {
        double a=x,b=y,t1,t2,y1,y2,w;
        int32_t j,k,ha,hb;
index 838eaf7..da4888b 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/e_hypotf.c,v 1.7 1999/08/28 00:06:32 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/e_hypotf.c,v 1.2 2003/06/17 04:26:52 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/e_hypotf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
-       float __ieee754_hypotf(float x, float y)
-#else
-       float __ieee754_hypot(x,y)
-       float x, y;
-#endif
+float
+__ieee754_hypotf(float x, float y)
 {
        float a=x,b=y,t1,t2,y1,y2,w;
        int32_t j,k,ha,hb;
index 07eb0d6..580b4cf 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/e_j0.c,v 1.5 1999/08/28 00:06:32 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/e_j0.c,v 1.2 2003/06/17 04:26:52 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/e_j0.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /* __ieee754_j0(x), __ieee754_y0(x)
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static double pzero(double), qzero(double);
-#else
-static double pzero(), qzero();
-#endif
 
-#ifdef __STDC__
 static const double
-#else
-static double
-#endif
 huge   = 1e300,
 one    = 1.0,
 invsqrtpi=  5.64189583547756279280e-01, /* 0x3FE20DD7, 0x50429B6D */
@@ -86,18 +78,10 @@ S02  =  1.16926784663337450260e-04, /* 0x3F1EA6D2, 0xDD57DBF4 */
 S03  =  5.13546550207318111446e-07, /* 0x3EA13B54, 0xCE84D5A9 */
 S04  =  1.16614003333790000205e-09; /* 0x3E1408BC, 0xF4745D8F */
 
-#ifdef __STDC__
 static const double zero = 0.0;
-#else
-static double zero = 0.0;
-#endif
 
-#ifdef __STDC__
-       double __ieee754_j0(double x)
-#else
-       double __ieee754_j0(x)
-       double x;
-#endif
+double
+__ieee754_j0(double x)
 {
        double z, s,c,ss,cc,r,u,v;
        int32_t hx,ix;
@@ -144,11 +128,7 @@ static double zero = 0.0;
        }
 }
 
-#ifdef __STDC__
 static const double
-#else
-static double
-#endif
 u00  = -7.38042951086872317523e-02, /* 0xBFB2E4D6, 0x99CBD01F */
 u01  =  1.76666452509181115538e-01, /* 0x3FC69D01, 0x9DE9E3FC */
 u02  = -1.38185671945596898896e-02, /* 0xBF8C4CE8, 0xB16CFA97 */
@@ -161,12 +141,8 @@ v02  =  7.60068627350353253702e-05, /* 0x3F13ECBB, 0xF578C6C1 */
 v03  =  2.59150851840457805467e-07, /* 0x3E91642D, 0x7FF202FD */
 v04  =  4.41110311332675467403e-10; /* 0x3DFE5018, 0x3BD6D9EF */
 
-#ifdef __STDC__
-       double __ieee754_y0(double x)
-#else
-       double __ieee754_y0(x)
-       double x;
-#endif
+double
+__ieee754_y0(double x)
 {
        double z, s,c,ss,cc,u,v;
        int32_t hx,ix,lx;
@@ -227,11 +203,7 @@ v04  =  4.41110311332675467403e-10; /* 0x3DFE5018, 0x3BD6D9EF */
  * and
  *     | pzero(x)-1-R/S | <= 2  ** ( -60.26)
  */
-#ifdef __STDC__
 static const double pR8[6] = { /* for x in [inf, 8]=1/[0,0.125] */
-#else
-static double pR8[6] = { /* for x in [inf, 8]=1/[0,0.125] */
-#endif
   0.00000000000000000000e+00, /* 0x00000000, 0x00000000 */
  -7.03124999999900357484e-02, /* 0xBFB1FFFF, 0xFFFFFD32 */
  -8.08167041275349795626e+00, /* 0xC02029D0, 0xB44FA779 */
@@ -239,11 +211,7 @@ static double pR8[6] = { /* for x in [inf, 8]=1/[0,0.125] */
  -2.48521641009428822144e+03, /* 0xC0A36A6E, 0xCD4DCAFC */
  -5.25304380490729545272e+03, /* 0xC0B4850B, 0x36CC643D */
 };
-#ifdef __STDC__
 static const double pS8[5] = {
-#else
-static double pS8[5] = {
-#endif
   1.16534364619668181717e+02, /* 0x405D2233, 0x07A96751 */
   3.83374475364121826715e+03, /* 0x40ADF37D, 0x50596938 */
   4.05978572648472545552e+04, /* 0x40E3D2BB, 0x6EB6B05F */
@@ -251,11 +219,7 @@ static double pS8[5] = {
   4.76277284146730962675e+04, /* 0x40E74177, 0x4F2C49DC */
 };
 
-#ifdef __STDC__
 static const double pR5[6] = { /* for x in [8,4.5454]=1/[0.125,0.22001] */
-#else
-static double pR5[6] = { /* for x in [8,4.5454]=1/[0.125,0.22001] */
-#endif
  -1.14125464691894502584e-11, /* 0xBDA918B1, 0x47E495CC */
  -7.03124940873599280078e-02, /* 0xBFB1FFFF, 0xE69AFBC6 */
  -4.15961064470587782438e+00, /* 0xC010A370, 0xF90C6BBF */
@@ -263,11 +227,7 @@ static double pR5[6] = { /* for x in [8,4.5454]=1/[0.125,0.22001] */
  -3.31231299649172967747e+02, /* 0xC074B3B3, 0x6742CC63 */
  -3.46433388365604912451e+02, /* 0xC075A6EF, 0x28A38BD7 */
 };
-#ifdef __STDC__
 static const double pS5[5] = {
-#else
-static double pS5[5] = {
-#endif
   6.07539382692300335975e+01, /* 0x404E6081, 0x0C98C5DE */
   1.05125230595704579173e+03, /* 0x40906D02, 0x5C7E2864 */
   5.97897094333855784498e+03, /* 0x40B75AF8, 0x8FBE1D60 */
@@ -275,11 +235,7 @@ static double pS5[5] = {
   2.40605815922939109441e+03, /* 0x40A2CC1D, 0xC70BE864 */
 };
 
-#ifdef __STDC__
 static const double pR3[6] = {/* for x in [4.547,2.8571]=1/[0.2199,0.35001] */
-#else
-static double pR3[6] = {/* for x in [4.547,2.8571]=1/[0.2199,0.35001] */
-#endif
  -2.54704601771951915620e-09, /* 0xBE25E103, 0x6FE1AA86 */
  -7.03119616381481654654e-02, /* 0xBFB1FFF6, 0xF7C0E24B */
  -2.40903221549529611423e+00, /* 0xC00345B2, 0xAEA48074 */
@@ -287,11 +243,7 @@ static double pR3[6] = {/* for x in [4.547,2.8571]=1/[0.2199,0.35001] */
  -5.80791704701737572236e+01, /* 0xC04D0A22, 0x420A1A45 */
  -3.14479470594888503854e+01, /* 0xC03F72AC, 0xA892D80F */
 };
-#ifdef __STDC__
 static const double pS3[5] = {
-#else
-static double pS3[5] = {
-#endif
   3.58560338055209726349e+01, /* 0x4041ED92, 0x84077DD3 */
   3.61513983050303863820e+02, /* 0x40769839, 0x464A7C0E */
   1.19360783792111533330e+03, /* 0x4092A66E, 0x6D1061D6 */
@@ -299,11 +251,7 @@ static double pS3[5] = {
   1.73580930813335754692e+02, /* 0x4065B296, 0xFC379081 */
 };
 
-#ifdef __STDC__
 static const double pR2[6] = {/* for x in [2.8570,2]=1/[0.3499,0.5] */
-#else
-static double pR2[6] = {/* for x in [2.8570,2]=1/[0.3499,0.5] */
-#endif
  -8.87534333032526411254e-08, /* 0xBE77D316, 0xE927026D */
  -7.03030995483624743247e-02, /* 0xBFB1FF62, 0x495E1E42 */
  -1.45073846780952986357e+00, /* 0xBFF73639, 0x8A24A843 */
@@ -311,11 +259,7 @@ static double pR2[6] = {/* for x in [2.8570,2]=1/[0.3499,0.5] */
  -1.11931668860356747786e+01, /* 0xC02662E6, 0xC5246303 */
  -3.23364579351335335033e+00, /* 0xC009DE81, 0xAF8FE70F */
 };
-#ifdef __STDC__
 static const double pS2[5] = {
-#else
-static double pS2[5] = {
-#endif
   2.22202997532088808441e+01, /* 0x40363865, 0x908B5959 */
   1.36206794218215208048e+02, /* 0x4061069E, 0x0EE8878F */
   2.70470278658083486789e+02, /* 0x4070E786, 0x42EA079B */
@@ -323,18 +267,10 @@ static double pS2[5] = {
   1.46576176948256193810e+01, /* 0x402D50B3, 0x44391809 */
 };
 
-#ifdef __STDC__
-       static double pzero(double x)
-#else
-       static double pzero(x)
-       double x;
-#endif
+static double
+pzero(double x)
 {
-#ifdef __STDC__
        const double *p,*q;
-#else
-       double *p,*q;
-#endif
        double z,r,s;
        int32_t ix;
        GET_HIGH_WORD(ix,x);
@@ -359,11 +295,7 @@ static double pS2[5] = {
  * and
  *     | qzero(x)/s +1.25-R/S | <= 2  ** ( -61.22)
  */
-#ifdef __STDC__
 static const double qR8[6] = { /* for x in [inf, 8]=1/[0,0.125] */
-#else
-static double qR8[6] = { /* for x in [inf, 8]=1/[0,0.125] */
-#endif
   0.00000000000000000000e+00, /* 0x00000000, 0x00000000 */
   7.32421874999935051953e-02, /* 0x3FB2BFFF, 0xFFFFFE2C */
   1.17682064682252693899e+01, /* 0x40278952, 0x5BB334D6 */
@@ -371,11 +303,7 @@ static double qR8[6] = { /* for x in [inf, 8]=1/[0,0.125] */
   8.85919720756468632317e+03, /* 0x40C14D99, 0x3E18F46D */
   3.70146267776887834771e+04, /* 0x40E212D4, 0x0E901566 */
 };
-#ifdef __STDC__
 static const double qS8[6] = {
-#else
-static double qS8[6] = {
-#endif
   1.63776026895689824414e+02, /* 0x406478D5, 0x365B39BC */
   8.09834494656449805916e+03, /* 0x40BFA258, 0x4E6B0563 */
   1.42538291419120476348e+05, /* 0x41016652, 0x54D38C3F */
@@ -384,11 +312,7 @@ static double qS8[6] = {
  -3.43899293537866615225e+05, /* 0xC114FD6D, 0x2C9530C5 */
 };
 
-#ifdef __STDC__
 static const double qR5[6] = { /* for x in [8,4.5454]=1/[0.125,0.22001] */
-#else
-static double qR5[6] = { /* for x in [8,4.5454]=1/[0.125,0.22001] */
-#endif
   1.84085963594515531381e-11, /* 0x3DB43D8F, 0x29CC8CD9 */
   7.32421766612684765896e-02, /* 0x3FB2BFFF, 0xD172B04C */
   5.83563508962056953777e+00, /* 0x401757B0, 0xB9953DD3 */
@@ -396,11 +320,7 @@ static double qR5[6] = { /* for x in [8,4.5454]=1/[0.125,0.22001] */
   1.02724376596164097464e+03, /* 0x40900CF9, 0x9DC8C481 */
   1.98997785864605384631e+03, /* 0x409F17E9, 0x53C6E3A6 */
 };
-#ifdef __STDC__
 static const double qS5[6] = {
-#else
-static double qS5[6] = {
-#endif
   8.27766102236537761883e+01, /* 0x4054B1B3, 0xFB5E1543 */
   2.07781416421392987104e+03, /* 0x40A03BA0, 0xDA21C0CE */
   1.88472887785718085070e+04, /* 0x40D267D2, 0x7B591E6D */
@@ -409,11 +329,7 @@ static double qS5[6] = {
  -5.35434275601944773371e+03, /* 0xC0B4EA57, 0xBEDBC609 */
 };
 
-#ifdef __STDC__
 static const double qR3[6] = {/* for x in [4.547,2.8571]=1/[0.2199,0.35001] */
-#else
-static double qR3[6] = {/* for x in [4.547,2.8571]=1/[0.2199,0.35001] */
-#endif
   4.37741014089738620906e-09, /* 0x3E32CD03, 0x6ADECB82 */
   7.32411180042911447163e-02, /* 0x3FB2BFEE, 0x0E8D0842 */
   3.34423137516170720929e+00, /* 0x400AC0FC, 0x61149CF5 */
@@ -421,11 +337,7 @@ static double qR3[6] = {/* for x in [4.547,2.8571]=1/[0.2199,0.35001] */
   1.70808091340565596283e+02, /* 0x406559DB, 0xE25EFD1F */
   1.66733948696651168575e+02, /* 0x4064D77C, 0x81FA21E0 */
 };
-#ifdef __STDC__
 static const double qS3[6] = {
-#else
-static double qS3[6] = {
-#endif
   4.87588729724587182091e+01, /* 0x40486122, 0xBFE343A6 */
   7.09689221056606015736e+02, /* 0x40862D83, 0x86544EB3 */
   3.70414822620111362994e+03, /* 0x40ACF04B, 0xE44DFC63 */
@@ -434,11 +346,7 @@ static double qS3[6] = {
  -1.49247451836156386662e+02, /* 0xC062A7EB, 0x201CF40F */
 };
 
-#ifdef __STDC__
 static const double qR2[6] = {/* for x in [2.8570,2]=1/[0.3499,0.5] */
-#else
-static double qR2[6] = {/* for x in [2.8570,2]=1/[0.3499,0.5] */
-#endif
   1.50444444886983272379e-07, /* 0x3E84313B, 0x54F76BDB */
   7.32234265963079278272e-02, /* 0x3FB2BEC5, 0x3E883E34 */
   1.99819174093815998816e+00, /* 0x3FFFF897, 0xE727779C */
@@ -446,11 +354,7 @@ static double qR2[6] = {/* for x in [2.8570,2]=1/[0.3499,0.5] */
   3.16662317504781540833e+01, /* 0x403FAA8E, 0x29FBDC4A */
   1.62527075710929267416e+01, /* 0x403040B1, 0x71814BB4 */
 };
-#ifdef __STDC__
 static const double qS2[6] = {
-#else
-static double qS2[6] = {
-#endif
   3.03655848355219184498e+01, /* 0x403E5D96, 0xF7C07AED */
   2.69348118608049844624e+02, /* 0x4070D591, 0xE4D14B40 */
   8.44783757595320139444e+02, /* 0x408A6645, 0x22B3BF22 */
@@ -459,18 +363,10 @@ static double qS2[6] = {
  -5.31095493882666946917e+00, /* 0xC0153E6A, 0xF8B32931 */
 };
 
-#ifdef __STDC__
-       static double qzero(double x)
-#else
-       static double qzero(x)
-       double x;
-#endif
+static double
+qzero(double x)
 {
-#ifdef __STDC__
        const double *p,*q;
-#else
-       double *p,*q;
-#endif
        double s,r,z;
        int32_t ix;
        GET_HIGH_WORD(ix,x);
index 5056133..0ec3442 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/e_j0f.c,v 1.5 1999/08/28 00:06:32 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/e_j0f.c,v 1.2 2003/06/17 04:26:52 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/e_j0f.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static float pzerof(float), qzerof(float);
-#else
-static float pzerof(), qzerof();
-#endif
 
-#ifdef __STDC__
 static const float
-#else
-static float
-#endif
 huge   = 1e30,
 one    = 1.0,
 invsqrtpi=  5.6418961287e-01, /* 0x3f106ebb */
@@ -44,18 +36,10 @@ S02  =  1.1692678527e-04, /* 0x38f53697 */
 S03  =  5.1354652442e-07, /* 0x3509daa6 */
 S04  =  1.1661400734e-09; /* 0x30a045e8 */
 
-#ifdef __STDC__
 static const float zero = 0.0;
-#else
-static float zero = 0.0;
-#endif
 
-#ifdef __STDC__
-       float __ieee754_j0f(float x)
-#else
-       float __ieee754_j0f(x)
-       float x;
-#endif
+float
+__ieee754_j0f(float x)
 {
        float z, s,c,ss,cc,r,u,v;
        int32_t hx,ix;
@@ -102,11 +86,7 @@ static float zero = 0.0;
        }
 }
 
-#ifdef __STDC__
 static const float
-#else
-static float
-#endif
 u00  = -7.3804296553e-02, /* 0xbd9726b5 */
 u01  =  1.7666645348e-01, /* 0x3e34e80d */
 u02  = -1.3818567619e-02, /* 0xbc626746 */
@@ -119,12 +99,8 @@ v02  =  7.6006865129e-05, /* 0x389f65e0 */
 v03  =  2.5915085189e-07, /* 0x348b216c */
 v04  =  4.4111031494e-10; /* 0x2ff280c2 */
 
-#ifdef __STDC__
-       float __ieee754_y0f(float x)
-#else
-       float __ieee754_y0f(x)
-       float x;
-#endif
+float
+__ieee754_y0f(float x)
 {
        float z, s,c,ss,cc,u,v;
        int32_t hx,ix;
@@ -185,11 +161,7 @@ v04  =  4.4111031494e-10; /* 0x2ff280c2 */
  * and
  *     | pzero(x)-1-R/S | <= 2  ** ( -60.26)
  */
-#ifdef __STDC__
 static const float pR8[6] = { /* for x in [inf, 8]=1/[0,0.125] */
-#else
-static float pR8[6] = { /* for x in [inf, 8]=1/[0,0.125] */
-#endif
   0.0000000000e+00, /* 0x00000000 */
  -7.0312500000e-02, /* 0xbd900000 */
  -8.0816707611e+00, /* 0xc1014e86 */
@@ -197,22 +169,14 @@ static float pR8[6] = { /* for x in [inf, 8]=1/[0,0.125] */
  -2.4852163086e+03, /* 0xc51b5376 */
  -5.2530439453e+03, /* 0xc5a4285a */
 };
-#ifdef __STDC__
 static const float pS8[5] = {
-#else
-static float pS8[5] = {
-#endif
   1.1653436279e+02, /* 0x42e91198 */
   3.8337448730e+03, /* 0x456f9beb */
   4.0597855469e+04, /* 0x471e95db */
   1.1675296875e+05, /* 0x47e4087c */
   4.7627726562e+04, /* 0x473a0bba */
 };
-#ifdef __STDC__
 static const float pR5[6] = { /* for x in [8,4.5454]=1/[0.125,0.22001] */
-#else
-static float pR5[6] = { /* for x in [8,4.5454]=1/[0.125,0.22001] */
-#endif
  -1.1412546255e-11, /* 0xad48c58a */
  -7.0312492549e-02, /* 0xbd8fffff */
  -4.1596107483e+00, /* 0xc0851b88 */
@@ -220,11 +184,7 @@ static float pR5[6] = { /* for x in [8,4.5454]=1/[0.125,0.22001] */
  -3.3123129272e+02, /* 0xc3a59d9b */
  -3.4643338013e+02, /* 0xc3ad3779 */
 };
-#ifdef __STDC__
 static const float pS5[5] = {
-#else
-static float pS5[5] = {
-#endif
   6.0753936768e+01, /* 0x42730408 */
   1.0512523193e+03, /* 0x44836813 */
   5.9789707031e+03, /* 0x45bad7c4 */
@@ -232,11 +192,7 @@ static float pS5[5] = {
   2.4060581055e+03, /* 0x451660ee */
 };
 
-#ifdef __STDC__
 static const float pR3[6] = {/* for x in [4.547,2.8571]=1/[0.2199,0.35001] */
-#else
-static float pR3[6] = {/* for x in [4.547,2.8571]=1/[0.2199,0.35001] */
-#endif
  -2.5470459075e-09, /* 0xb12f081b */
  -7.0311963558e-02, /* 0xbd8fffb8 */
  -2.4090321064e+00, /* 0xc01a2d95 */
@@ -244,11 +200,7 @@ static float pR3[6] = {/* for x in [4.547,2.8571]=1/[0.2199,0.35001] */
  -5.8079170227e+01, /* 0xc2685112 */
  -3.1447946548e+01, /* 0xc1fb9565 */
 };
-#ifdef __STDC__
 static const float pS3[5] = {
-#else
-static float pS3[5] = {
-#endif
   3.5856033325e+01, /* 0x420f6c94 */
   3.6151397705e+02, /* 0x43b4c1ca */
   1.1936077881e+03, /* 0x44953373 */
@@ -256,11 +208,7 @@ static float pS3[5] = {
   1.7358093262e+02, /* 0x432d94b8 */
 };
 
-#ifdef __STDC__
 static const float pR2[6] = {/* for x in [2.8570,2]=1/[0.3499,0.5] */
-#else
-static float pR2[6] = {/* for x in [2.8570,2]=1/[0.3499,0.5] */
-#endif
  -8.8753431271e-08, /* 0xb3be98b7 */
  -7.0303097367e-02, /* 0xbd8ffb12 */
  -1.4507384300e+00, /* 0xbfb9b1cc */
@@ -268,11 +216,7 @@ static float pR2[6] = {/* for x in [2.8570,2]=1/[0.3499,0.5] */
  -1.1193166733e+01, /* 0xc1331736 */
  -3.2336456776e+00, /* 0xc04ef40d */
 };
-#ifdef __STDC__
 static const float pS2[5] = {
-#else
-static float pS2[5] = {
-#endif
   2.2220300674e+01, /* 0x41b1c32d */
   1.3620678711e+02, /* 0x430834f0 */
   2.7047027588e+02, /* 0x43873c32 */
@@ -280,18 +224,10 @@ static float pS2[5] = {
   1.4657617569e+01, /* 0x416a859a */
 };
 
-#ifdef __STDC__
-       static float pzerof(float x)
-#else
-       static float pzerof(x)
-       float x;
-#endif
+static float
+pzerof(float x)
 {
-#ifdef __STDC__
        const float *p,*q;
-#else
-       float *p,*q;
-#endif
        float z,r,s;
        int32_t ix;
        GET_FLOAT_WORD(ix,x);
@@ -316,11 +252,7 @@ static float pS2[5] = {
  * and
  *     | qzero(x)/s +1.25-R/S | <= 2  ** ( -61.22)
  */
-#ifdef __STDC__
 static const float qR8[6] = { /* for x in [inf, 8]=1/[0,0.125] */
-#else
-static float qR8[6] = { /* for x in [inf, 8]=1/[0,0.125] */
-#endif
   0.0000000000e+00, /* 0x00000000 */
   7.3242187500e-02, /* 0x3d960000 */
   1.1768206596e+01, /* 0x413c4a93 */
@@ -328,11 +260,7 @@ static float qR8[6] = { /* for x in [inf, 8]=1/[0,0.125] */
   8.8591972656e+03, /* 0x460a6cca */
   3.7014625000e+04, /* 0x471096a0 */
 };
-#ifdef __STDC__
 static const float qS8[6] = {
-#else
-static float qS8[6] = {
-#endif
   1.6377603149e+02, /* 0x4323c6aa */
   8.0983447266e+03, /* 0x45fd12c2 */
   1.4253829688e+05, /* 0x480b3293 */
@@ -341,11 +269,7 @@ static float qS8[6] = {
  -3.4389928125e+05, /* 0xc8a7eb69 */
 };
 
-#ifdef __STDC__
 static const float qR5[6] = { /* for x in [8,4.5454]=1/[0.125,0.22001] */
-#else
-static float qR5[6] = { /* for x in [8,4.5454]=1/[0.125,0.22001] */
-#endif
   1.8408595828e-11, /* 0x2da1ec79 */
   7.3242180049e-02, /* 0x3d95ffff */
   5.8356351852e+00, /* 0x40babd86 */
@@ -353,11 +277,7 @@ static float qR5[6] = { /* for x in [8,4.5454]=1/[0.125,0.22001] */
   1.0272437744e+03, /* 0x448067cd */
   1.9899779053e+03, /* 0x44f8bf4b */
 };
-#ifdef __STDC__
 static const float qS5[6] = {
-#else
-static float qS5[6] = {
-#endif
   8.2776611328e+01, /* 0x42a58da0 */
   2.0778142090e+03, /* 0x4501dd07 */
   1.8847289062e+04, /* 0x46933e94 */
@@ -366,11 +286,7 @@ static float qS5[6] = {
  -5.3543427734e+03, /* 0xc5a752be */
 };
 
-#ifdef __STDC__
 static const float qR3[6] = {/* for x in [4.547,2.8571]=1/[0.2199,0.35001] */
-#else
-static float qR3[6] = {/* for x in [4.547,2.8571]=1/[0.2199,0.35001] */
-#endif
   4.3774099900e-09, /* 0x3196681b */
   7.3241114616e-02, /* 0x3d95ff70 */
   3.3442313671e+00, /* 0x405607e3 */
@@ -378,11 +294,7 @@ static float qR3[6] = {/* for x in [4.547,2.8571]=1/[0.2199,0.35001] */
   1.7080809021e+02, /* 0x432acedf */
   1.6673394775e+02, /* 0x4326bbe4 */
 };
-#ifdef __STDC__
 static const float qS3[6] = {
-#else
-static float qS3[6] = {
-#endif
   4.8758872986e+01, /* 0x42430916 */
   7.0968920898e+02, /* 0x44316c1c */
   3.7041481934e+03, /* 0x4567825f */
@@ -391,11 +303,7 @@ static float qS3[6] = {
  -1.4924745178e+02, /* 0xc3153f59 */
 };
 
-#ifdef __STDC__
 static const float qR2[6] = {/* for x in [2.8570,2]=1/[0.3499,0.5] */
-#else
-static float qR2[6] = {/* for x in [2.8570,2]=1/[0.3499,0.5] */
-#endif
   1.5044444979e-07, /* 0x342189db */
   7.3223426938e-02, /* 0x3d95f62a */
   1.9981917143e+00, /* 0x3fffc4bf */
@@ -403,11 +311,7 @@ static float qR2[6] = {/* for x in [2.8570,2]=1/[0.3499,0.5] */
   3.1666231155e+01, /* 0x41fd5471 */
   1.6252708435e+01, /* 0x4182058c */
 };
-#ifdef __STDC__
 static const float qS2[6] = {
-#else
-static float qS2[6] = {
-#endif
   3.0365585327e+01, /* 0x41f2ecb8 */
   2.6934811401e+02, /* 0x4386ac8f */
   8.4478375244e+02, /* 0x44533229 */
@@ -416,18 +320,10 @@ static float qS2[6] = {
  -5.3109550476e+00, /* 0xc0a9f358 */
 };
 
-#ifdef __STDC__
-       static float qzerof(float x)
-#else
-       static float qzerof(x)
-       float x;
-#endif
+static float
+qzerof(float x)
 {
-#ifdef __STDC__
        const float *p,*q;
-#else
-       float *p,*q;
-#endif
        float s,r,z;
        int32_t ix;
        GET_FLOAT_WORD(ix,x);
index c99aa37..dda3268 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/e_j1.c,v 1.5 1999/08/28 00:06:33 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/e_j1.c,v 1.2 2003/06/17 04:26:52 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/e_j1.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /* __ieee754_j1(x), __ieee754_y1(x)
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static double pone(double), qone(double);
-#else
-static double pone(), qone();
-#endif
 
-#ifdef __STDC__
 static const double
-#else
-static double
-#endif
 huge    = 1e300,
 one    = 1.0,
 invsqrtpi=  5.64189583547756279280e-01, /* 0x3FE20DD7, 0x50429B6D */
@@ -87,18 +79,10 @@ s03  =  1.17718464042623683263e-06, /* 0x3EB3BFF8, 0x333F8498 */
 s04  =  5.04636257076217042715e-09, /* 0x3E35AC88, 0xC97DFF2C */
 s05  =  1.23542274426137913908e-11; /* 0x3DAB2ACF, 0xCFB97ED8 */
 
-#ifdef __STDC__
 static const double zero    = 0.0;
-#else
-static double zero    = 0.0;
-#endif
 
-#ifdef __STDC__
-       double __ieee754_j1(double x)
-#else
-       double __ieee754_j1(x)
-       double x;
-#endif
+double
+__ieee754_j1(double x)
 {
        double z, s,c,ss,cc,r,u,v,y;
        int32_t hx,ix;
@@ -139,22 +123,14 @@ static double zero    = 0.0;
        return(x*0.5+r/s);
 }
 
-#ifdef __STDC__
 static const double U0[5] = {
-#else
-static double U0[5] = {
-#endif
  -1.96057090646238940668e-01, /* 0xBFC91866, 0x143CBC8A */
   5.04438716639811282616e-02, /* 0x3FA9D3C7, 0x76292CD1 */
  -1.91256895875763547298e-03, /* 0xBF5F55E5, 0x4844F50F */
   2.35252600561610495928e-05, /* 0x3EF8AB03, 0x8FA6B88E */
  -9.19099158039878874504e-08, /* 0xBE78AC00, 0x569105B8 */
 };
-#ifdef __STDC__
 static const double V0[5] = {
-#else
-static double V0[5] = {
-#endif
   1.99167318236649903973e-02, /* 0x3F94650D, 0x3F4DA9F0 */
   2.02552581025135171496e-04, /* 0x3F2A8C89, 0x6C257764 */
   1.35608801097516229404e-06, /* 0x3EB6C05A, 0x894E8CA6 */
@@ -162,12 +138,8 @@ static double V0[5] = {
   1.66559246207992079114e-11, /* 0x3DB25039, 0xDACA772A */
 };
 
-#ifdef __STDC__
-       double __ieee754_y1(double x)
-#else
-       double __ieee754_y1(x)
-       double x;
-#endif
+double
+__ieee754_y1(double x)
 {
        double z, s,c,ss,cc,u,v;
        int32_t hx,ix,lx;
@@ -225,11 +197,7 @@ static double V0[5] = {
  *     | pone(x)-1-R/S | <= 2  ** ( -60.06)
  */
 
-#ifdef __STDC__
 static const double pr8[6] = { /* for x in [inf, 8]=1/[0,0.125] */
-#else
-static double pr8[6] = { /* for x in [inf, 8]=1/[0,0.125] */
-#endif
   0.00000000000000000000e+00, /* 0x00000000, 0x00000000 */
   1.17187499999988647970e-01, /* 0x3FBDFFFF, 0xFFFFFCCE */
   1.32394806593073575129e+01, /* 0x402A7A9D, 0x357F7FCE */
@@ -237,11 +205,7 @@ static double pr8[6] = { /* for x in [inf, 8]=1/[0,0.125] */
   3.87474538913960532227e+03, /* 0x40AE457D, 0xA3A532CC */
   7.91447954031891731574e+03, /* 0x40BEEA7A, 0xC32782DD */
 };
-#ifdef __STDC__
 static const double ps8[5] = {
-#else
-static double ps8[5] = {
-#endif
   1.14207370375678408436e+02, /* 0x405C8D45, 0x8E656CAC */
   3.65093083420853463394e+03, /* 0x40AC85DC, 0x964D274F */
   3.69562060269033463555e+04, /* 0x40E20B86, 0x97C5BB7F */
@@ -249,11 +213,7 @@ static double ps8[5] = {
   3.08042720627888811578e+04, /* 0x40DE1511, 0x697A0B2D */
 };
 
-#ifdef __STDC__
 static const double pr5[6] = { /* for x in [8,4.5454]=1/[0.125,0.22001] */
-#else
-static double pr5[6] = { /* for x in [8,4.5454]=1/[0.125,0.22001] */
-#endif
   1.31990519556243522749e-11, /* 0x3DAD0667, 0xDAE1CA7D */
   1.17187493190614097638e-01, /* 0x3FBDFFFF, 0xE2C10043 */
   6.80275127868432871736e+00, /* 0x401B3604, 0x6E6315E3 */
@@ -261,11 +221,7 @@ static double pr5[6] = { /* for x in [8,4.5454]=1/[0.125,0.22001] */
   5.17636139533199752805e+02, /* 0x40802D16, 0xD052D649 */
   5.28715201363337541807e+02, /* 0x408085B8, 0xBB7E0CB7 */
 };
-#ifdef __STDC__
 static const double ps5[5] = {
-#else
-static double ps5[5] = {
-#endif
   5.92805987221131331921e+01, /* 0x404DA3EA, 0xA8AF633D */
   9.91401418733614377743e+02, /* 0x408EFB36, 0x1B066701 */
   5.35326695291487976647e+03, /* 0x40B4E944, 0x5706B6FB */
@@ -273,11 +229,7 @@ static double ps5[5] = {
   1.50404688810361062679e+03, /* 0x40978030, 0x036F5E51 */
 };
 
-#ifdef __STDC__
 static const double pr3[6] = {
-#else
-static double pr3[6] = {/* for x in [4.547,2.8571]=1/[0.2199,0.35001] */
-#endif
   3.02503916137373618024e-09, /* 0x3E29FC21, 0xA7AD9EDD */
   1.17186865567253592491e-01, /* 0x3FBDFFF5, 0x5B21D17B */
   3.93297750033315640650e+00, /* 0x400F76BC, 0xE85EAD8A */
@@ -285,11 +237,7 @@ static double pr3[6] = {/* for x in [4.547,2.8571]=1/[0.2199,0.35001] */
   9.10550110750781271918e+01, /* 0x4056C385, 0x4D2C1837 */
   4.85590685197364919645e+01, /* 0x4048478F, 0x8EA83EE5 */
 };
-#ifdef __STDC__
 static const double ps3[5] = {
-#else
-static double ps3[5] = {
-#endif
   3.47913095001251519989e+01, /* 0x40416549, 0xA134069C */
   3.36762458747825746741e+02, /* 0x40750C33, 0x07F1A75F */
   1.04687139975775130551e+03, /* 0x40905B7C, 0x5037D523 */
@@ -297,11 +245,7 @@ static double ps3[5] = {
   1.03787932439639277504e+02, /* 0x4059F26D, 0x7C2EED53 */
 };
 
-#ifdef __STDC__
 static const double pr2[6] = {/* for x in [2.8570,2]=1/[0.3499,0.5] */
-#else
-static double pr2[6] = {/* for x in [2.8570,2]=1/[0.3499,0.5] */
-#endif
   1.07710830106873743082e-07, /* 0x3E7CE9D4, 0xF65544F4 */
   1.17176219462683348094e-01, /* 0x3FBDFF42, 0xBE760D83 */
   2.36851496667608785174e+00, /* 0x4002F2B7, 0xF98FAEC0 */
@@ -309,11 +253,7 @@ static double pr2[6] = {/* for x in [2.8570,2]=1/[0.3499,0.5] */
   1.76939711271687727390e+01, /* 0x4031B1A8, 0x177F8EE2 */
   5.07352312588818499250e+00, /* 0x40144B49, 0xA574C1FE */
 };
-#ifdef __STDC__
 static const double ps2[5] = {
-#else
-static double ps2[5] = {
-#endif
   2.14364859363821409488e+01, /* 0x40356FBD, 0x8AD5ECDC */
   1.25290227168402751090e+02, /* 0x405F5293, 0x14F92CD5 */
   2.32276469057162813669e+02, /* 0x406D08D8, 0xD5A2DBD9 */
@@ -321,18 +261,10 @@ static double ps2[5] = {
   8.36463893371618283368e+00, /* 0x4020BAB1, 0xF44E5192 */
 };
 
-#ifdef __STDC__
-       static double pone(double x)
-#else
-       static double pone(x)
-       double x;
-#endif
+static double
+pone(double x)
 {
-#ifdef __STDC__
        const double *p,*q;
-#else
-       double *p,*q;
-#endif
        double z,r,s;
         int32_t ix;
        GET_HIGH_WORD(ix,x);
@@ -358,11 +290,7 @@ static double ps2[5] = {
  *     | qone(x)/s -0.375-R/S | <= 2  ** ( -61.13)
  */
 
-#ifdef __STDC__
 static const double qr8[6] = { /* for x in [inf, 8]=1/[0,0.125] */
-#else
-static double qr8[6] = { /* for x in [inf, 8]=1/[0,0.125] */
-#endif
   0.00000000000000000000e+00, /* 0x00000000, 0x00000000 */
  -1.02539062499992714161e-01, /* 0xBFBA3FFF, 0xFFFFFDF3 */
  -1.62717534544589987888e+01, /* 0xC0304591, 0xA26779F7 */
@@ -370,11 +298,7 @@ static double qr8[6] = { /* for x in [inf, 8]=1/[0,0.125] */
  -1.18498066702429587167e+04, /* 0xC0C724E7, 0x40F87415 */
  -4.84385124285750353010e+04, /* 0xC0E7A6D0, 0x65D09C6A */
 };
-#ifdef __STDC__
 static const double qs8[6] = {
-#else
-static double qs8[6] = {
-#endif
   1.61395369700722909556e+02, /* 0x40642CA6, 0xDE5BCDE5 */
   7.82538599923348465381e+03, /* 0x40BE9162, 0xD0D88419 */
   1.33875336287249578163e+05, /* 0x4100579A, 0xB0B75E98 */
@@ -383,11 +307,7 @@ static double qs8[6] = {
  -2.94490264303834643215e+05, /* 0xC111F969, 0x0EA5AA18 */
 };
 
-#ifdef __STDC__
 static const double qr5[6] = { /* for x in [8,4.5454]=1/[0.125,0.22001] */
-#else
-static double qr5[6] = { /* for x in [8,4.5454]=1/[0.125,0.22001] */
-#endif
  -2.08979931141764104297e-11, /* 0xBDB6FA43, 0x1AA1A098 */
  -1.02539050241375426231e-01, /* 0xBFBA3FFF, 0xCB597FEF */
  -8.05644828123936029840e+00, /* 0xC0201CE6, 0xCA03AD4B */
@@ -395,11 +315,7 @@ static double qr5[6] = { /* for x in [8,4.5454]=1/[0.125,0.22001] */
  -1.37319376065508163265e+03, /* 0xC09574C6, 0x6931734F */
  -2.61244440453215656817e+03, /* 0xC0A468E3, 0x88FDA79D */
 };
-#ifdef __STDC__
 static const double qs5[6] = {
-#else
-static double qs5[6] = {
-#endif
   8.12765501384335777857e+01, /* 0x405451B2, 0xFF5A11B2 */
   1.99179873460485964642e+03, /* 0x409F1F31, 0xE77BF839 */
   1.74684851924908907677e+04, /* 0x40D10F1F, 0x0D64CE29 */
@@ -408,11 +324,7 @@ static double qs5[6] = {
  -4.71918354795128470869e+03, /* 0xC0B26F2E, 0xFCFFA004 */
 };
 
-#ifdef __STDC__
 static const double qr3[6] = {
-#else
-static double qr3[6] = {/* for x in [4.547,2.8571]=1/[0.2199,0.35001] */
-#endif
  -5.07831226461766561369e-09, /* 0xBE35CFA9, 0xD38FC84F */
  -1.02537829820837089745e-01, /* 0xBFBA3FEB, 0x51AEED54 */
  -4.61011581139473403113e+00, /* 0xC01270C2, 0x3302D9FF */
@@ -420,11 +332,7 @@ static double qr3[6] = {/* for x in [4.547,2.8571]=1/[0.2199,0.35001] */
  -2.28244540737631695038e+02, /* 0xC06C87D3, 0x4718D55F */
  -2.19210128478909325622e+02, /* 0xC06B66B9, 0x5F5C1BF6 */
 };
-#ifdef __STDC__
 static const double qs3[6] = {
-#else
-static double qs3[6] = {
-#endif
   4.76651550323729509273e+01, /* 0x4047D523, 0xCCD367E4 */
   6.73865112676699709482e+02, /* 0x40850EEB, 0xC031EE3E */
   3.38015286679526343505e+03, /* 0x40AA684E, 0x448E7C9A */
@@ -433,11 +341,7 @@ static double qs3[6] = {
  -1.35201191444307340817e+02, /* 0xC060E670, 0x290A311F */
 };
 
-#ifdef __STDC__
 static const double qr2[6] = {/* for x in [2.8570,2]=1/[0.3499,0.5] */
-#else
-static double qr2[6] = {/* for x in [2.8570,2]=1/[0.3499,0.5] */
-#endif
  -1.78381727510958865572e-07, /* 0xBE87F126, 0x44C626D2 */
  -1.02517042607985553460e-01, /* 0xBFBA3E8E, 0x9148B010 */
  -2.75220568278187460720e+00, /* 0xC0060484, 0x69BB4EDA */
@@ -445,11 +349,7 @@ static double qr2[6] = {/* for x in [2.8570,2]=1/[0.3499,0.5] */
  -4.23253133372830490089e+01, /* 0xC04529A3, 0xDE104AAA */
  -2.13719211703704061733e+01, /* 0xC0355F36, 0x39CF6E52 */
 };
-#ifdef __STDC__
 static const double qs2[6] = {
-#else
-static double qs2[6] = {
-#endif
   2.95333629060523854548e+01, /* 0x403D888A, 0x78AE64FF */
   2.52981549982190529136e+02, /* 0x406F9F68, 0xDB821CBA */
   7.57502834868645436472e+02, /* 0x4087AC05, 0xCE49A0F7 */
@@ -458,18 +358,10 @@ static double qs2[6] = {
  -4.95949898822628210127e+00, /* 0xC013D686, 0xE71BE86B */
 };
 
-#ifdef __STDC__
-       static double qone(double x)
-#else
-       static double qone(x)
-       double x;
-#endif
+static double
+qone(double x)
 {
-#ifdef __STDC__
        const double *p,*q;
-#else
-       double *p,*q;
-#endif
        double  s,r,z;
        int32_t ix;
        GET_HIGH_WORD(ix,x);
index 9013426..bcad46e 100644 (file)
@@ -1,8 +1,8 @@
-/* e_j1f.c -- float version of e_j1.c.
+/* e_j3f.c -- float version of e_j1.c.
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/e_j1f.c,v 1.5 1999/08/28 00:06:33 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/e_j1f.c,v 1.2 2003/06/17 04:26:52 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/e_j1f.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static float ponef(float), qonef(float);
-#else
-static float ponef(), qonef();
-#endif
 
-#ifdef __STDC__
 static const float
-#else
-static float
-#endif
 huge    = 1e30,
 one    = 1.0,
 invsqrtpi=  5.6418961287e-01, /* 0x3f106ebb */
@@ -45,18 +37,10 @@ s03  =  1.1771846857e-06, /* 0x359dffc2 */
 s04  =  5.0463624390e-09, /* 0x31ad6446 */
 s05  =  1.2354227016e-11; /* 0x2d59567e */
 
-#ifdef __STDC__
 static const float zero    = 0.0;
-#else
-static float zero    = 0.0;
-#endif
 
-#ifdef __STDC__
-       float __ieee754_j1f(float x)
-#else
-       float __ieee754_j1f(x)
-       float x;
-#endif
+float
+__ieee754_j1f(float x)
 {
        float z, s,c,ss,cc,r,u,v,y;
        int32_t hx,ix;
@@ -97,22 +81,14 @@ static float zero    = 0.0;
        return(x*(float)0.5+r/s);
 }
 
-#ifdef __STDC__
 static const float U0[5] = {
-#else
-static float U0[5] = {
-#endif
  -1.9605709612e-01, /* 0xbe48c331 */
   5.0443872809e-02, /* 0x3d4e9e3c */
  -1.9125689287e-03, /* 0xbafaaf2a */
   2.3525259166e-05, /* 0x37c5581c */
  -9.1909917899e-08, /* 0xb3c56003 */
 };
-#ifdef __STDC__
 static const float V0[5] = {
-#else
-static float V0[5] = {
-#endif
   1.9916731864e-02, /* 0x3ca3286a */
   2.0255257550e-04, /* 0x3954644b */
   1.3560879779e-06, /* 0x35b602d4 */
@@ -120,12 +96,8 @@ static float V0[5] = {
   1.6655924903e-11, /* 0x2d9281cf */
 };
 
-#ifdef __STDC__
-       float __ieee754_y1f(float x)
-#else
-       float __ieee754_y1f(x)
-       float x;
-#endif
+float
+__ieee754_y1f(float x)
 {
        float z, s,c,ss,cc,u,v;
        int32_t hx,ix;
@@ -183,11 +155,7 @@ static float V0[5] = {
  *     | pone(x)-1-R/S | <= 2  ** ( -60.06)
  */
 
-#ifdef __STDC__
 static const float pr8[6] = { /* for x in [inf, 8]=1/[0,0.125] */
-#else
-static float pr8[6] = { /* for x in [inf, 8]=1/[0,0.125] */
-#endif
   0.0000000000e+00, /* 0x00000000 */
   1.1718750000e-01, /* 0x3df00000 */
   1.3239480972e+01, /* 0x4153d4ea */
@@ -195,11 +163,7 @@ static float pr8[6] = { /* for x in [inf, 8]=1/[0,0.125] */
   3.8747453613e+03, /* 0x45722bed */
   7.9144794922e+03, /* 0x45f753d6 */
 };
-#ifdef __STDC__
 static const float ps8[5] = {
-#else
-static float ps8[5] = {
-#endif
   1.1420736694e+02, /* 0x42e46a2c */
   3.6509309082e+03, /* 0x45642ee5 */
   3.6956207031e+04, /* 0x47105c35 */
@@ -207,11 +171,7 @@ static float ps8[5] = {
   3.0804271484e+04, /* 0x46f0a88b */
 };
 
-#ifdef __STDC__
 static const float pr5[6] = { /* for x in [8,4.5454]=1/[0.125,0.22001] */
-#else
-static float pr5[6] = { /* for x in [8,4.5454]=1/[0.125,0.22001] */
-#endif
   1.3199052094e-11, /* 0x2d68333f */
   1.1718749255e-01, /* 0x3defffff */
   6.8027510643e+00, /* 0x40d9b023 */
@@ -219,11 +179,7 @@ static float pr5[6] = { /* for x in [8,4.5454]=1/[0.125,0.22001] */
   5.1763616943e+02, /* 0x440168b7 */
   5.2871520996e+02, /* 0x44042dc6 */
 };
-#ifdef __STDC__
 static const float ps5[5] = {
-#else
-static float ps5[5] = {
-#endif
   5.9280597687e+01, /* 0x426d1f55 */
   9.9140142822e+02, /* 0x4477d9b1 */
   5.3532670898e+03, /* 0x45a74a23 */
@@ -231,11 +187,7 @@ static float ps5[5] = {
   1.5040468750e+03, /* 0x44bc0180 */
 };
 
-#ifdef __STDC__
 static const float pr3[6] = {
-#else
-static float pr3[6] = {/* for x in [4.547,2.8571]=1/[0.2199,0.35001] */
-#endif
   3.0250391081e-09, /* 0x314fe10d */
   1.1718686670e-01, /* 0x3defffab */
   3.9329774380e+00, /* 0x407bb5e7 */
@@ -243,11 +195,7 @@ static float pr3[6] = {/* for x in [4.547,2.8571]=1/[0.2199,0.35001] */
   9.1055007935e+01, /* 0x42b61c2a */
   4.8559066772e+01, /* 0x42423c7c */
 };
-#ifdef __STDC__
 static const float ps3[5] = {
-#else
-static float ps3[5] = {
-#endif
   3.4791309357e+01, /* 0x420b2a4d */
   3.3676245117e+02, /* 0x43a86198 */
   1.0468714600e+03, /* 0x4482dbe3 */
@@ -255,11 +203,7 @@ static float ps3[5] = {
   1.0378793335e+02, /* 0x42cf936c */
 };
 
-#ifdef __STDC__
 static const float pr2[6] = {/* for x in [2.8570,2]=1/[0.3499,0.5] */
-#else
-static float pr2[6] = {/* for x in [2.8570,2]=1/[0.3499,0.5] */
-#endif
   1.0771083225e-07, /* 0x33e74ea8 */
   1.1717621982e-01, /* 0x3deffa16 */
   2.3685150146e+00, /* 0x401795c0 */
@@ -267,11 +211,7 @@ static float pr2[6] = {/* for x in [2.8570,2]=1/[0.3499,0.5] */
   1.7693971634e+01, /* 0x418d8d41 */
   5.0735230446e+00, /* 0x40a25a4d */
 };
-#ifdef __STDC__
 static const float ps2[5] = {
-#else
-static float ps2[5] = {
-#endif
   2.1436485291e+01, /* 0x41ab7dec */
   1.2529022980e+02, /* 0x42fa9499 */
   2.3227647400e+02, /* 0x436846c7 */
@@ -279,18 +219,10 @@ static float ps2[5] = {
   8.3646392822e+00, /* 0x4105d590 */
 };
 
-#ifdef __STDC__
-       static float ponef(float x)
-#else
-       static float ponef(x)
-       float x;
-#endif
+static float
+ponef(float x)
 {
-#ifdef __STDC__
        const float *p,*q;
-#else
-       float *p,*q;
-#endif
        float z,r,s;
         int32_t ix;
        GET_FLOAT_WORD(ix,x);
@@ -316,11 +248,7 @@ static float ps2[5] = {
  *     | qone(x)/s -0.375-R/S | <= 2  ** ( -61.13)
  */
 
-#ifdef __STDC__
 static const float qr8[6] = { /* for x in [inf, 8]=1/[0,0.125] */
-#else
-static float qr8[6] = { /* for x in [inf, 8]=1/[0,0.125] */
-#endif
   0.0000000000e+00, /* 0x00000000 */
  -1.0253906250e-01, /* 0xbdd20000 */
  -1.6271753311e+01, /* 0xc1822c8d */
@@ -328,11 +256,7 @@ static float qr8[6] = { /* for x in [inf, 8]=1/[0,0.125] */
  -1.1849806641e+04, /* 0xc639273a */
  -4.8438511719e+04, /* 0xc73d3683 */
 };
-#ifdef __STDC__
 static const float qs8[6] = {
-#else
-static float qs8[6] = {
-#endif
   1.6139537048e+02, /* 0x43216537 */
   7.8253862305e+03, /* 0x45f48b17 */
   1.3387534375e+05, /* 0x4802bcd6 */
@@ -341,11 +265,7 @@ static float qs8[6] = {
  -2.9449025000e+05, /* 0xc88fcb48 */
 };
 
-#ifdef __STDC__
 static const float qr5[6] = { /* for x in [8,4.5454]=1/[0.125,0.22001] */
-#else
-static float qr5[6] = { /* for x in [8,4.5454]=1/[0.125,0.22001] */
-#endif
  -2.0897993405e-11, /* 0xadb7d219 */
  -1.0253904760e-01, /* 0xbdd1fffe */
  -8.0564479828e+00, /* 0xc100e736 */
@@ -353,11 +273,7 @@ static float qr5[6] = { /* for x in [8,4.5454]=1/[0.125,0.22001] */
  -1.3731937256e+03, /* 0xc4aba633 */
  -2.6124443359e+03, /* 0xc523471c */
 };
-#ifdef __STDC__
 static const float qs5[6] = {
-#else
-static float qs5[6] = {
-#endif
   8.1276550293e+01, /* 0x42a28d98 */
   1.9917987061e+03, /* 0x44f8f98f */
   1.7468484375e+04, /* 0x468878f8 */
@@ -366,11 +282,7 @@ static float qs5[6] = {
  -4.7191835938e+03, /* 0xc5937978 */
 };
 
-#ifdef __STDC__
 static const float qr3[6] = {
-#else
-static float qr3[6] = {/* for x in [4.547,2.8571]=1/[0.2199,0.35001] */
-#endif
  -5.0783124372e-09, /* 0xb1ae7d4f */
  -1.0253783315e-01, /* 0xbdd1ff5b */
  -4.6101160049e+00, /* 0xc0938612 */
@@ -378,11 +290,7 @@ static float qr3[6] = {/* for x in [4.547,2.8571]=1/[0.2199,0.35001] */
  -2.2824453735e+02, /* 0xc3643e9a */
  -2.1921012878e+02, /* 0xc35b35cb */
 };
-#ifdef __STDC__
 static const float qs3[6] = {
-#else
-static float qs3[6] = {
-#endif
   4.7665153503e+01, /* 0x423ea91e */
   6.7386511230e+02, /* 0x4428775e */
   3.3801528320e+03, /* 0x45534272 */
@@ -391,11 +299,7 @@ static float qs3[6] = {
  -1.3520118713e+02, /* 0xc3073381 */
 };
 
-#ifdef __STDC__
 static const float qr2[6] = {/* for x in [2.8570,2]=1/[0.3499,0.5] */
-#else
-static float qr2[6] = {/* for x in [2.8570,2]=1/[0.3499,0.5] */
-#endif
  -1.7838172539e-07, /* 0xb43f8932 */
  -1.0251704603e-01, /* 0xbdd1f475 */
  -2.7522056103e+00, /* 0xc0302423 */
@@ -403,11 +307,7 @@ static float qr2[6] = {/* for x in [2.8570,2]=1/[0.3499,0.5] */
  -4.2325313568e+01, /* 0xc2294d1f */
  -2.1371921539e+01, /* 0xc1aaf9b2 */
 };
-#ifdef __STDC__
 static const float qs2[6] = {
-#else
-static float qs2[6] = {
-#endif
   2.9533363342e+01, /* 0x41ec4454 */
   2.5298155212e+02, /* 0x437cfb47 */
   7.5750280762e+02, /* 0x443d602e */
@@ -416,18 +316,10 @@ static float qs2[6] = {
  -4.9594988823e+00, /* 0xc09eb437 */
 };
 
-#ifdef __STDC__
-       static float qonef(float x)
-#else
-       static float qonef(x)
-       float x;
-#endif
+static float
+qonef(float x)
 {
-#ifdef __STDC__
        const float *p,*q;
-#else
-       float *p,*q;
-#endif
        float  s,r,z;
        int32_t ix;
        GET_FLOAT_WORD(ix,x);
index 333f3e5..2a44255 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/e_jn.c,v 1.6 1999/08/28 00:06:33 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/e_jn.c,v 1.2 2003/06/17 04:26:52 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/e_jn.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const double
-#else
-static double
-#endif
 invsqrtpi=  5.64189583547756279280e-01, /* 0x3FE20DD7, 0x50429B6D */
 two   =  2.00000000000000000000e+00, /* 0x40000000, 0x00000000 */
 one   =  1.00000000000000000000e+00; /* 0x3FF00000, 0x00000000 */
 
-#ifdef __STDC__
 static const double zero  =  0.00000000000000000000e+00;
-#else
-static double zero  =  0.00000000000000000000e+00;
-#endif
 
-#ifdef __STDC__
-       double __ieee754_jn(int n, double x)
-#else
-       double __ieee754_jn(n,x)
-       int n; double x;
-#endif
+double
+__ieee754_jn(int n, double x)
 {
        int32_t i,hx,ix,lx, sgn;
        double a, b, temp, di;
@@ -217,12 +205,8 @@ static double zero  =  0.00000000000000000000e+00;
        if(sgn==1) return -b; else return b;
 }
 
-#ifdef __STDC__
-       double __ieee754_yn(int n, double x)
-#else
-       double __ieee754_yn(n,x)
-       int n; double x;
-#endif
+double
+__ieee754_yn(int n, double x)
 {
        int32_t i,hx,ix,lx;
        int32_t sign;
index 28be8ef..7ea5b29 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/e_jnf.c,v 1.6 1999/08/28 00:06:34 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/e_jnf.c,v 1.2 2003/06/17 04:26:52 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/e_jnf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const float
-#else
-static float
-#endif
 invsqrtpi=  5.6418961287e-01, /* 0x3f106ebb */
 two   =  2.0000000000e+00, /* 0x40000000 */
 one   =  1.0000000000e+00; /* 0x3F800000 */
 
-#ifdef __STDC__
 static const float zero  =  0.0000000000e+00;
-#else
-static float zero  =  0.0000000000e+00;
-#endif
 
-#ifdef __STDC__
-       float __ieee754_jnf(int n, float x)
-#else
-       float __ieee754_jnf(n,x)
-       int n; float x;
-#endif
+float
+__ieee754_jnf(int n, float x)
 {
        int32_t i,hx,ix, sgn;
        float a, b, temp, di;
@@ -171,12 +159,8 @@ static float zero  =  0.0000000000e+00;
        if(sgn==1) return -b; else return b;
 }
 
-#ifdef __STDC__
-       float __ieee754_ynf(int n, float x)
-#else
-       float __ieee754_ynf(n,x)
-       int n; float x;
-#endif
+float
+__ieee754_ynf(int n, float x)
 {
        int32_t i,hx,ix,ib;
        int32_t sign;
index bd9448b..4f1a38c 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/e_lgamma.c,v 1.5 1999/08/28 00:06:34 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/e_lgamma.c,v 1.2 2003/06/17 04:26:52 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/e_lgamma.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /* __ieee754_lgamma(x)
 
 extern int signgam;
 
-#ifdef __STDC__
-       double __ieee754_lgamma(double x)
-#else
-       double __ieee754_lgamma(x)
-       double x;
-#endif
+double
+__ieee754_lgamma(double x)
 {
        return __ieee754_lgamma_r(x,&signgam);
 }
index 25ebad6..e3336eb 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/e_lgamma_r.c,v 1.5 1999/08/28 00:06:34 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/e_lgamma_r.c,v 1.2 2003/06/17 04:26:52 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/e_lgamma_r.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /* __ieee754_lgamma_r(x, signgamp)
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const double
-#else
-static double
-#endif
 two52=  4.50359962737049600000e+15, /* 0x43300000, 0x00000000 */
 half=  5.00000000000000000000e-01, /* 0x3FE00000, 0x00000000 */
 one =  1.00000000000000000000e+00, /* 0x3FF00000, 0x00000000 */
@@ -155,18 +151,10 @@ w4  = -5.95187557450339963135e-04, /* 0xBF4380CB, 0x8C0FE741 */
 w5  =  8.36339918996282139126e-04, /* 0x3F4B67BA, 0x4CDAD5D1 */
 w6  = -1.63092934096575273989e-03; /* 0xBF5AB89D, 0x0B9E43E4 */
 
-#ifdef __STDC__
 static const double zero=  0.00000000000000000000e+00;
-#else
-static double zero=  0.00000000000000000000e+00;
-#endif
 
-#ifdef __STDC__
-       static double sin_pi(double x)
-#else
-       static double sin_pi(x)
-       double x;
-#endif
+static double
+sin_pi(double x)
 {
        double y,z;
        int n,ix;
@@ -211,12 +199,8 @@ static double zero=  0.00000000000000000000e+00;
 }
 
 
-#ifdef __STDC__
-       double __ieee754_lgamma_r(double x, int *signgamp)
-#else
-       double __ieee754_lgamma_r(x,signgamp)
-       double x; int *signgamp;
-#endif
+double
+__ieee754_lgamma_r(double x, int *signgamp)
 {
        double t,y,z,nadj,p,p1,p2,p3,q,r,w;
        int i,hx,lx,ix;
index 86aa195..86fd67f 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/e_lgammaf.c,v 1.5 1999/08/28 00:06:35 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/e_lgammaf.c,v 1.2 2003/06/17 04:26:52 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/e_lgammaf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 
 extern int signgam;
 
-#ifdef __STDC__
-       float __ieee754_lgammaf(float x)
-#else
-       float __ieee754_lgammaf(x)
-       float x;
-#endif
+float
+__ieee754_lgammaf(float x)
 {
        return __ieee754_lgammaf_r(x,&signgam);
 }
index d7ca5a4..8e5417d 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/e_lgammaf_r.c,v 1.5 1999/08/28 00:06:36 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/e_lgammaf_r.c,v 1.2 2003/06/17 04:26:52 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/e_lgammaf_r.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const float
-#else
-static float
-#endif
 two23=  8.3886080000e+06, /* 0x4b000000 */
 half=  5.0000000000e-01, /* 0x3f000000 */
 one =  1.0000000000e+00, /* 0x3f800000 */
@@ -91,18 +87,10 @@ w4  = -5.9518753551e-04, /* 0xba1c065c */
 w5  =  8.3633989561e-04, /* 0x3a5b3dd2 */
 w6  = -1.6309292987e-03; /* 0xbad5c4e8 */
 
-#ifdef __STDC__
 static const float zero=  0.0000000000e+00;
-#else
-static float zero=  0.0000000000e+00;
-#endif
 
-#ifdef __STDC__
-       static float sin_pif(float x)
-#else
-       static float sin_pif(x)
-       float x;
-#endif
+static float
+sin_pif(float x)
 {
        float y,z;
        int n,ix;
@@ -147,12 +135,8 @@ static float zero=  0.0000000000e+00;
 }
 
 
-#ifdef __STDC__
-       float __ieee754_lgammaf_r(float x, int *signgamp)
-#else
-       float __ieee754_lgammaf_r(x,signgamp)
-       float x; int *signgamp;
-#endif
+float
+__ieee754_lgammaf_r(float x, int *signgamp)
 {
        float t,y,z,nadj,p,p1,p2,p3,q,r,w;
        int i,hx,ix;
index 8cbb55c..e5a8a64 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/e_log.c,v 1.6 1999/08/28 00:06:36 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/e_log.c,v 1.2 2003/06/17 04:26:52 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/e_log.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /* __ieee754_log(x)
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const double
-#else
-static double
-#endif
 ln2_hi  =  6.93147180369123816490e-01, /* 3fe62e42 fee00000 */
 ln2_lo  =  1.90821492927058770002e-10, /* 3dea39ef 35793c76 */
 two54   =  1.80143985094819840000e+16,  /* 43500000 00000000 */
@@ -83,18 +79,10 @@ Lg5 = 1.818357216161805012e-01,  /* 3FC74664 96CB03DE */
 Lg6 = 1.531383769920937332e-01,  /* 3FC39A09 D078C69F */
 Lg7 = 1.479819860511658591e-01;  /* 3FC2F112 DF3E5244 */
 
-#ifdef __STDC__
 static const double zero   =  0.0;
-#else
-static double zero   =  0.0;
-#endif
 
-#ifdef __STDC__
-       double __generic___ieee754_log(double x)
-#else
-       double __generic___ieee754_log(x)
-       double x;
-#endif
+double
+__generic___ieee754_log(double x)
 {
        double hfsq,f,s,z,R,w,t1,t2,dk;
        int32_t k,hx,i,j;
index 5c6c4c4..461bd02 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/e_log10.c,v 1.7 1999/08/28 00:06:36 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/e_log10.c,v 1.2 2003/06/17 04:26:52 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/e_log10.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /* __ieee754_log10(x)
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const double
-#else
-static double
-#endif
 two54      =  1.80143985094819840000e+16, /* 0x43500000, 0x00000000 */
 ivln10     =  4.34294481903251816668e-01, /* 0x3FDBCB7B, 0x1526E50E */
 log10_2hi  =  3.01029995663611771306e-01, /* 0x3FD34413, 0x509F6000 */
 log10_2lo  =  3.69423907715893078616e-13; /* 0x3D59FEF3, 0x11F12B36 */
 
-#ifdef __STDC__
 static const double zero   =  0.0;
-#else
-static double zero   =  0.0;
-#endif
 
-#ifdef __STDC__
-       double __generic___ieee754_log10(double x)
-#else
-       double __generic___ieee754_log10(x)
-       double x;
-#endif
+double
+__generic___ieee754_log10(double x)
 {
        double y,z;
        int32_t i,k,hx;
index 5ff8a4d..697bce8 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/e_log10f.c,v 1.6 1999/08/28 00:06:36 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/e_log10f.c,v 1.2 2003/06/17 04:26:52 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/e_log10f.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const float
-#else
-static float
-#endif
 two25      =  3.3554432000e+07, /* 0x4c000000 */
 ivln10     =  4.3429449201e-01, /* 0x3ede5bd9 */
 log10_2hi  =  3.0102920532e-01, /* 0x3e9a2080 */
 log10_2lo  =  7.9034151668e-07; /* 0x355427db */
 
-#ifdef __STDC__
 static const float zero   =  0.0;
-#else
-static float zero   =  0.0;
-#endif
 
-#ifdef __STDC__
-       float __ieee754_log10f(float x)
-#else
-       float __ieee754_log10f(x)
-       float x;
-#endif
+float
+__ieee754_log10f(float x)
 {
        float y,z;
        int32_t i,k,hx;
index ad1ddc4..dd97355 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/e_logf.c,v 1.5 1999/08/28 00:06:36 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/e_logf.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/e_logf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const float
-#else
-static float
-#endif
 ln2_hi =   6.9313812256e-01,   /* 0x3f317180 */
 ln2_lo =   9.0580006145e-06,   /* 0x3717f7d1 */
 two25 =    3.355443200e+07,    /* 0x4c000000 */
@@ -35,18 +31,10 @@ Lg5 = 1.8183572590e-01, /* 3E3A3325 */
 Lg6 = 1.5313838422e-01, /* 3E1CD04F */
 Lg7 = 1.4798198640e-01; /* 3E178897 */
 
-#ifdef __STDC__
 static const float zero   =  0.0;
-#else
-static float zero   =  0.0;
-#endif
 
-#ifdef __STDC__
-       float __ieee754_logf(float x)
-#else
-       float __ieee754_logf(x)
-       float x;
-#endif
+float
+__ieee754_logf(float x)
 {
        float hfsq,f,s,z,R,w,t1,t2,dk;
        int32_t k,ix,i,j;
index 08836fd..b1c2600 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/e_pow.c,v 1.6.2.1 2002/06/24 10:13:43 bde Exp $
- * $DragonFly: src/lib/msun/src/Attic/e_pow.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/e_pow.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /* __ieee754_pow(x,y) return x**y
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const double
-#else
-static double
-#endif
 bp[] = {1.0, 1.5,},
 dp_h[] = { 0.0, 5.84962487220764160156e-01,}, /* 0x3FE2B803, 0x40000000 */
 dp_l[] = { 0.0, 1.35003920212974897128e-08,}, /* 0x3E4CFDEB, 0x43CFD006 */
@@ -98,12 +94,8 @@ ivln2    =  1.44269504088896338700e+00, /* 0x3FF71547, 0x652B82FE =1/ln2 */
 ivln2_h  =  1.44269502162933349609e+00, /* 0x3FF71547, 0x60000000 =24b 1/ln2*/
 ivln2_l  =  1.92596299112661746887e-08; /* 0x3E54AE0B, 0xF85DDF44 =1/ln2 tail*/
 
-#ifdef __STDC__
-       double __ieee754_pow(double x, double y)
-#else
-       double __ieee754_pow(x,y)
-       double x, y;
-#endif
+double
+__ieee754_pow(double x, double y)
 {
        double z,ax,z_h,z_l,p_h,p_l;
        double y1,t1,t2,r,s,t,u,v,w;
index 405c3f1..dc27ca0 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/e_powf.c,v 1.6.2.1 2002/06/24 10:13:43 bde Exp $
- * $DragonFly: src/lib/msun/src/Attic/e_powf.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/e_powf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const float
-#else
-static float
-#endif
 bp[] = {1.0, 1.5,},
 dp_h[] = { 0.0, 5.84960938e-01,}, /* 0x3f15c000 */
 dp_l[] = { 0.0, 1.56322085e-06,}, /* 0x35d1cfdc */
@@ -56,12 +52,8 @@ ivln2    =  1.4426950216e+00, /* 0x3fb8aa3b =1/ln2 */
 ivln2_h  =  1.4426879883e+00, /* 0x3fb8aa00 =16b 1/ln2*/
 ivln2_l  =  7.0526075433e-06; /* 0x36eca570 =1/ln2 tail*/
 
-#ifdef __STDC__
-       float __ieee754_powf(float x, float y)
-#else
-       float __ieee754_powf(x,y)
-       float x, y;
-#endif
+float
+__ieee754_powf(float x, float y)
 {
        float z,ax,z_h,z_l,p_h,p_l;
        float y1,t1,t2,r,s,t,u,v,w;
index 9e5baea..53d8b9d 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/e_rem_pio2.c,v 1.6 1999/08/28 00:06:37 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/e_rem_pio2.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/e_rem_pio2.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /* __ieee754_rem_pio2(x,y)
 /*
  * Table of constants for 2/pi, 396 Hex digits (476 decimal) of 2/pi
  */
-#ifdef __STDC__
 static const int32_t two_over_pi[] = {
-#else
-static int32_t two_over_pi[] = {
-#endif
 0xA2F983, 0x6E4E44, 0x1529FC, 0x2757D1, 0xF534DD, 0xC0DB62,
 0x95993C, 0x439041, 0xFE5163, 0xABDEBB, 0xC561B7, 0x246E3A,
 0x424DD2, 0xE00649, 0x2EEA09, 0xD1921C, 0xFE1DEB, 0x1CB129,
@@ -43,11 +39,7 @@ static int32_t two_over_pi[] = {
 0x4D7327, 0x310606, 0x1556CA, 0x73A8C9, 0x60E27B, 0xC08C6B,
 };
 
-#ifdef __STDC__
 static const int32_t npio2_hw[] = {
-#else
-static int32_t npio2_hw[] = {
-#endif
 0x3FF921FB, 0x400921FB, 0x4012D97C, 0x401921FB, 0x401F6A7A, 0x4022D97C,
 0x4025FDBB, 0x402921FB, 0x402C463A, 0x402F6A7A, 0x4031475C, 0x4032D97C,
 0x40346B9C, 0x4035FDBB, 0x40378FDB, 0x403921FB, 0x403AB41B, 0x403C463A,
@@ -66,11 +58,7 @@ static int32_t npio2_hw[] = {
  * pio2_3t:  pi/2 - (pio2_1+pio2_2+pio2_3)
  */
 
-#ifdef __STDC__
 static const double
-#else
-static double
-#endif
 zero =  0.00000000000000000000e+00, /* 0x00000000, 0x00000000 */
 half =  5.00000000000000000000e-01, /* 0x3FE00000, 0x00000000 */
 two24 =  1.67772160000000000000e+07, /* 0x41700000, 0x00000000 */
@@ -82,12 +70,8 @@ pio2_2t =  2.02226624879595063154e-21, /* 0x3BA3198A, 0x2E037073 */
 pio2_3  =  2.02226624871116645580e-21, /* 0x3BA3198A, 0x2E000000 */
 pio2_3t =  8.47842766036889956997e-32; /* 0x397B839A, 0x252049C1 */
 
-#ifdef __STDC__
-       int32_t __ieee754_rem_pio2(double x, double *y)
-#else
-       int32_t __ieee754_rem_pio2(x,y)
-       double x,y[];
-#endif
+int32_t
+__ieee754_rem_pio2(double x, double *y)
 {
        double z,w,t,r,fn;
        double tx[3];
index 8e871b1..bafbe80 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/e_rem_pio2f.c,v 1.6 1999/08/28 00:06:37 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/e_rem_pio2f.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/e_rem_pio2f.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 /*
  * Table of constants for 2/pi, 396 Hex digits (476 decimal) of 2/pi
  */
-#ifdef __STDC__
 static const int32_t two_over_pi[] = {
-#else
-static int32_t two_over_pi[] = {
-#endif
 0xA2, 0xF9, 0x83, 0x6E, 0x4E, 0x44, 0x15, 0x29, 0xFC,
 0x27, 0x57, 0xD1, 0xF5, 0x34, 0xDD, 0xC0, 0xDB, 0x62,
 0x95, 0x99, 0x3C, 0x43, 0x90, 0x41, 0xFE, 0x51, 0x63,
@@ -59,11 +55,7 @@ static int32_t two_over_pi[] = {
 
 /* This array is like the one in e_rem_pio2.c, but the numbers are
    single precision and the last 8 bits are forced to 0.  */
-#ifdef __STDC__
 static const int32_t npio2_hw[] = {
-#else
-static int32_t npio2_hw[] = {
-#endif
 0x3fc90f00, 0x40490f00, 0x4096cb00, 0x40c90f00, 0x40fb5300, 0x4116cb00,
 0x412fed00, 0x41490f00, 0x41623100, 0x417b5300, 0x418a3a00, 0x4196cb00,
 0x41a35c00, 0x41afed00, 0x41bc7e00, 0x41c90f00, 0x41d5a000, 0x41e23100,
@@ -82,11 +74,7 @@ static int32_t npio2_hw[] = {
  * pio2_3t:  pi/2 - (pio2_1+pio2_2+pio2_3)
  */
 
-#ifdef __STDC__
 static const float
-#else
-static float
-#endif
 zero =  0.0000000000e+00, /* 0x00000000 */
 half =  5.0000000000e-01, /* 0x3f000000 */
 two8 =  2.5600000000e+02, /* 0x43800000 */
@@ -98,12 +86,8 @@ pio2_2t =  6.0770999344e-11, /* 0x2e85a308 */
 pio2_3  =  6.0770943833e-11, /* 0x2e85a300 */
 pio2_3t =  6.1232342629e-17; /* 0x248d3132 */
 
-#ifdef __STDC__
-       int32_t __ieee754_rem_pio2f(float x, float *y)
-#else
-       int32_t __ieee754_rem_pio2f(x,y)
-       float x,y[];
-#endif
+int32_t
+__ieee754_rem_pio2f(float x, float *y)
 {
        float z,w,t,r,fn;
        float tx[3];
index 4c25586..0632e0a 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/e_remainder.c,v 1.6 1999/08/28 00:06:38 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/e_remainder.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/e_remainder.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /* __ieee754_remainder(x,p)
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const double zero = 0.0;
-#else
-static double zero = 0.0;
-#endif
 
 
-#ifdef __STDC__
-       double __generic___ieee754_remainder(double x, double p)
-#else
-       double __generic___ieee754_remainder(x,p)
-       double x,p;
-#endif
+double
+__generic___ieee754_remainder(double x, double p)
 {
        int32_t hx,hp;
        u_int32_t sx,lx,lp;
index 6f15d9e..490b3b9 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/e_remainderf.c,v 1.5 1999/08/28 00:06:38 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/e_remainderf.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/e_remainderf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const float zero = 0.0;
-#else
-static float zero = 0.0;
-#endif
 
 
-#ifdef __STDC__
-       float __ieee754_remainderf(float x, float p)
-#else
-       float __ieee754_remainderf(x,p)
-       float x,p;
-#endif
+float
+__ieee754_remainderf(float x, float p)
 {
        int32_t hx,hp;
        u_int32_t sx;
index 1f7e414..22a5a33 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/e_scalb.c,v 1.6 1999/08/28 00:06:38 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/e_scalb.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/e_scalb.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math_private.h"
 
 #ifdef _SCALB_INT
-#ifdef __STDC__
-       double __generic___ieee754_scalb(double x, int fn)
+double
+__generic___ieee754_scalb(double x, int fn)
 #else
-       double __generic___ieee754_scalb(x,fn)
-       double x; int fn;
-#endif
-#else
-#ifdef __STDC__
-       double __generic___ieee754_scalb(double x, double fn)
-#else
-       double __generic___ieee754_scalb(x,fn)
-       double x, fn;
-#endif
+double
+__generic___ieee754_scalb(double x, double fn)
 #endif
 {
 #ifdef _SCALB_INT
index e5dfb59..54cf37a 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/e_scalbf.c,v 1.5 1999/08/28 00:06:38 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/e_scalbf.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/e_scalbf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math_private.h"
 
 #ifdef _SCALB_INT
-#ifdef __STDC__
-       float __ieee754_scalbf(float x, int fn)
+float
+__ieee754_scalbf(float x, int fn)
 #else
-       float __ieee754_scalbf(x,fn)
-       float x; int fn;
-#endif
-#else
-#ifdef __STDC__
-       float __ieee754_scalbf(float x, float fn)
-#else
-       float __ieee754_scalbf(x,fn)
-       float x, fn;
-#endif
+float
+__ieee754_scalbf(float x, float fn)
 #endif
 {
 #ifdef _SCALB_INT
index 652db0e..e777698 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/e_sinh.c,v 1.6 1999/08/28 00:06:39 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/e_sinh.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/e_sinh.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /* __ieee754_sinh(x)
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const double one = 1.0, shuge = 1.0e307;
-#else
-static double one = 1.0, shuge = 1.0e307;
-#endif
 
-#ifdef __STDC__
-       double __ieee754_sinh(double x)
-#else
-       double __ieee754_sinh(x)
-       double x;
-#endif
+double
+__ieee754_sinh(double x)
 {
        double t,w,h;
        int32_t ix,jx;
index adc13c8..d051821 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/e_sinhf.c,v 1.5 1999/08/28 00:06:39 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/e_sinhf.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/e_sinhf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const float one = 1.0, shuge = 1.0e37;
-#else
-static float one = 1.0, shuge = 1.0e37;
-#endif
 
-#ifdef __STDC__
-       float __ieee754_sinhf(float x)
-#else
-       float __ieee754_sinhf(x)
-       float x;
-#endif
+float
+__ieee754_sinhf(float x)
 {
        float t,w,h;
        int32_t ix,jx;
index cdb962b..adaca38 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/e_sqrt.c,v 1.6 1999/08/28 00:06:39 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/e_sqrt.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/e_sqrt.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /* __ieee754_sqrt(x)
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const double    one     = 1.0, tiny=1.0e-300;
-#else
-static double  one     = 1.0, tiny=1.0e-300;
-#endif
-
-#ifdef __STDC__
-       double __generic___ieee754_sqrt(double x)
-#else
-       double __generic___ieee754_sqrt(x)
-       double x;
-#endif
+
+double
+__generic___ieee754_sqrt(double x)
 {
        double z;
        int32_t sign = (int)0x80000000;
index ec5b5ab..5ac5c9e 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/e_sqrtf.c,v 1.5 1999/08/28 00:06:39 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/e_sqrtf.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/e_sqrtf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const float     one     = 1.0, tiny=1.0e-30;
-#else
-static float   one     = 1.0, tiny=1.0e-30;
-#endif
 
-#ifdef __STDC__
-       float __ieee754_sqrtf(float x)
-#else
-       float __ieee754_sqrtf(x)
-       float x;
-#endif
+float
+__ieee754_sqrtf(float x)
 {
        float z;
        int32_t sign = (int)0x80000000;
index bb21daf..0eadd19 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/k_cos.c,v 1.5 1999/08/28 00:06:40 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/k_cos.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/k_cos.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const double
-#else
-static double
-#endif
 one =  1.00000000000000000000e+00, /* 0x3FF00000, 0x00000000 */
 C1  =  4.16666666666666019037e-02, /* 0x3FA55555, 0x5555554C */
 C2  = -1.38888888888741095749e-03, /* 0xBF56C16C, 0x16C15177 */
@@ -64,12 +60,8 @@ C4  = -2.75573143513906633035e-07, /* 0xBE927E4F, 0x809C52AD */
 C5  =  2.08757232129817482790e-09, /* 0x3E21EE9E, 0xBDB4B1C4 */
 C6  = -1.13596475577881948265e-11; /* 0xBDA8FAE9, 0xBE8838D4 */
 
-#ifdef __STDC__
-       double __kernel_cos(double x, double y)
-#else
-       double __kernel_cos(x, y)
-       double x,y;
-#endif
+double
+__kernel_cos(double x, double y)
 {
        double a,hz,z,r,qx;
        int32_t ix;
index 9740918..0147ba2 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/k_cosf.c,v 1.5 1999/08/28 00:06:40 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/k_cosf.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/k_cosf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const float
-#else
-static float
-#endif
 one =  1.0000000000e+00, /* 0x3f800000 */
 C1  =  4.1666667908e-02, /* 0x3d2aaaab */
 C2  = -1.3888889225e-03, /* 0xbab60b61 */
@@ -32,12 +28,8 @@ C4  = -2.7557314297e-07, /* 0xb493f27c */
 C5  =  2.0875723372e-09, /* 0x310f74f6 */
 C6  = -1.1359647598e-11; /* 0xad47d74e */
 
-#ifdef __STDC__
-       float __kernel_cosf(float x, float y)
-#else
-       float __kernel_cosf(x, y)
-       float x,y;
-#endif
+float
+__kernel_cosf(float x, float y)
 {
        float a,hz,z,r,qx;
        int32_t ix;
index 18e40f9..51524e9 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/k_rem_pio2.c,v 1.5 1999/08/28 00:06:40 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/k_rem_pio2.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/k_rem_pio2.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const int init_jk[] = {2,3,4,6}; /* initial value for jk */
-#else
-static int init_jk[] = {2,3,4,6};
-#endif
 
-#ifdef __STDC__
 static const double PIo2[] = {
-#else
-static double PIo2[] = {
-#endif
   1.57079625129699707031e+00, /* 0x3FF921FB, 0x40000000 */
   7.54978941586159635335e-08, /* 0x3E74442D, 0x00000000 */
   5.39030252995776476554e-15, /* 0x3CF84698, 0x80000000 */
@@ -153,22 +145,15 @@ static double PIo2[] = {
   2.16741683877804819444e-51, /* 0x3569F31D, 0x00000000 */
 };
 
-#ifdef __STDC__
 static const double
-#else
-static double
-#endif
 zero   = 0.0,
 one    = 1.0,
 two24   =  1.67772160000000000000e+07, /* 0x41700000, 0x00000000 */
 twon24  =  5.96046447753906250000e-08; /* 0x3E700000, 0x00000000 */
 
-#ifdef __STDC__
-       int __kernel_rem_pio2(double *x, double *y, int e0, int nx, int prec, const int32_t *ipio2)
-#else
-       int __kernel_rem_pio2(x,y,e0,nx,prec,ipio2)
-       double x[], y[]; int e0,nx,prec; int32_t ipio2[];
-#endif
+int
+__kernel_rem_pio2(double *x, double *y, int e0, int nx, int prec,
+                 const int32_t *ipio2)
 {
        int32_t jz,jx,jv,jp,jk,carry,n,iq[20],i,j,k,m,q0,ih;
        double z,fw,f[20],fq[20],q[20];
index 428d6ec..13cbbcb 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/k_rem_pio2f.c,v 1.5 1999/08/28 00:06:41 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/k_rem_pio2f.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/k_rem_pio2f.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 /* In the float version, the input parameter x contains 8 bit
    integers, not 24 bit integers.  113 bit precision is not supported.  */
 
-#ifdef __STDC__
 static const int init_jk[] = {4,7,9}; /* initial value for jk */
-#else
-static int init_jk[] = {4,7,9};
-#endif
 
-#ifdef __STDC__
 static const float PIo2[] = {
-#else
-static float PIo2[] = {
-#endif
   1.5703125000e+00, /* 0x3fc90000 */
   4.5776367188e-04, /* 0x39f00000 */
   2.5987625122e-05, /* 0x37da0000 */
@@ -46,22 +38,15 @@ static float PIo2[] = {
   6.3331015649e-25, /* 0x17440000 */
 };
 
-#ifdef __STDC__
 static const float
-#else
-static float
-#endif
 zero   = 0.0,
 one    = 1.0,
 two8   =  2.5600000000e+02, /* 0x43800000 */
 twon8  =  3.9062500000e-03; /* 0x3b800000 */
 
-#ifdef __STDC__
-       int __kernel_rem_pio2f(float *x, float *y, int e0, int nx, int prec, const int32_t *ipio2)
-#else
-       int __kernel_rem_pio2f(x,y,e0,nx,prec,ipio2)
-       float x[], y[]; int e0,nx,prec; int32_t ipio2[];
-#endif
+int
+__kernel_rem_pio2f(float *x, float *y, int e0, int nx, int prec,
+                  const int32_t *ipio2)
 {
        int32_t jz,jx,jv,jp,jk,carry,n,iq[20],i,j,k,m,q0,ih;
        float z,fw,f[20],fq[20],q[20];
index 00d616b..4c08534 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/k_sin.c,v 1.5 1999/08/28 00:06:41 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/k_sin.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/k_sin.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /* __kernel_sin( x, y, iy)
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const double
-#else
-static double
-#endif
 half =  5.00000000000000000000e-01, /* 0x3FE00000, 0x00000000 */
 S1  = -1.66666666666666324348e-01, /* 0xBFC55555, 0x55555549 */
 S2  =  8.33333333332248946124e-03, /* 0x3F811111, 0x1110F8A6 */
@@ -57,12 +53,8 @@ S4  =  2.75573137070700676789e-06, /* 0x3EC71DE3, 0x57B1FE7D */
 S5  = -2.50507602534068634195e-08, /* 0xBE5AE5E6, 0x8A2B9CEB */
 S6  =  1.58969099521155010221e-10; /* 0x3DE5D93A, 0x5ACFD57C */
 
-#ifdef __STDC__
-       double __kernel_sin(double x, double y, int iy)
-#else
-       double __kernel_sin(x, y, iy)
-       double x,y; int iy;             /* iy=0 if y is zero */
-#endif
+double
+__kernel_sin(double x, double y, int iy)
 {
        double z,r,v;
        int32_t ix;
index 4dde18d..2158477 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/k_sinf.c,v 1.5 1999/08/28 00:06:41 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/k_sinf.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/k_sinf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const float
-#else
-static float
-#endif
 half =  5.0000000000e-01,/* 0x3f000000 */
 S1  = -1.6666667163e-01, /* 0xbe2aaaab */
 S2  =  8.3333337680e-03, /* 0x3c088889 */
@@ -32,12 +28,8 @@ S4  =  2.7557314297e-06, /* 0x3638ef1b */
 S5  = -2.5050759689e-08, /* 0xb2d72f34 */
 S6  =  1.5896910177e-10; /* 0x2f2ec9d3 */
 
-#ifdef __STDC__
-       float __kernel_sinf(float x, float y, int iy)
-#else
-       float __kernel_sinf(x, y, iy)
-       float x,y; int iy;              /* iy=0 if y is zero */
-#endif
+float
+__kernel_sinf(float x, float y, int iy)
 {
        float z,r,v;
        int32_t ix;
index be91034..d8c6c25 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/k_standard.c,v 1.5 1999/08/28 00:06:41 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/k_standard.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/k_standard.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 #include "math.h"
 #undef fflush
 #endif /* !defined(_USE_WRITE) */
 
-#ifdef __STDC__
 static const double zero = 0.0;        /* used as const */
-#else
-static double zero = 0.0;      /* used as const */
-#endif
 
 /*
  * Standard conformance (non-IEEE) on exception cases.
@@ -80,12 +76,8 @@ static double zero = 0.0;    /* used as const */
  */
 
 
-#ifdef __STDC__
-       double __kernel_standard(double x, double y, int type)
-#else
-       double __kernel_standard(x,y,type)
-       double x,y; int type;
-#endif
+double
+__kernel_standard(double x, double y, int type)
 {
        struct exception exc;
 #ifndef HUGE_VAL       /* this is the only routine that uses HUGE_VAL */
index af71ffb..418b841 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/k_tan.c,v 1.5 1999/08/28 00:06:42 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/k_tan.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/k_tan.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /* __kernel_tan( x, y, k )
 
 #include "math.h"
 #include "math_private.h"
-#ifdef __STDC__
 static const double
-#else
-static double
-#endif
 one   =  1.00000000000000000000e+00, /* 0x3FF00000, 0x00000000 */
 pio4  =  7.85398163397448278999e-01, /* 0x3FE921FB, 0x54442D18 */
 pio4lo=  3.06161699786838301793e-17, /* 0x3C81A626, 0x33145C07 */
@@ -73,12 +69,8 @@ T[] =  {
   2.59073051863633712884e-05, /* 0x3EFB2A70, 0x74BF7AD4 */
 };
 
-#ifdef __STDC__
-       double __kernel_tan(double x, double y, int iy)
-#else
-       double __kernel_tan(x, y, iy)
-       double x,y; int iy;
-#endif
+double
+__kernel_tan(double x, double y, int iy)
 {
        double z,r,v,w,s;
        int32_t ix,hx;
index a47e44b..fcb4044 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/k_tanf.c,v 1.5 1999/08/28 00:06:42 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/k_tanf.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/k_tanf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 
 #include "math.h"
 #include "math_private.h"
-#ifdef __STDC__
 static const float
-#else
-static float
-#endif
 one   =  1.0000000000e+00, /* 0x3f800000 */
 pio4  =  7.8539812565e-01, /* 0x3f490fda */
 pio4lo=  3.7748947079e-08, /* 0x33222168 */
@@ -42,12 +38,8 @@ T[] =  {
   2.5907305826e-05, /* 0x37d95384 */
 };
 
-#ifdef __STDC__
-       float __kernel_tanf(float x, float y, int iy)
-#else
-       float __kernel_tanf(x, y, iy)
-       float x,y; int iy;
-#endif
+float
+__kernel_tanf(float x, float y, int iy)
 {
        float z,r,v,w,s;
        int32_t ix,hx;
index 91b93cd..3d859d8 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/s_asinh.c,v 1.6 1999/08/28 00:06:43 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/s_asinh.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/s_asinh.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /* asinh(x)
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const double
-#else
-static double
-#endif
 one =  1.00000000000000000000e+00, /* 0x3FF00000, 0x00000000 */
 ln2 =  6.93147180559945286227e-01, /* 0x3FE62E42, 0xFEFA39EF */
 huge=  1.00000000000000000000e+300;
 
-#ifdef __STDC__
-       double asinh(double x)
-#else
-       double asinh(x)
-       double x;
-#endif
+double
+asinh(double x)
 {
        double t,w;
        int32_t hx,ix;
index 7e12eec..f67cdb7 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/s_asinhf.c,v 1.6 1999/08/28 00:06:43 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/s_asinhf.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/s_asinhf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const float
-#else
-static float
-#endif
 one =  1.0000000000e+00, /* 0x3F800000 */
 ln2 =  6.9314718246e-01, /* 0x3f317218 */
 huge=  1.0000000000e+30;
 
-#ifdef __STDC__
-       float asinhf(float x)
-#else
-       float asinhf(x)
-       float x;
-#endif
+float
+asinhf(float x)
 {
        float t,w;
        int32_t hx,ix;
index 2bded76..d727d04 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/s_atan.c,v 1.6 1999/08/28 00:06:43 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/s_atan.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/s_atan.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /* atan(x)
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const double atanhi[] = {
-#else
-static double atanhi[] = {
-#endif
   4.63647609000806093515e-01, /* atan(0.5)hi 0x3FDDAC67, 0x0561BB4F */
   7.85398163397448278999e-01, /* atan(1.0)hi 0x3FE921FB, 0x54442D18 */
   9.82793723247329054082e-01, /* atan(1.5)hi 0x3FEF730B, 0xD281F69B */
   1.57079632679489655800e+00, /* atan(inf)hi 0x3FF921FB, 0x54442D18 */
 };
 
-#ifdef __STDC__
 static const double atanlo[] = {
-#else
-static double atanlo[] = {
-#endif
   2.26987774529616870924e-17, /* atan(0.5)lo 0x3C7A2B7F, 0x222F65E2 */
   3.06161699786838301793e-17, /* atan(1.0)lo 0x3C81A626, 0x33145C07 */
   1.39033110312309984516e-17, /* atan(1.5)lo 0x3C700788, 0x7AF0CBBD */
   6.12323399573676603587e-17, /* atan(inf)lo 0x3C91A626, 0x33145C07 */
 };
 
-#ifdef __STDC__
 static const double aT[] = {
-#else
-static double aT[] = {
-#endif
   3.33333333333329318027e-01, /* 0x3FD55555, 0x5555550D */
  -1.99999999998764832476e-01, /* 0xBFC99999, 0x9998EBC4 */
   1.42857142725034663711e-01, /* 0x3FC24924, 0x920083FF */
@@ -76,20 +64,12 @@ static double aT[] = {
   1.62858201153657823623e-02, /* 0x3F90AD3A, 0xE322DA11 */
 };
 
-#ifdef __STDC__
-       static const double
-#else
-       static double
-#endif
+static const double
 one   = 1.0,
 huge   = 1.0e300;
 
-#ifdef __STDC__
-       double __generic_atan(double x)
-#else
-       double __generic_atan(x)
-       double x;
-#endif
+double
+__generic_atan(double x)
 {
        double w,s1,s2,z;
        int32_t ix,hx,id;
index 32e90bd..61b21ad 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/s_atanf.c,v 1.5 1999/08/28 00:06:44 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/s_atanf.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/s_atanf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const float atanhi[] = {
-#else
-static float atanhi[] = {
-#endif
   4.6364760399e-01, /* atan(0.5)hi 0x3eed6338 */
   7.8539812565e-01, /* atan(1.0)hi 0x3f490fda */
   9.8279368877e-01, /* atan(1.5)hi 0x3f7b985e */
   1.5707962513e+00, /* atan(inf)hi 0x3fc90fda */
 };
 
-#ifdef __STDC__
 static const float atanlo[] = {
-#else
-static float atanlo[] = {
-#endif
   5.0121582440e-09, /* atan(0.5)lo 0x31ac3769 */
   3.7748947079e-08, /* atan(1.0)lo 0x33222168 */
   3.4473217170e-08, /* atan(1.5)lo 0x33140fb4 */
   7.5497894159e-08, /* atan(inf)lo 0x33a22168 */
 };
 
-#ifdef __STDC__
 static const float aT[] = {
-#else
-static float aT[] = {
-#endif
   3.3333334327e-01, /* 0x3eaaaaaa */
  -2.0000000298e-01, /* 0xbe4ccccd */
   1.4285714924e-01, /* 0x3e124925 */
@@ -59,20 +47,12 @@ static float aT[] = {
   1.6285819933e-02, /* 0x3c8569d7 */
 };
 
-#ifdef __STDC__
-       static const float
-#else
-       static float
-#endif
+static const float
 one   = 1.0,
 huge   = 1.0e30;
 
-#ifdef __STDC__
-       float atanf(float x)
-#else
-       float atanf(x)
-       float x;
-#endif
+float
+atanf(float x)
 {
        float w,s1,s2,z;
        int32_t ix,hx,id;
index b60b7cf..464149f 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/s_cbrt.c,v 1.5 1999/08/28 00:06:44 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/s_cbrt.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/s_cbrt.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 #include "math.h"
 /* cbrt(x)
  * Return cube root of x
  */
-#ifdef __STDC__
 static const u_int32_t
-#else
-static u_int32_t
-#endif
        B1 = 715094163, /* B1 = (682-0.03306235651)*2**20 */
        B2 = 696219795; /* B2 = (664-0.03306235651)*2**20 */
 
-#ifdef __STDC__
 static const double
-#else
-static double
-#endif
 C =  5.42857142857142815906e-01, /* 19/35     = 0x3FE15F15, 0xF15F15F1 */
 D = -7.05306122448979611050e-01, /* -864/1225 = 0xBFE691DE, 0x2532C834 */
 E =  1.41428571428571436819e+00, /* 99/70     = 0x3FF6A0EA, 0x0EA0EA0F */
 F =  1.60714285714285720630e+00, /* 45/28     = 0x3FF9B6DB, 0x6DB6DB6E */
 G =  3.57142857142857150787e-01; /* 5/14      = 0x3FD6DB6D, 0xB6DB6DB7 */
 
-#ifdef __STDC__
-       double cbrt(double x)
-#else
-       double cbrt(x)
-       double x;
-#endif
+double
+cbrt(double x)
 {
        int32_t hx;
        double r,s,t=0.0,w;
index a09109d..50e2e40 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/s_cbrtf.c,v 1.5 1999/08/28 00:06:44 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/s_cbrtf.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/s_cbrtf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 /* cbrtf(x)
  * Return cube root of x
  */
-#ifdef __STDC__
 static const unsigned
-#else
-static unsigned
-#endif
        B1 = 709958130, /* B1 = (84+2/3-0.03306235651)*2**23 */
        B2 = 642849266; /* B2 = (76+2/3-0.03306235651)*2**23 */
 
-#ifdef __STDC__
 static const float
-#else
-static float
-#endif
 C =  5.4285717010e-01, /* 19/35     = 0x3f0af8b0 */
 D = -7.0530611277e-01, /* -864/1225 = 0xbf348ef1 */
 E =  1.4142856598e+00, /* 99/70     = 0x3fb50750 */
 F =  1.6071428061e+00, /* 45/28     = 0x3fcdb6db */
 G =  3.5714286566e-01; /* 5/14      = 0x3eb6db6e */
 
-#ifdef __STDC__
-       float cbrtf(float x)
-#else
-       float cbrtf(x)
-       float x;
-#endif
+float
+cbrtf(float x)
 {
        float r,s,t;
        int32_t hx;
index 3a4a010..a3afcbd 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/s_ceil.c,v 1.6 1999/08/28 00:06:44 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/s_ceil.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/s_ceil.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const double huge = 1.0e300;
-#else
-static double huge = 1.0e300;
-#endif
 
-#ifdef __STDC__
-       double __generic_ceil(double x)
-#else
-       double __generic_ceil(x)
-       double x;
-#endif
+double
+__generic_ceil(double x)
 {
        int32_t i0,i1,j0;
        u_int32_t i,j;
index 6fc3ebc..7d2f77a 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/s_ceilf.c,v 1.5 1999/08/28 00:06:45 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/s_ceilf.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/s_ceilf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const float huge = 1.0e30;
-#else
-static float huge = 1.0e30;
-#endif
 
-#ifdef __STDC__
-       float ceilf(float x)
-#else
-       float ceilf(x)
-       float x;
-#endif
+float
+ceilf(float x)
 {
        int32_t i0,j0;
        u_int32_t i;
index 2792d25..8dc3eef 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/s_copysign.c,v 1.6 1999/08/28 00:06:45 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/s_copysign.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/s_copysign.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
-       double __generic_copysign(double x, double y)
-#else
-       double __generic_copysign(x,y)
-       double x,y;
-#endif
+double
+__generic_copysign(double x, double y)
 {
        u_int32_t hx,hy;
        GET_HIGH_WORD(hx,x);
index 29a1fca..7caaa3d 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/s_copysignf.c,v 1.5 1999/08/28 00:06:45 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/s_copysignf.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/s_copysignf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
-       float copysignf(float x, float y)
-#else
-       float copysignf(x,y)
-       float x,y;
-#endif
+float
+copysignf(float x, float y)
 {
        u_int32_t ix,iy;
        GET_FLOAT_WORD(ix,x);
index 5f75944..b3bf5b6 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/s_cos.c,v 1.6 1999/08/28 00:06:46 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/s_cos.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/s_cos.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /* cos(x)
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
-       double __generic_cos(double x)
-#else
-       double __generic_cos(x)
-       double x;
-#endif
+double
+__generic_cos(double x)
 {
        double y[2],z=0.0;
        int32_t n, ix;
index 9f52d01..4e68aef 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/s_cosf.c,v 1.5 1999/08/28 00:06:46 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/s_cosf.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/s_cosf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const float one=1.0;
-#else
-static float one=1.0;
-#endif
-
-#ifdef __STDC__
-       float cosf(float x)
-#else
-       float cosf(x)
-       float x;
-#endif
+
+float
+cosf(float x)
 {
        float y[2],z=0.0;
        int32_t n,ix;
index fc5c776..e229f93 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/s_erf.c,v 1.5 1999/08/28 00:06:46 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/s_erf.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/s_erf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /* double erf(double x)
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const double
-#else
-static double
-#endif
 tiny       = 1e-300,
 half=  5.00000000000000000000e-01, /* 0x3FE00000, 0x00000000 */
 one =  1.00000000000000000000e+00, /* 0x3FF00000, 0x00000000 */
@@ -190,12 +186,8 @@ sb5  =  2.55305040643316442583e+03, /* 0x40A3F219, 0xCEDF3BE6 */
 sb6  =  4.74528541206955367215e+02, /* 0x407DA874, 0xE79FE763 */
 sb7  = -2.24409524465858183362e+01; /* 0xC03670E2, 0x42712D62 */
 
-#ifdef __STDC__
-       double erf(double x)
-#else
-       double erf(x)
-       double x;
-#endif
+double
+erf(double x)
 {
        int32_t hx,ix,i;
        double R,S,P,Q,s,y,z,r;
@@ -246,12 +238,8 @@ sb7  = -2.24409524465858183362e+01; /* 0xC03670E2, 0x42712D62 */
        if(hx>=0) return one-r/x; else return  r/x-one;
 }
 
-#ifdef __STDC__
-       double erfc(double x)
-#else
-       double erfc(x)
-       double x;
-#endif
+double
+erfc(double x)
 {
        int32_t hx,ix;
        double R,S,P,Q,s,y,z,r;
index 1e575fa..6c31a4e 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/s_erff.c,v 1.5 1999/08/28 00:06:46 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/s_erff.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/s_erff.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const float
-#else
-static float
-#endif
 tiny       = 1e-30,
 half=  5.0000000000e-01, /* 0x3F000000 */
 one =  1.0000000000e+00, /* 0x3F800000 */
@@ -98,12 +94,8 @@ sb5  =  2.5530502930e+03, /* 0x451f90ce */
 sb6  =  4.7452853394e+02, /* 0x43ed43a7 */
 sb7  = -2.2440952301e+01; /* 0xc1b38712 */
 
-#ifdef __STDC__
-       float erff(float x)
-#else
-       float erff(x)
-       float x;
-#endif
+float
+erff(float x)
 {
        int32_t hx,ix,i;
        float R,S,P,Q,s,y,z,r;
@@ -155,12 +147,8 @@ sb7  = -2.2440952301e+01; /* 0xc1b38712 */
        if(hx>=0) return one-r/x; else return  r/x-one;
 }
 
-#ifdef __STDC__
-       float erfcf(float x)
-#else
-       float erfcf(x)
-       float x;
-#endif
+float
+erfcf(float x)
 {
        int32_t hx,ix;
        float R,S,P,Q,s,y,z,r;
index e5b92c4..6dbbea5 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/s_expm1.c,v 1.5 1999/08/28 00:06:47 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/s_expm1.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/s_expm1.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /* expm1(x)
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const double
-#else
-static double
-#endif
 one            = 1.0,
 huge           = 1.0e+300,
 tiny           = 1.0e-300,
@@ -130,12 +126,8 @@ Q3  =  -7.93650757867487942473e-05, /* BF14CE19 9EAADBB7 */
 Q4  =   4.00821782732936239552e-06, /* 3ED0CFCA 86E65239 */
 Q5  =  -2.01099218183624371326e-07; /* BE8AFDB7 6E09C32D */
 
-#ifdef __STDC__
-       double expm1(double x)
-#else
-       double expm1(x)
-       double x;
-#endif
+double
+expm1(double x)
 {
        double y,hi,lo,c,t,e,hxs,hfx,r1;
        int32_t k,xsb;
index f399c24..ac18a97 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/s_expm1f.c,v 1.5 1999/08/28 00:06:47 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/s_expm1f.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/s_expm1f.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const float
-#else
-static float
-#endif
 one            = 1.0,
 huge           = 1.0e+30,
 tiny           = 1.0e-30,
@@ -38,12 +34,8 @@ Q3  =  -7.9365076090e-05, /* 0xb8a670cd */
 Q4  =   4.0082177293e-06, /* 0x36867e54 */
 Q5  =  -2.0109921195e-07; /* 0xb457edbb */
 
-#ifdef __STDC__
-       float expm1f(float x)
-#else
-       float expm1f(x)
-       float x;
-#endif
+float
+expm1f(float x)
 {
        float y,hi,lo,c,t,e,hxs,hfx,r1;
        int32_t k,xsb;
index 4b47468..aa28752 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/s_fabs.c,v 1.5 1999/08/28 00:06:47 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/s_fabs.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/s_fabs.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
-       double fabs(double x)
-#else
-       double fabs(x)
-       double x;
-#endif
+double
+fabs(double x)
 {
        u_int32_t high;
        GET_HIGH_WORD(high,x);
index 9f1f115..efc7893 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/s_fabsf.c,v 1.5 1999/08/28 00:06:47 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/s_fabsf.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/s_fabsf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
-       float fabsf(float x)
-#else
-       float fabsf(x)
-       float x;
-#endif
+float
+fabsf(float x)
 {
        u_int32_t ix;
        GET_FLOAT_WORD(ix,x);
index 1efee00..1f0b968 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/s_finite.c,v 1.6 1999/08/28 00:06:48 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/s_finite.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/s_finite.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
-       int __generic_finite(double x)
-#else
-       int __generic_finite(x)
-       double x;
-#endif
+int
+__generic_finite(double x)
 {
        int32_t hx;
        GET_HIGH_WORD(hx,x);
index a09d1e0..10fb02a 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/s_finitef.c,v 1.5 1999/08/28 00:06:48 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/s_finitef.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/s_finitef.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
-       int finitef(float x)
-#else
-       int finitef(x)
-       float x;
-#endif
+int
+finitef(float x)
 {
        int32_t ix;
        GET_FLOAT_WORD(ix,x);
index d84813c..a0ee50f 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/s_floor.c,v 1.6 1999/08/28 00:06:48 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/s_floor.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/s_floor.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const double huge = 1.0e300;
-#else
-static double huge = 1.0e300;
-#endif
 
-#ifdef __STDC__
-       double __generic_floor(double x)
-#else
-       double __generic_floor(x)
-       double x;
-#endif
+double
+__generic_floor(double x)
 {
        int32_t i0,i1,j0;
        u_int32_t i,j;
index 9b30941..5caaf08 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/s_floorf.c,v 1.5 1999/08/28 00:06:48 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/s_floorf.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/s_floorf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const float huge = 1.0e30;
-#else
-static float huge = 1.0e30;
-#endif
 
-#ifdef __STDC__
-       float floorf(float x)
-#else
-       float floorf(x)
-       float x;
-#endif
+float
+floorf(float x)
 {
        int32_t i0,j0;
        u_int32_t i;
index 91655ff..ca5aad8 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/s_frexp.c,v 1.6 1999/08/28 00:06:49 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/s_frexp.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/s_frexp.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const double
-#else
-static double
-#endif
 two54 =  1.80143985094819840000e+16; /* 0x43500000, 0x00000000 */
 
-#ifdef __STDC__
-       double frexp(double x, int *eptr)
-#else
-       double frexp(x, eptr)
-       double x; int *eptr;
-#endif
+double
+frexp(double x, int *eptr)
 {
        int32_t hx, ix, lx;
        EXTRACT_WORDS(hx,lx,x);
index 9bba5c4..597d6d0 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/s_frexpf.c,v 1.6 1999/08/28 00:06:49 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/s_frexpf.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/s_frexpf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const float
-#else
-static float
-#endif
 two25 =  3.3554432000e+07; /* 0x4c000000 */
 
-#ifdef __STDC__
-       float frexpf(float x, int *eptr)
-#else
-       float frexpf(x, eptr)
-       float x; int *eptr;
-#endif
+float
+frexpf(float x, int *eptr)
 {
        int32_t hx,ix;
        GET_FLOAT_WORD(hx,x);
index 7b2ac1c..2ba935f 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/s_ilogb.c,v 1.6 1999/08/28 00:06:49 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/s_ilogb.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/s_ilogb.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /* ilogb(double x)
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
-       int __generic_ilogb(double x)
-#else
-       int __generic_ilogb(x)
-       double x;
-#endif
+int
+__generic_ilogb(double x)
 {
        int32_t hx,lx,ix;
 
index 9d2764f..12ae4ef 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/s_ilogbf.c,v 1.5 1999/08/28 00:06:50 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/s_ilogbf.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/s_ilogbf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
-       int ilogbf(float x)
-#else
-       int ilogbf(x)
-       float x;
-#endif
+int
+ilogbf(float x)
 {
        int32_t hx,ix;
 
index fa6832c..b535448 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/s_isnan.c,v 1.5 1999/08/28 00:06:50 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/s_isnan.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/s_isnan.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
-       int isnan(double x)
-#else
-       int isnan(x)
-       double x;
-#endif
+int
+isnan(double x)
 {
        int32_t hx,lx;
        EXTRACT_WORDS(hx,lx,x);
index a46087b..26af98a 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/s_isnanf.c,v 1.5 1999/08/28 00:06:51 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/s_isnanf.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/s_isnanf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
-       int isnanf(float x)
-#else
-       int isnanf(x)
-       float x;
-#endif
+int
+isnanf(float x)
 {
        int32_t ix;
        GET_FLOAT_WORD(ix,x);
index 5a5ab91..7bae84b 100644 (file)
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/s_ldexp.c,v 1.5 1999/08/28 00:06:51 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/s_ldexp.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/s_ldexp.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 #include "math.h"
 #include "math_private.h"
 #include <errno.h>
 
-#ifdef __STDC__
-       double ldexp(double value, int exp)
-#else
-       double ldexp(value, exp)
-       double value; int exp;
-#endif
+double
+ldexp(double value, int exp)
 {
        if(!finite(value)||value==0.0) return value;
        value = scalbn(value,exp);
index c8f7ad9..fc6ea20 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/s_ldexpf.c,v 1.5 1999/08/28 00:06:51 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/s_ldexpf.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/s_ldexpf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math_private.h"
 #include <errno.h>
 
-#ifdef __STDC__
-       float ldexpf(float value, int exp)
-#else
-       float ldexpf(value, exp)
-       float value; int exp;
-#endif
+float
+ldexpf(float value, int exp)
 {
        if(!finitef(value)||value==(float)0.0) return value;
        value = scalbnf(value,exp);
index 34f1073..5a85707 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/s_log1p.c,v 1.5 1999/08/28 00:06:52 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/s_log1p.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/s_log1p.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /* double log1p(double x)
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const double
-#else
-static double
-#endif
 ln2_hi  =  6.93147180369123816490e-01, /* 3fe62e42 fee00000 */
 ln2_lo  =  1.90821492927058770002e-10, /* 3dea39ef 35793c76 */
 two54   =  1.80143985094819840000e+16,  /* 43500000 00000000 */
@@ -97,18 +93,10 @@ Lp5 = 1.818357216161805012e-01,  /* 3FC74664 96CB03DE */
 Lp6 = 1.531383769920937332e-01,  /* 3FC39A09 D078C69F */
 Lp7 = 1.479819860511658591e-01;  /* 3FC2F112 DF3E5244 */
 
-#ifdef __STDC__
 static const double zero = 0.0;
-#else
-static double zero = 0.0;
-#endif
 
-#ifdef __STDC__
-       double log1p(double x)
-#else
-       double log1p(x)
-       double x;
-#endif
+double
+log1p(double x)
 {
        double hfsq,f,c,s,z,R,u;
        int32_t k,hx,hu,ax;
index a01e921..693c748 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/s_log1pf.c,v 1.5 1999/08/28 00:06:52 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/s_log1pf.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/s_log1pf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const float
-#else
-static float
-#endif
 ln2_hi =   6.9313812256e-01,   /* 0x3f317180 */
 ln2_lo =   9.0580006145e-06,   /* 0x3717f7d1 */
 two25 =    3.355443200e+07,    /* 0x4c000000 */
@@ -35,18 +31,9 @@ Lp5 = 1.8183572590e-01, /* 3E3A3325 */
 Lp6 = 1.5313838422e-01, /* 3E1CD04F */
 Lp7 = 1.4798198640e-01; /* 3E178897 */
 
-#ifdef __STDC__
 static const float zero = 0.0;
-#else
-static float zero = 0.0;
-#endif
 
-#ifdef __STDC__
        float log1pf(float x)
-#else
-       float log1pf(x)
-       float x;
-#endif
 {
        float hfsq,f,c,s,z,R,u;
        int32_t k,hx,hu,ax;
index 918b4f8..4a4d6b8 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/s_logb.c,v 1.6 1999/08/28 00:06:52 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/s_logb.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/s_logb.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
-       double __generic_logb(double x)
-#else
-       double __generic_logb(x)
-       double x;
-#endif
+double
+__generic_logb(double x)
 {
        int32_t lx,ix;
        EXTRACT_WORDS(ix,lx,x);
index f248d1c..1188969 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/s_logbf.c,v 1.5 1999/08/28 00:06:53 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/s_logbf.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/s_logbf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
-       float logbf(float x)
-#else
-       float logbf(x)
-       float x;
-#endif
+float
+logbf(float x)
 {
        int32_t ix;
        GET_FLOAT_WORD(ix,x);
index bc82042..c2d47e1 100644 (file)
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/s_matherr.c,v 1.5 1999/08/28 00:06:53 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/s_matherr.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/s_matherr.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
-       int matherr(struct exception *x)
-#else
-       int matherr(x)
-       struct exception *x;
-#endif
+int
+matherr(struct exception *x)
 {
        int n=0;
        if(x->arg1!=x->arg1) return 0;
index 23556cf..a4c2f72 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/s_modf.c,v 1.5 1999/08/28 00:06:53 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/s_modf.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/s_modf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const double one = 1.0;
-#else
-static double one = 1.0;
-#endif
 
-#ifdef __STDC__
-       double modf(double x, double *iptr)
-#else
-       double modf(x, iptr)
-       double x,*iptr;
-#endif
+double
+modf(double x, double *iptr)
 {
        int32_t i0,i1,j0;
        u_int32_t i;
index 5851bae..9a77ab4 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/s_modff.c,v 1.5 1999/08/28 00:06:53 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/s_modff.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/s_modff.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const float one = 1.0;
-#else
-static float one = 1.0;
-#endif
 
-#ifdef __STDC__
-       float modff(float x, float *iptr)
-#else
-       float modff(x, iptr)
-       float x,*iptr;
-#endif
+float
+modff(float x, float *iptr)
 {
        int32_t i0,j0;
        u_int32_t i;
index fc55389..7aae5c6 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/s_nextafter.c,v 1.5 1999/08/28 00:06:53 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/s_nextafter.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/s_nextafter.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /* IEEE functions
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
-       double nextafter(double x, double y)
-#else
-       double nextafter(x,y)
-       double x,y;
-#endif
+double
+nextafter(double x, double y)
 {
        int32_t hx,hy,ix,iy;
        u_int32_t lx,ly;
index b36eded..2832529 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/s_nextafterf.c,v 1.5 1999/08/28 00:06:54 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/s_nextafterf.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/s_nextafterf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
-       float nextafterf(float x, float y)
-#else
-       float nextafterf(x,y)
-       float x,y;
-#endif
+float
+nextafterf(float x, float y)
 {
        int32_t hx,hy,ix,iy;
 
index 46c1080..ed619e9 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/s_rint.c,v 1.7 1999/08/28 00:06:54 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/s_rint.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/s_rint.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
  * TWO23 is long double instead of double to avoid a bug in gcc.  Without
  * this, gcc thinks that TWO23[sx]+x and w-TWO23[sx] already have double
  * precision and doesn't clip them to double precision when they are
- * assigned and returned.  Use long double even in the !__STDC__ case in
- * case this is compiled with gcc -traditional.
+ * assigned and returned.
  */
-#ifdef __STDC__
 static const long double
-#else
-static long double
-#endif
 TWO52[2]={
   4.50359962737049600000e+15, /* 0x43300000, 0x00000000 */
  -4.50359962737049600000e+15, /* 0xC3300000, 0x00000000 */
 };
 
-#ifdef __STDC__
-       double __generic_rint(double x)
-#else
-       double __generic_rint(x)
-       double x;
-#endif
+double
+__generic_rint(double x)
 {
        int32_t i0,j0,sx;
        u_int32_t i,i1;
index 05eccff..47f5054 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/s_rintf.c,v 1.6 1999/08/28 00:06:54 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/s_rintf.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/s_rintf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
  * precision and doesn't clip them to float precision when they are
  * assigned and returned.
  */
-#ifdef __STDC__
 static const double
-#else
-static double
-#endif
 TWO23[2]={
   8.3886080000e+06, /* 0x4b000000 */
  -8.3886080000e+06, /* 0xcb000000 */
 };
 
-#ifdef __STDC__
-       float rintf(float x)
-#else
-       float rintf(x)
-       float x;
-#endif
+float
+rintf(float x)
 {
        int32_t i0,j0,sx;
        u_int32_t i,i1;
index ece3c02..a1f2b3e 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/s_scalbn.c,v 1.6 1999/08/28 00:06:54 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/s_scalbn.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/s_scalbn.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const double
-#else
-static double
-#endif
 two54   =  1.80143985094819840000e+16, /* 0x43500000, 0x00000000 */
 twom54  =  5.55111512312578270212e-17, /* 0x3C900000, 0x00000000 */
 huge   = 1.0e+300,
 tiny   = 1.0e-300;
 
-#ifdef __STDC__
-       double __generic_scalbn (double x, int n)
-#else
-       double __generic_scalbn (x,n)
-       double x; int n;
-#endif
+double
+__generic_scalbn (double x, int n)
 {
        int32_t k,hx,lx;
        EXTRACT_WORDS(hx,lx,x);
index dfabf0f..3914a37 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/s_scalbnf.c,v 1.5 1999/08/28 00:06:54 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/s_scalbnf.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/s_scalbnf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const float
-#else
-static float
-#endif
 two25   =  3.355443200e+07,    /* 0x4c000000 */
 twom25  =  2.9802322388e-08,   /* 0x33000000 */
 huge   = 1.0e+30,
 tiny   = 1.0e-30;
 
-#ifdef __STDC__
-       float scalbnf (float x, int n)
-#else
-       float scalbn (x,n)
-       float x; int n;
-#endif
+float
+scalbnf (float x, int n)
 {
        int32_t k,ix;
        GET_FLOAT_WORD(ix,x);
index df8e6ba..5110984 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/s_significand.c,v 1.6 1999/08/28 00:06:55 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/s_significand.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/s_significand.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
-       double __generic_significand(double x)
-#else
-       double __generic_significand(x)
-       double x;
-#endif
+double
+__generic_significand(double x)
 {
        return __ieee754_scalb(x,(double) -ilogb(x));
 }
index 0a2fb5f..804ac8d 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/s_significandf.c,v 1.5 1999/08/28 00:06:55 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/s_significandf.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/s_significandf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
-       float significandf(float x)
-#else
-       float significandf(x)
-       float x;
-#endif
+float
+significandf(float x)
 {
        return __ieee754_scalbf(x,(float) -ilogbf(x));
 }
index c1452a7..f774738 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/s_sin.c,v 1.6 1999/08/28 00:06:55 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/s_sin.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/s_sin.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /* sin(x)
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
-       double __generic_sin(double x)
-#else
-       double __generic_sin(x)
-       double x;
-#endif
+double
+__generic_sin(double x)
 {
        double y[2],z=0.0;
        int32_t n, ix;
index ab2ad7a..5a943db 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/s_sinf.c,v 1.5 1999/08/28 00:06:55 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/s_sinf.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/s_sinf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
-       float sinf(float x)
-#else
-       float sinf(x)
-       float x;
-#endif
+float
+sinf(float x)
 {
        float y[2],z=0.0;
        int32_t n, ix;
index 336d3e9..3585867 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/s_tan.c,v 1.6 1999/08/28 00:06:56 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/s_tan.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/s_tan.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /* tan(x)
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
-       double __generic_tan(double x)
-#else
-       double __generic_tan(x)
-       double x;
-#endif
+double
+__generic_tan(double x)
 {
        double y[2],z=0.0;
        int32_t n, ix;
index 2aad8b3..98d699e 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/s_tanf.c,v 1.5 1999/08/28 00:06:56 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/s_tanf.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/s_tanf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
-       float tanf(float x)
-#else
-       float tanf(x)
-       float x;
-#endif
+float
+tanf(float x)
 {
        float y[2],z=0.0;
        int32_t n, ix;
index 82e086d..3dd1df5 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/s_tanh.c,v 1.5 1999/08/28 00:06:56 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/s_tanh.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/s_tanh.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /* Tanh(x)
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const double one=1.0, two=2.0, tiny = 1.0e-300;
-#else
-static double one=1.0, two=2.0, tiny = 1.0e-300;
-#endif
 
-#ifdef __STDC__
-       double tanh(double x)
-#else
-       double tanh(x)
-       double x;
-#endif
+double
+tanh(double x)
 {
        double t,z;
        int32_t jx,ix;
index be051b9..fce5ec2 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/s_tanhf.c,v 1.5 1999/08/28 00:06:56 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/s_tanhf.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/s_tanhf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const float one=1.0, two=2.0, tiny = 1.0e-30;
-#else
-static float one=1.0, two=2.0, tiny = 1.0e-30;
-#endif
 
-#ifdef __STDC__
-       float tanhf(float x)
-#else
-       float tanhf(x)
-       float x;
-#endif
+float
+tanhf(float x)
 {
        float t,z;
        int32_t jx,ix;
index 6da47ac..92ee4ba 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/w_acos.c,v 1.5 1999/08/28 00:06:57 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/w_acos.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/w_acos.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math_private.h"
 
 
-#ifdef __STDC__
-       double acos(double x)           /* wrapper acos */
-#else
-       double acos(x)                  /* wrapper acos */
-       double x;
-#endif
+double
+acos(double x)         /* wrapper acos */
 {
 #ifdef _IEEE_LIBM
        return __ieee754_acos(x);
index 834b922..332b697 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/w_acosf.c,v 1.5 1999/08/28 00:06:57 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/w_acosf.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/w_acosf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math_private.h"
 
 
-#ifdef __STDC__
-       float acosf(float x)            /* wrapper acosf */
-#else
-       float acosf(x)                  /* wrapper acosf */
-       float x;
-#endif
+float
+acosf(float x)         /* wrapper acosf */
 {
 #ifdef _IEEE_LIBM
        return __ieee754_acosf(x);
index 8c064b8..a60842f 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/w_acosh.c,v 1.5 1999/08/28 00:06:57 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/w_acosh.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/w_acosh.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
-       double acosh(double x)          /* wrapper acosh */
-#else
-       double acosh(x)                 /* wrapper acosh */
-       double x;
-#endif
+double
+acosh(double x)                /* wrapper acosh */
 {
 #ifdef _IEEE_LIBM
        return __ieee754_acosh(x);
index c060697..7a79f48 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/w_acoshf.c,v 1.5 1999/08/28 00:06:57 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/w_acoshf.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/w_acoshf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
-       float acoshf(float x)           /* wrapper acoshf */
-#else
-       float acoshf(x)                 /* wrapper acoshf */
-       float x;
-#endif
+float
+acoshf(float x)                /* wrapper acoshf */
 {
 #ifdef _IEEE_LIBM
        return __ieee754_acoshf(x);
index b2b2e0c..c1e2d26 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/w_asin.c,v 1.5 1999/08/28 00:06:58 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/w_asin.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/w_asin.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math_private.h"
 
 
-#ifdef __STDC__
-       double asin(double x)           /* wrapper asin */
-#else
-       double asin(x)                  /* wrapper asin */
-       double x;
-#endif
+double
+asin(double x)         /* wrapper asin */
 {
 #ifdef _IEEE_LIBM
        return __ieee754_asin(x);
index f56e60c..0b51898 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/w_asinf.c,v 1.5 1999/08/28 00:06:58 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/w_asinf.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/w_asinf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math_private.h"
 
 
-#ifdef __STDC__
-       float asinf(float x)            /* wrapper asinf */
-#else
-       float asinf(x)                  /* wrapper asinf */
-       float x;
-#endif
+float
+asinf(float x)         /* wrapper asinf */
 {
 #ifdef _IEEE_LIBM
        return __ieee754_asinf(x);
index 3ed376b..bad3548 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/w_atan2.c,v 1.5 1999/08/28 00:06:58 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/w_atan2.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/w_atan2.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math_private.h"
 
 
-#ifdef __STDC__
-       double atan2(double y, double x)        /* wrapper atan2 */
-#else
-       double atan2(y,x)                       /* wrapper atan2 */
-       double y,x;
-#endif
+double
+atan2(double y, double x)      /* wrapper atan2 */
 {
 #ifdef _IEEE_LIBM
        return __ieee754_atan2(y,x);
index 6555497..616d8e6 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/w_atan2f.c,v 1.5 1999/08/28 00:06:58 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/w_atan2f.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/w_atan2f.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math_private.h"
 
 
-#ifdef __STDC__
-       float atan2f(float y, float x)          /* wrapper atan2f */
-#else
-       float atan2f(y,x)                       /* wrapper atan2 */
-       float y,x;
-#endif
+float
+atan2f(float y, float x)               /* wrapper atan2f */
 {
 #ifdef _IEEE_LIBM
        return __ieee754_atan2f(y,x);
index 4f98cc2..7d8474f 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/w_atanh.c,v 1.5 1999/08/28 00:06:59 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/w_atanh.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/w_atanh.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math_private.h"
 
 
-#ifdef __STDC__
-       double atanh(double x)          /* wrapper atanh */
-#else
-       double atanh(x)                 /* wrapper atanh */
-       double x;
-#endif
+double
+atanh(double x)                /* wrapper atanh */
 {
 #ifdef _IEEE_LIBM
        return __ieee754_atanh(x);
index 58de8a9..e20d258 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/w_atanhf.c,v 1.5 1999/08/28 00:06:59 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/w_atanhf.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/w_atanhf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math_private.h"
 
 
-#ifdef __STDC__
-       float atanhf(float x)           /* wrapper atanhf */
-#else
-       float atanhf(x)                 /* wrapper atanhf */
-       float x;
-#endif
+float
+atanhf(float x)                /* wrapper atanhf */
 {
 #ifdef _IEEE_LIBM
        return __ieee754_atanhf(x);
index f8ed5bc..71a04e6 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/w_cosh.c,v 1.5 1999/08/28 00:06:59 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/w_cosh.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/w_cosh.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
-       double cosh(double x)           /* wrapper cosh */
-#else
-       double cosh(x)                  /* wrapper cosh */
-       double x;
-#endif
+double
+cosh(double x)         /* wrapper cosh */
 {
 #ifdef _IEEE_LIBM
        return __ieee754_cosh(x);
index 2952ca3..6a9e1a3 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/w_coshf.c,v 1.5 1999/08/28 00:07:00 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/w_coshf.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/w_coshf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
-       float coshf(float x)            /* wrapper coshf */
-#else
-       float coshf(x)                  /* wrapper coshf */
-       float x;
-#endif
+float
+coshf(float x)         /* wrapper coshf */
 {
 #ifdef _IEEE_LIBM
        return __ieee754_coshf(x);
index 970aeb0..5d92524 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/w_exp.c,v 1.5 1999/08/28 00:07:00 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/w_exp.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/w_exp.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const double
-#else
-static double
-#endif
 o_threshold=  7.09782712893383973096e+02,  /* 0x40862E42, 0xFEFA39EF */
 u_threshold= -7.45133219101941108420e+02;  /* 0xc0874910, 0xD52D3051 */
 
-#ifdef __STDC__
-       double exp(double x)            /* wrapper exp */
-#else
-       double exp(x)                   /* wrapper exp */
-       double x;
-#endif
+double
+exp(double x)          /* wrapper exp */
 {
 #ifdef _IEEE_LIBM
        return __ieee754_exp(x);
index 65b9026..7b1ce27 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/w_expf.c,v 1.5 1999/08/28 00:07:00 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/w_expf.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/w_expf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
 static const float
-#else
-static float
-#endif
 o_threshold=  8.8721679688e+01,  /* 0x42b17180 */
 u_threshold= -1.0397208405e+02;  /* 0xc2cff1b5 */
 
-#ifdef __STDC__
-       float expf(float x)             /* wrapper expf */
-#else
-       float expf(x)                   /* wrapper expf */
-       float x;
-#endif
+float
+expf(float x)          /* wrapper expf */
 {
 #ifdef _IEEE_LIBM
        return __ieee754_expf(x);
index d6ee5dc..82eb819 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/w_fmod.c,v 1.5 1999/08/28 00:07:00 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/w_fmod.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/w_fmod.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math_private.h"
 
 
-#ifdef __STDC__
-       double fmod(double x, double y) /* wrapper fmod */
-#else
-       double fmod(x,y)                /* wrapper fmod */
-       double x,y;
-#endif
+double
+fmod(double x, double y)       /* wrapper fmod */
 {
 #ifdef _IEEE_LIBM
        return __ieee754_fmod(x,y);
index 76fd8f4..f394811 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/w_fmodf.c,v 1.5 1999/08/28 00:07:01 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/w_fmodf.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/w_fmodf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math_private.h"
 
 
-#ifdef __STDC__
-       float fmodf(float x, float y)   /* wrapper fmodf */
-#else
-       float fmodf(x,y)                /* wrapper fmodf */
-       float x,y;
-#endif
+float
+fmodf(float x, float y)        /* wrapper fmodf */
 {
 #ifdef _IEEE_LIBM
        return __ieee754_fmodf(x,y);
index 382b9e4..afca621 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/w_gamma.c,v 1.5 1999/08/28 00:07:01 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/w_gamma.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/w_gamma.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /* double gamma(double x)
 
 extern int signgam;
 
-#ifdef __STDC__
-       double gamma(double x)
-#else
-       double gamma(x)
-       double x;
-#endif
+double
+gamma(double x)
 {
 #ifdef _IEEE_LIBM
        return __ieee754_gamma_r(x,&signgam);
index c2c01b3..be9e0ce 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/w_gamma_r.c,v 1.5 1999/08/28 00:07:01 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/w_gamma_r.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/w_gamma_r.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math_private.h"
 
 
-#ifdef __STDC__
-       double gamma_r(double x, int *signgamp) /* wrapper lgamma_r */
-#else
-       double gamma_r(x,signgamp)              /* wrapper lgamma_r */
-        double x; int *signgamp;
-#endif
+double
+gamma_r(double x, int *signgamp) /* wrapper lgamma_r */
 {
 #ifdef _IEEE_LIBM
        return __ieee754_gamma_r(x,signgamp);
index 8880224..5dd417c 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/w_gammaf.c,v 1.5 1999/08/28 00:07:02 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/w_gammaf.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/w_gammaf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 
 extern int signgam;
 
-#ifdef __STDC__
-       float gammaf(float x)
-#else
-       float gammaf(x)
-       float x;
-#endif
+float
+gammaf(float x)
 {
 #ifdef _IEEE_LIBM
        return __ieee754_gammaf_r(x,&signgam);
index 2c818d4..e7eb459 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/w_gammaf_r.c,v 1.5 1999/08/28 00:07:02 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/w_gammaf_r.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/w_gammaf_r.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math_private.h"
 
 
-#ifdef __STDC__
-       float gammaf_r(float x, int *signgamp) /* wrapper lgammaf_r */
-#else
-       float gammaf_r(x,signgamp)              /* wrapper lgammaf_r */
-        float x; int *signgamp;
-#endif
+float
+gammaf_r(float x, int *signgamp) /* wrapper lgammaf_r */
 {
 #ifdef _IEEE_LIBM
        return __ieee754_gammaf_r(x,signgamp);
index eb8ed5d..f26043f 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/w_hypot.c,v 1.5 1999/08/28 00:07:02 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/w_hypot.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/w_hypot.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math_private.h"
 
 
-#ifdef __STDC__
-       double hypot(double x, double y)/* wrapper hypot */
-#else
-       double hypot(x,y)               /* wrapper hypot */
-       double x,y;
-#endif
+double
+hypot(double x, double y)/* wrapper hypot */
 {
 #ifdef _IEEE_LIBM
        return __ieee754_hypot(x,y);
index 96bdbc5..ac8eb6f 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/w_hypotf.c,v 1.5 1999/08/28 00:07:02 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/w_hypotf.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/w_hypotf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math_private.h"
 
 
-#ifdef __STDC__
-       float hypotf(float x, float y)  /* wrapper hypotf */
-#else
-       float hypotf(x,y)               /* wrapper hypotf */
-       float x,y;
-#endif
+float
+hypotf(float x, float y)       /* wrapper hypotf */
 {
 #ifdef _IEEE_LIBM
        return __ieee754_hypotf(x,y);
index 4c16b61..8be5937 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/w_j0.c,v 1.6 1999/08/28 00:07:03 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/w_j0.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/w_j0.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
-       double j0(double x)             /* wrapper j0 */
-#else
-       double j0(x)                    /* wrapper j0 */
-       double x;
-#endif
+double
+j0(double x)           /* wrapper j0 */
 {
 #ifdef _IEEE_LIBM
        return __ieee754_j0(x);
index b853779..af027a3 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/w_j0f.c,v 1.6 1999/08/28 00:07:03 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/w_j0f.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/w_j0f.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
-       float j0f(float x)              /* wrapper j0f */
-#else
-       float j0f(x)                    /* wrapper j0f */
-       float x;
-#endif
+float
+j0f(float x)           /* wrapper j0f */
 {
 #ifdef _IEEE_LIBM
        return __ieee754_j0f(x);
index 06ade46..79f31aa 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/w_j1.c,v 1.6 1999/08/28 00:07:03 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/w_j1.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/w_j1.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
-       double j1(double x)             /* wrapper j1 */
-#else
-       double j1(x)                    /* wrapper j1 */
-       double x;
-#endif
+double
+j1(double x)           /* wrapper j1 */
 {
 #ifdef _IEEE_LIBM
        return __ieee754_j1(x);
index cb6c508..9c06eec 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/w_j1f.c,v 1.6 1999/08/28 00:07:04 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/w_j1f.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/w_j1f.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
-       float j1f(float x)              /* wrapper j1f */
-#else
-       float j1f(x)                    /* wrapper j1f */
-       float x;
-#endif
+float
+j1f(float x)           /* wrapper j1f */
 {
 #ifdef _IEEE_LIBM
        return __ieee754_j1f(x);
index f4259f4..beed7f2 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/w_jn.c,v 1.7 1999/08/28 00:07:04 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/w_jn.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/w_jn.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
-       double jn(int n, double x)      /* wrapper jn */
-#else
-       double jn(n,x)                  /* wrapper jn */
-       double x; int n;
-#endif
+double
+jn(int n, double x)    /* wrapper jn */
 {
 #ifdef _IEEE_LIBM
        return __ieee754_jn(n,x);
index 54c1ee9..49494df 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/w_jnf.c,v 1.6 1999/08/28 00:07:04 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/w_jnf.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/w_jnf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
-       float jnf(int n, float x)       /* wrapper jnf */
-#else
-       float jnf(n,x)                  /* wrapper jnf */
-       float x; int n;
-#endif
+float
+jnf(int n, float x)    /* wrapper jnf */
 {
 #ifdef _IEEE_LIBM
        return __ieee754_jnf(n,x);
index 7321ae6..5795d4d 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/w_lgamma.c,v 1.5 1999/08/28 00:07:04 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/w_lgamma.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/w_lgamma.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /* double lgamma(double x)
 
 extern int signgam;
 
-#ifdef __STDC__
-       double lgamma(double x)
-#else
-       double lgamma(x)
-       double x;
-#endif
+double
+lgamma(double x)
 {
 #ifdef _IEEE_LIBM
        return __ieee754_lgamma_r(x,&signgam);
index 55ec832..f088d2c 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/w_lgamma_r.c,v 1.5 1999/08/28 00:07:05 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/w_lgamma_r.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/w_lgamma_r.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math_private.h"
 
 
-#ifdef __STDC__
-       double lgamma_r(double x, int *signgamp) /* wrapper lgamma_r */
-#else
-       double lgamma_r(x,signgamp)              /* wrapper lgamma_r */
-        double x; int *signgamp;
-#endif
+double
+lgamma_r(double x, int *signgamp) /* wrapper lgamma_r */
 {
 #ifdef _IEEE_LIBM
        return __ieee754_lgamma_r(x,signgamp);
index b8698d4..5b381a8 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/w_lgammaf.c,v 1.5 1999/08/28 00:07:05 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/w_lgammaf.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/w_lgammaf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 
 extern int signgam;
 
-#ifdef __STDC__
-       float lgammaf(float x)
-#else
-       float lgammaf(x)
-       float x;
-#endif
+float
+lgammaf(float x)
 {
 #ifdef _IEEE_LIBM
        return __ieee754_lgammaf_r(x,&signgam);
index e9e0e9d..d87ee36 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/w_lgammaf_r.c,v 1.5 1999/08/28 00:07:05 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/w_lgammaf_r.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/w_lgammaf_r.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math_private.h"
 
 
-#ifdef __STDC__
-       float lgammaf_r(float x, int *signgamp) /* wrapper lgammaf_r */
-#else
-       float lgammaf_r(x,signgamp)              /* wrapper lgammaf_r */
-        float x; int *signgamp;
-#endif
+float
+lgammaf_r(float x, int *signgamp) /* wrapper lgammaf_r */
 {
 #ifdef _IEEE_LIBM
        return __ieee754_lgammaf_r(x,signgamp);
index 93665ad..e9dfee5 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/w_log.c,v 1.5 1999/08/28 00:07:05 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/w_log.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/w_log.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math_private.h"
 
 
-#ifdef __STDC__
-       double log(double x)            /* wrapper log */
-#else
-       double log(x)                   /* wrapper log */
-       double x;
-#endif
+double
+log(double x)          /* wrapper log */
 {
 #ifdef _IEEE_LIBM
        return __ieee754_log(x);
index 4a462ca..c87f99f 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/w_log10.c,v 1.5 1999/08/28 00:07:06 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/w_log10.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/w_log10.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math_private.h"
 
 
-#ifdef __STDC__
-       double log10(double x)          /* wrapper log10 */
-#else
-       double log10(x)                 /* wrapper log10 */
-       double x;
-#endif
+double
+log10(double x)                /* wrapper log10 */
 {
 #ifdef _IEEE_LIBM
        return __ieee754_log10(x);
index d83cb70..f5cb8de 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/w_log10f.c,v 1.5 1999/08/28 00:07:06 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/w_log10f.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/w_log10f.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math_private.h"
 
 
-#ifdef __STDC__
-       float log10f(float x)           /* wrapper log10f */
-#else
-       float log10f(x)                 /* wrapper log10f */
-       float x;
-#endif
+float
+log10f(float x)                /* wrapper log10f */
 {
 #ifdef _IEEE_LIBM
        return __ieee754_log10f(x);
index 969d04d..eb78e53 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/w_logf.c,v 1.5 1999/08/28 00:07:06 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/w_logf.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/w_logf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math_private.h"
 
 
-#ifdef __STDC__
-       float logf(float x)             /* wrapper logf */
-#else
-       float logf(x)                   /* wrapper logf */
-       float x;
-#endif
+float
+logf(float x)          /* wrapper logf */
 {
 #ifdef _IEEE_LIBM
        return __ieee754_logf(x);
index 571897c..7a14b74 100644 (file)
@@ -10,6 +10,8 @@
  * software is freely granted, provided that this notice
  * is preserved.
  * ====================================================
+ *
+ * $DragonFly: src/lib/msun/src/Attic/w_pow.c,v 1.2 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math_private.h"
 
 
-#ifdef __STDC__
-       double pow(double x, double y)  /* wrapper pow */
-#else
-       double pow(x,y)                 /* wrapper pow */
-       double x,y;
-#endif
+double
+pow(double x, double y)        /* wrapper pow */
 {
 #ifdef _IEEE_LIBM
        return  __ieee754_pow(x,y);
index d1bbf75..077d4ec 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/w_powf.c,v 1.5 1999/08/28 00:07:07 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/w_powf.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/w_powf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math_private.h"
 
 
-#ifdef __STDC__
-       float powf(float x, float y)    /* wrapper powf */
-#else
-       float powf(x,y)                 /* wrapper powf */
-       float x,y;
-#endif
+float
+powf(float x, float y) /* wrapper powf */
 {
 #ifdef _IEEE_LIBM
        return  __ieee754_powf(x,y);
index d0ebd24..3238735 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/w_remainder.c,v 1.5 1999/08/28 00:07:07 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/w_remainder.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/w_remainder.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
-       double remainder(double x, double y)    /* wrapper remainder */
-#else
-       double remainder(x,y)                   /* wrapper remainder */
-       double x,y;
-#endif
+double
+remainder(double x, double y)  /* wrapper remainder */
 {
 #ifdef _IEEE_LIBM
        return __ieee754_remainder(x,y);
index 0e3d30a..8359968 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/w_remainderf.c,v 1.5 1999/08/28 00:07:08 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/w_remainderf.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/w_remainderf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
-       float remainderf(float x, float y)      /* wrapper remainder */
-#else
-       float remainderf(x,y)                   /* wrapper remainder */
-       float x,y;
-#endif
+float
+remainderf(float x, float y)   /* wrapper remainder */
 {
 #ifdef _IEEE_LIBM
        return __ieee754_remainderf(x,y);
index 1146861..66613a2 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/w_scalb.c,v 1.5 1999/08/28 00:07:08 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/w_scalb.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/w_scalb.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 
 #include <errno.h>
 
-#ifdef __STDC__
 #ifdef _SCALB_INT
        double scalb(double x, int fn)          /* wrapper scalb */
 #else
        double scalb(double x, double fn)       /* wrapper scalb */
 #endif
-#else
-       double scalb(x,fn)                      /* wrapper scalb */
-#ifdef _SCALB_INT
-       double x; int fn;
-#else
-       double x,fn;
-#endif
-#endif
 {
 #ifdef _IEEE_LIBM
        return __ieee754_scalb(x,fn);
index 3af72ce..3a341a4 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/w_scalbf.c,v 1.5 1999/08/28 00:07:08 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/w_scalbf.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/w_scalbf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 
 #include <errno.h>
 
-#ifdef __STDC__
 #ifdef _SCALB_INT
        float scalbf(float x, int fn)           /* wrapper scalbf */
 #else
        float scalbf(float x, float fn)         /* wrapper scalbf */
 #endif
-#else
-       float scalbf(x,fn)                      /* wrapper scalbf */
-#ifdef _SCALB_INT
-       float x; int fn;
-#else
-       float x,fn;
-#endif
-#endif
 {
 #ifdef _IEEE_LIBM
        return __ieee754_scalbf(x,fn);
index 48956fa..1e03174 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/w_sinh.c,v 1.5 1999/08/28 00:07:08 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/w_sinh.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/w_sinh.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
-       double sinh(double x)           /* wrapper sinh */
-#else
-       double sinh(x)                  /* wrapper sinh */
-       double x;
-#endif
+double
+sinh(double x)         /* wrapper sinh */
 {
 #ifdef _IEEE_LIBM
        return __ieee754_sinh(x);
index 4bb78e2..bfc35c9 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/w_sinhf.c,v 1.5 1999/08/28 00:07:09 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/w_sinhf.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/w_sinhf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
-       float sinhf(float x)            /* wrapper sinhf */
-#else
-       float sinhf(x)                  /* wrapper sinhf */
-       float x;
-#endif
+float
+sinhf(float x)         /* wrapper sinhf */
 {
 #ifdef _IEEE_LIBM
        return __ieee754_sinhf(x);
index 4eb69e6..e0bbbc0 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/w_sqrt.c,v 1.5 1999/08/28 00:07:09 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/w_sqrt.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/w_sqrt.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
-       double sqrt(double x)           /* wrapper sqrt */
-#else
-       double sqrt(x)                  /* wrapper sqrt */
-       double x;
-#endif
+double
+sqrt(double x)         /* wrapper sqrt */
 {
 #ifdef _IEEE_LIBM
        return __ieee754_sqrt(x);
index e918656..dde581a 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/w_sqrtf.c,v 1.5 1999/08/28 00:07:09 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/w_sqrtf.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/w_sqrtf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
-       float sqrtf(float x)            /* wrapper sqrtf */
-#else
-       float sqrt(x)                   /* wrapper sqrtf */
-       float x;
-#endif
+float
+sqrtf(float x)         /* wrapper sqrtf */
 {
 #ifdef _IEEE_LIBM
        return __ieee754_sqrtf(x);
index bfb10e0..0e99b21 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/w_y0.c,v 1.3 1999/08/28 00:07:09 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/w_y0.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/w_y0.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
-       double y0(double x)             /* wrapper y0 */
-#else
-       double y0(x)                    /* wrapper y0 */
-       double x;
-#endif
+double
+y0(double x)           /* wrapper y0 */
 {
 #ifdef _IEEE_LIBM
        return __ieee754_y0(x);
index 8d468fc..f7409c3 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/w_y0f.c,v 1.3 1999/08/28 00:07:10 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/w_y0f.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/w_y0f.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
-       float y0f(float x)              /* wrapper y0f */
-#else
-       float y0f(x)                    /* wrapper y0f */
-       float x;
-#endif
+float
+y0f(float x)           /* wrapper y0f */
 {
 #ifdef _IEEE_LIBM
        return __ieee754_y0f(x);
index b309f5d..95e2a3f 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/w_y1.c,v 1.3 1999/08/28 00:07:10 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/w_y1.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/w_y1.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
-       double y1(double x)             /* wrapper y1 */
-#else
-       double y1(x)                    /* wrapper y1 */
-       double x;
-#endif
+double
+y1(double x)           /* wrapper y1 */
 {
 #ifdef _IEEE_LIBM
        return __ieee754_y1(x);
index 36925bf..4c3e6ec 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/w_y1f.c,v 1.3 1999/08/28 00:07:10 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/w_y1f.c,v 1.2 2003/06/17 04:26:53 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/w_y1f.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
-       float y1f(float x)              /* wrapper y1f */
-#else
-       float y1f(x)                    /* wrapper y1f */
-       float x;
-#endif
+float
+y1f(float x)           /* wrapper y1f */
 {
 #ifdef _IEEE_LIBM
        return __ieee754_y1f(x);
index f81051e..9a69ef5 100644 (file)
@@ -10,7 +10,7 @@
  * ====================================================
  *
  * $FreeBSD: src/lib/msun/src/w_yn.c,v 1.3 1999/08/28 00:07:11 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/w_yn.c,v 1.2 2003/06/17 04:26:54 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/w_yn.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
-       double yn(int n, double x)      /* wrapper yn */
-#else
-       double yn(n,x)                  /* wrapper yn */
-       double x; int n;
-#endif
+double
+yn(int n, double x)    /* wrapper yn */
 {
 #ifdef _IEEE_LIBM
        return __ieee754_yn(n,x);
index b963c68..56770bd 100644 (file)
@@ -2,7 +2,7 @@
  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  *
  * $FreeBSD: src/lib/msun/src/w_ynf.c,v 1.3 1999/08/28 00:07:11 peter Exp $
- * $DragonFly: src/lib/msun/src/Attic/w_ynf.c,v 1.2 2003/06/17 04:26:54 dillon Exp $
+ * $DragonFly: src/lib/msun/src/Attic/w_ynf.c,v 1.3 2004/12/29 15:22:57 asmodai Exp $
  */
 
 /*
 #include "math.h"
 #include "math_private.h"
 
-#ifdef __STDC__
-       float ynf(int n, float x)       /* wrapper ynf */
-#else
-       float ynf(n,x)                  /* wrapper ynf */
-       float x; int n;
-#endif
+float
+ynf(int n, float x)    /* wrapper ynf */
 {
 #ifdef _IEEE_LIBM
        return __ieee754_ynf(n,x);