Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
cmucl
cmucl
Commits
80d7ca4e
Commit
80d7ca4e
authored
Dec 28, 2015
by
Raymond Toy
Browse files
Fix compiler warnings by removing unused vars.
parent
90b9651b
Changes
8
Hide whitespace changes
Inline
Side-by-side
src/lisp/e_asin.c
View file @
80d7ca4e
...
...
@@ -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 */
...
...
src/lisp/e_cosh.c
View file @
80d7ca4e
...
...
@@ -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
...
...
src/lisp/e_exp.c
View file @
80d7ca4e
...
...
@@ -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 */
...
...
src/lisp/e_sinh.c
View file @
80d7ca4e
...
...
@@ -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
...
...
src/lisp/s_asinh.c
View file @
80d7ca4e
...
...
@@ -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
)
...
...
src/lisp/s_atan.c
View file @
80d7ca4e
...
...
@@ -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
)
...
...
src/lisp/s_log1p.c
View file @
80d7ca4e
...
...
@@ -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 */
...
...
src/lisp/s_scalbn.c
View file @
80d7ca4e
...
...
@@ -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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment