diff --git a/src/lisp/e_asin.c b/src/lisp/e_asin.c index 183ef6d300752435691cf464dd3544272e3d0de6..34d2096acefdf50c22c13eb6a285fa9ae0780668 100644 --- a/src/lisp/e_asin.c +++ b/src/lisp/e_asin.c @@ -50,7 +50,6 @@ static const double static double #endif one = 1.00000000000000000000e+00, /* 0x3FF00000, 0x00000000 */ -huge = 1.000e+300, pio2_hi = 1.57079632679489655800e+00, /* 0x3FF921FB, 0x54442D18 */ pio2_lo = 6.12323399573676603587e-17, /* 0x3C91A626, 0x33145C07 */ pio4_hi = 7.85398163397448278999e-01, /* 0x3FE921FB, 0x54442D18 */ diff --git a/src/lisp/e_cosh.c b/src/lisp/e_cosh.c index dc13feeca815496bcac87791635aa6c20339490b..ebd64dc620e2b21ee1ff4b616a39c543d2b8299a 100644 --- a/src/lisp/e_cosh.c +++ b/src/lisp/e_cosh.c @@ -35,7 +35,7 @@ #include "fdlibm.h" #ifdef __STDC__ -static const double one = 1.0, half=0.5, huge = 1.0e307; +static const double one = 1.0, half=0.5; #else static double one = 1.0, half=0.5, huge = 1.0e307; #endif diff --git a/src/lisp/e_exp.c b/src/lisp/e_exp.c index 3a9ce0fdfc6493e38813a6a58302f001e334f6d1..1ec1b642c7d740e064f59816f52fa92a38c45637 100644 --- a/src/lisp/e_exp.c +++ b/src/lisp/e_exp.c @@ -82,7 +82,6 @@ static double #endif one = 1.0, halF[2] = {0.5,-0.5,}, -huge = 1.0e+300, twom1000= 9.33263618503218878990e-302, /* 2**-1000=0x01700000,0*/ o_threshold= 7.09782712893383973096e+02, /* 0x40862E42, 0xFEFA39EF */ u_threshold= -7.45133219101941108420e+02, /* 0xc0874910, 0xD52D3051 */ diff --git a/src/lisp/e_sinh.c b/src/lisp/e_sinh.c index 80b7a62a9fbfcc8da06d529839bc9d44e8268337..781c99d7b48d298bbca516436b23b1311308dc7f 100644 --- a/src/lisp/e_sinh.c +++ b/src/lisp/e_sinh.c @@ -32,7 +32,7 @@ #include "fdlibm.h" #ifdef __STDC__ -static const double one = 1.0, shuge = 1.0e307; +static const double one = 1.0; #else static double one = 1.0, shuge = 1.0e307; #endif diff --git a/src/lisp/s_asinh.c b/src/lisp/s_asinh.c index 5c33cbaf66dbb42e183bf22af01f4bb31d8421c9..b96a5c00e6d464c26b4f4fdb4fdc98889666605a 100644 --- a/src/lisp/s_asinh.c +++ b/src/lisp/s_asinh.c @@ -32,8 +32,7 @@ static const double static double #endif one = 1.00000000000000000000e+00, /* 0x3FF00000, 0x00000000 */ -ln2 = 6.93147180559945286227e-01, /* 0x3FE62E42, 0xFEFA39EF */ -huge= 1.00000000000000000000e+300; +ln2 = 6.93147180559945286227e-01; /* 0x3FE62E42, 0xFEFA39EF */ #ifdef __STDC__ double fdlibm_asinh(double x) diff --git a/src/lisp/s_atan.c b/src/lisp/s_atan.c index fa376499df428617c07e1b5c696904a9f63c93de..9055d0504b09c5b8b3dfde85177f825623d337cc 100644 --- a/src/lisp/s_atan.c +++ b/src/lisp/s_atan.c @@ -79,8 +79,7 @@ static double aT[] = { #else static double #endif -one = 1.0, -huge = 1.0e300; +one = 1.0; #ifdef __STDC__ double fdlibm_atan(double x) diff --git a/src/lisp/s_log1p.c b/src/lisp/s_log1p.c index 41173a463727bd19c094c9d7b077c0dd21c1369a..7dcc17cb0c89db909343e161225e90eeaf193402 100644 --- a/src/lisp/s_log1p.c +++ b/src/lisp/s_log1p.c @@ -85,7 +85,6 @@ static double #endif ln2_hi = 6.93147180369123816490e-01, /* 3fe62e42 fee00000 */ ln2_lo = 1.90821492927058770002e-10, /* 3dea39ef 35793c76 */ -two54 = 1.80143985094819840000e+16, /* 43500000 00000000 */ Lp1 = 6.666666666666735130e-01, /* 3FE55555 55555593 */ Lp2 = 3.999999999940941908e-01, /* 3FD99999 9997FA04 */ Lp3 = 2.857142874366239149e-01, /* 3FD24924 94229359 */ diff --git a/src/lisp/s_scalbn.c b/src/lisp/s_scalbn.c index 1993bbb3fcfe9d18bbe92a31daffe708de9543c3..1e729f07c45690c22880070f1bdb780cc2a88bca 100644 --- a/src/lisp/s_scalbn.c +++ b/src/lisp/s_scalbn.c @@ -26,9 +26,7 @@ static const double static double #endif two54 = 1.80143985094819840000e+16, /* 0x43500000, 0x00000000 */ -twom54 = 5.55111512312578270212e-17, /* 0x3C900000, 0x00000000 */ -huge = 1.0e+300, -tiny = 1.0e-300; +twom54 = 5.55111512312578270212e-17; /* 0x3C900000, 0x00000000 */ #ifdef __STDC__ double fdlibm_scalbn (double x, int n)