From 80d7ca4e8c9aae3154c38fe1746ee0b456fde8e6 Mon Sep 17 00:00:00 2001
From: Raymond Toy <toy.raymond@gmail.com>
Date: Mon, 28 Dec 2015 10:26:27 -0800
Subject: [PATCH] Fix compiler warnings by removing unused vars.

---
 src/lisp/e_asin.c   | 1 -
 src/lisp/e_cosh.c   | 2 +-
 src/lisp/e_exp.c    | 1 -
 src/lisp/e_sinh.c   | 2 +-
 src/lisp/s_asinh.c  | 3 +--
 src/lisp/s_atan.c   | 3 +--
 src/lisp/s_log1p.c  | 1 -
 src/lisp/s_scalbn.c | 4 +---
 8 files changed, 5 insertions(+), 12 deletions(-)

diff --git a/src/lisp/e_asin.c b/src/lisp/e_asin.c
index 183ef6d30..34d2096ac 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 dc13feeca..ebd64dc62 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 3a9ce0fdf..1ec1b642c 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 80b7a62a9..781c99d7b 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 5c33cbaf6..b96a5c00e 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 fa376499d..9055d0504 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 41173a463..7dcc17cb0 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 1993bbb3f..1e729f07c 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)
-- 
GitLab