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)