diff --git a/newlib/libm/common/hypotl.c b/newlib/libm/common/hypotl.c index a0dcdc3c1..fb51adee4 100644 --- a/newlib/libm/common/hypotl.c +++ b/newlib/libm/common/hypotl.c @@ -52,12 +52,6 @@ hypotl (long double x, long double y) if ((! finitel (z)) && finitel (x) && finitel (y)) { /* hypot (finite, finite) overflow. */ -#ifndef HUGE_VAL -#define HUGE_VAL inf - double inf = 0.0; - - SET_HIGH_WORD (inf, 0x7ff00000); /* Set inf to infinite. */ -#endif errno = ERANGE; return (long double) HUGE_VAL; } diff --git a/newlib/libm/math/k_standard.c b/newlib/libm/math/k_standard.c index 91fd6c33f..906412ba7 100644 --- a/newlib/libm/math/k_standard.c +++ b/newlib/libm/math/k_standard.c @@ -86,12 +86,6 @@ static double zero = 0.0; /* used as const */ #endif { double retval = 0.0; -#ifndef HUGE_VAL /* this is the only routine that uses HUGE_VAL */ -#define HUGE_VAL inf - double inf = 0.0; - - SET_HIGH_WORD(inf,0x7ff00000); /* set inf to infinite */ -#endif #ifdef _USE_WRITE /* (void) fflush(_stdout_r(p)); */ diff --git a/newlib/libm/math/w_cosh.c b/newlib/libm/math/w_cosh.c index a26442178..5021e28a1 100644 --- a/newlib/libm/math/w_cosh.c +++ b/newlib/libm/math/w_cosh.c @@ -74,12 +74,6 @@ QUICKREF if(_LIB_VERSION == _IEEE_ || isnan(x)) return z; if(fabs(x)>7.10475860073943863426e+02) { /* cosh(finite) overflow */ -#ifndef HUGE_VAL -#define HUGE_VAL inf - double inf = 0.0; - - SET_HIGH_WORD(inf,0x7ff00000); /* set inf to infinite */ -#endif errno = ERANGE; return HUGE_VAL; } else diff --git a/newlib/libm/math/w_exp.c b/newlib/libm/math/w_exp.c index 3da6d7702..66c3f5c74 100644 --- a/newlib/libm/math/w_exp.c +++ b/newlib/libm/math/w_exp.c @@ -79,12 +79,6 @@ u_threshold= -7.45133219101941108420e+02; /* 0xc0874910, 0xD52D3051 */ if(finite(x)) { if(x>o_threshold) { /* exp(finite) overflow */ -#ifndef HUGE_VAL -#define HUGE_VAL inf - double inf = 0.0; - - SET_HIGH_WORD(inf,0x7ff00000); /* set inf to infinite */ -#endif errno = ERANGE; return HUGE_VAL; } else if(x global for y = __ieee754_gamma_r(x,&(_REENT_SIGNGAM(_REENT))); if(_LIB_VERSION == _IEEE_) return y; if(!finite(y)&&finite(x)) { -#ifndef HUGE_VAL -#define HUGE_VAL inf - double inf = 0.0; - - SET_HIGH_WORD(inf,0x7ff00000); /* set inf to infinite */ -#endif if(floor(x)==x&&x<=0.0) { /* gamma(-integer) or gamma(0) */ errno = EDOM; diff --git a/newlib/libm/math/w_hypot.c b/newlib/libm/math/w_hypot.c index 441fc20cb..48b47881e 100644 --- a/newlib/libm/math/w_hypot.c +++ b/newlib/libm/math/w_hypot.c @@ -68,12 +68,6 @@ PORTABILITY if(_LIB_VERSION == _IEEE_) return z; if((!finite(z))&&finite(x)&&finite(y)) { /* hypot(finite,finite) overflow */ -#ifndef HUGE_VAL -#define HUGE_VAL inf - double inf = 0.0; - - SET_HIGH_WORD(inf,0x7ff00000); /* set inf to infinite */ -#endif errno = ERANGE; return HUGE_VAL; } else diff --git a/newlib/libm/math/w_j0.c b/newlib/libm/math/w_j0.c index 59d17e8b8..b537ef406 100644 --- a/newlib/libm/math/w_j0.c +++ b/newlib/libm/math/w_j0.c @@ -129,12 +129,6 @@ None of the Bessel functions are in ANSI C. z = __ieee754_y0(x); if(_LIB_VERSION == _IEEE_ || isnan(x) ) return z; if(x <= 0.0){ -#ifndef HUGE_VAL -#define HUGE_VAL inf - double inf = 0.0; - - SET_HIGH_WORD(inf,0x7ff00000); /* set inf to infinite */ -#endif /* y0(0) = -inf or y0(x<0) = NaN */ errno = EDOM; return -HUGE_VAL; diff --git a/newlib/libm/math/w_j1.c b/newlib/libm/math/w_j1.c index 127324aad..6f25fea27 100644 --- a/newlib/libm/math/w_j1.c +++ b/newlib/libm/math/w_j1.c @@ -56,12 +56,6 @@ z = __ieee754_y1(x); if(_LIB_VERSION == _IEEE_ || isnan(x) ) return z; if(x <= 0.0){ -#ifndef HUGE_VAL -#define HUGE_VAL inf - double inf = 0.0; - - SET_HIGH_WORD(inf,0x7ff00000); /* set inf to infinite */ -#endif /* y1(0) = -inf or y1(x<0) = NaN */ errno = EDOM; return -HUGE_VAL; diff --git a/newlib/libm/math/w_jn.c b/newlib/libm/math/w_jn.c index 0482fa95a..28a9abc07 100644 --- a/newlib/libm/math/w_jn.c +++ b/newlib/libm/math/w_jn.c @@ -79,12 +79,6 @@ if(_LIB_VERSION == _IEEE_ || isnan(x) ) return z; if(x <= 0.0){ /* yn(n,0) = -inf or yn(x<0) = NaN */ -#ifndef HUGE_VAL -#define HUGE_VAL inf - double inf = 0.0; - - SET_HIGH_WORD(inf,0x7ff00000); /* set inf to infinite */ -#endif errno = EDOM; return -HUGE_VAL; } diff --git a/newlib/libm/math/w_lgamma.c b/newlib/libm/math/w_lgamma.c index f848f1c95..25d12c9c7 100644 --- a/newlib/libm/math/w_lgamma.c +++ b/newlib/libm/math/w_lgamma.c @@ -38,12 +38,6 @@ y = __ieee754_lgamma_r(x,&(_REENT_SIGNGAM(_REENT))); if(_LIB_VERSION == _IEEE_) return y; if(!finite(y)&&finite(x)) { -#ifndef HUGE_VAL -#define HUGE_VAL inf - double inf = 0.0; - - SET_HIGH_WORD(inf,0x7ff00000); /* set inf to infinite */ -#endif if(floor(x)==x&&x<=0.0) /* lgamma(-integer) */ errno = EDOM; diff --git a/newlib/libm/math/w_log.c b/newlib/libm/math/w_log.c index 37afcac3c..2a6c980e0 100644 --- a/newlib/libm/math/w_log.c +++ b/newlib/libm/math/w_log.c @@ -63,12 +63,6 @@ PORTABILITY double z; z = __ieee754_log(x); if(_LIB_VERSION == _IEEE_ || isnan(x) || x > 0.0) return z; -#ifndef HUGE_VAL -#define HUGE_VAL inf - double inf = 0.0; - - SET_HIGH_WORD(inf,0x7ff00000); /* set inf to infinite */ -#endif if(x==0.0) { /* log(0) */ errno = ERANGE; diff --git a/newlib/libm/math/w_log10.c b/newlib/libm/math/w_log10.c index 69ef5f92c..a9112f86f 100644 --- a/newlib/libm/math/w_log10.c +++ b/newlib/libm/math/w_log10.c @@ -64,12 +64,6 @@ PORTABILITY z = __ieee754_log10(x); if(_LIB_VERSION == _IEEE_ || isnan(x)) return z; if(x<=0.0) { -#ifndef HUGE_VAL -#define HUGE_VAL inf - double inf = 0.0; - - SET_HIGH_WORD(inf,0x7ff00000); /* set inf to infinite */ -#endif if(x==0.0) { /* log10(0) */ errno = ERANGE; diff --git a/newlib/libm/math/w_pow.c b/newlib/libm/math/w_pow.c index e9ac37051..6e953360a 100644 --- a/newlib/libm/math/w_pow.c +++ b/newlib/libm/math/w_pow.c @@ -66,12 +66,6 @@ PORTABILITY return __ieee754_pow(x,y); #else double z; -#ifndef HUGE_VAL -#define HUGE_VAL inf - double inf = 0.0; - - SET_HIGH_WORD(inf,0x7ff00000); /* set inf to infinite */ -#endif z=__ieee754_pow(x,y); if(_LIB_VERSION == _IEEE_|| isnan(y)) return z; if(isnan(x)) { diff --git a/newlib/libm/math/w_scalb.c b/newlib/libm/math/w_scalb.c index 77fb2af53..14f54a7e8 100644 --- a/newlib/libm/math/w_scalb.c +++ b/newlib/libm/math/w_scalb.c @@ -41,12 +41,6 @@ return __ieee754_scalb(x,fn); #else double z; -#ifndef HUGE_VAL -#define HUGE_VAL inf - double inf = 0.0; - - SET_HIGH_WORD(inf,0x7ff00000); /* set inf to infinite */ -#endif z = __ieee754_scalb(x,fn); if(_LIB_VERSION == _IEEE_) return z; if(!(finite(z)||isnan(z))&&finite(x)) { diff --git a/newlib/libm/math/w_sinh.c b/newlib/libm/math/w_sinh.c index 0e97e5455..9d7833a2c 100644 --- a/newlib/libm/math/w_sinh.c +++ b/newlib/libm/math/w_sinh.c @@ -79,12 +79,6 @@ QUICKREF if(_LIB_VERSION == _IEEE_) return z; if(!finite(z)&&finite(x)) { /* sinh(finite) overflow */ -#ifndef HUGE_VAL -#define HUGE_VAL inf - double inf = 0.0; - - SET_HIGH_WORD(inf,0x7ff00000); /* set inf to infinite */ -#endif errno = ERANGE; return ((x>0.0) ? HUGE_VAL : -HUGE_VAL); } else diff --git a/newlib/libm/math/wf_cosh.c b/newlib/libm/math/wf_cosh.c index 1b507b09b..e0fd1c492 100644 --- a/newlib/libm/math/wf_cosh.c +++ b/newlib/libm/math/wf_cosh.c @@ -35,12 +35,6 @@ if(_LIB_VERSION == _IEEE_ || isnan(x)) return z; if(fabsf(x)>8.9415985107e+01f) { /* coshf(finite) overflow */ -#ifndef HUGE_VAL -#define HUGE_VAL inf - double inf = 0.0; - - SET_HIGH_WORD(inf,0x7ff00000); /* set inf to infinite */ -#endif errno = ERANGE; return (float)HUGE_VAL; } else diff --git a/newlib/libm/math/wf_exp.c b/newlib/libm/math/wf_exp.c index af1800eeb..73177bc25 100644 --- a/newlib/libm/math/wf_exp.c +++ b/newlib/libm/math/wf_exp.c @@ -45,12 +45,6 @@ u_threshold= -1.0397208405e+02; /* 0xc2cff1b5 */ if(finitef(x)) { if(x>o_threshold) { /* expf(finite) overflow */ -#ifndef HUGE_VAL -#define HUGE_VAL inf - double inf = 0.0; - - SET_HIGH_WORD(inf,0x7ff00000); /* set inf to infinite */ -#endif errno = ERANGE; return HUGE_VAL; } else if(x 0.0f) return z; -#ifndef HUGE_VAL -#define HUGE_VAL inf - double inf = 0.0; - - SET_HIGH_WORD(inf,0x7ff00000); /* set inf to infinite */ -#endif if(x==0.0f) { /* logf(0) */ errno = ERANGE; diff --git a/newlib/libm/math/wf_log10.c b/newlib/libm/math/wf_log10.c index 3560c5c0e..a61120d24 100644 --- a/newlib/libm/math/wf_log10.c +++ b/newlib/libm/math/wf_log10.c @@ -34,12 +34,6 @@ z = __ieee754_log10f(x); if(_LIB_VERSION == _IEEE_ || isnan(x)) return z; if(x<=0.0f) { -#ifndef HUGE_VAL -#define HUGE_VAL inf - double inf = 0.0; - - SET_HIGH_WORD(inf,0x7ff00000); /* set inf to infinite */ -#endif if(x==0.0f) { /* log10f(0) */ errno = ERANGE; diff --git a/newlib/libm/math/wf_scalb.c b/newlib/libm/math/wf_scalb.c index acdf8a80d..b57e2e684 100644 --- a/newlib/libm/math/wf_scalb.c +++ b/newlib/libm/math/wf_scalb.c @@ -41,12 +41,6 @@ return __ieee754_scalbf(x,fn); #else float z; -#ifndef HUGE_VAL -#define HUGE_VAL inf - double inf = 0.0; - - SET_HIGH_WORD(inf,0x7ff00000); /* set inf to infinite */ -#endif z = __ieee754_scalbf(x,fn); if(_LIB_VERSION == _IEEE_) return z; if(!(finitef(z)||isnan(z))&&finitef(x)) { diff --git a/newlib/libm/math/wf_sinh.c b/newlib/libm/math/wf_sinh.c index f7d5a9665..9149d19f3 100644 --- a/newlib/libm/math/wf_sinh.c +++ b/newlib/libm/math/wf_sinh.c @@ -35,12 +35,6 @@ if(_LIB_VERSION == _IEEE_) return z; if(!finitef(z)&&finitef(x)) { /* sinhf(finite) overflow */ -#ifndef HUGE_VAL -#define HUGE_VAL inf - double inf = 0.0; - - SET_HIGH_WORD(inf,0x7ff00000); /* set inf to infinite */ -#endif errno = ERANGE; return ( (x>0.0f) ? HUGE_VAL : -HUGE_VAL); } else diff --git a/newlib/libm/math/wr_gamma.c b/newlib/libm/math/wr_gamma.c index f07908c8a..9dda12b5a 100644 --- a/newlib/libm/math/wr_gamma.c +++ b/newlib/libm/math/wr_gamma.c @@ -34,12 +34,6 @@ y = __ieee754_gamma_r(x,signgamp); if(_LIB_VERSION == _IEEE_) return y; if(!finite(y)&&finite(x)) { -#ifndef HUGE_VAL -#define HUGE_VAL inf - double inf = 0.0; - - SET_HIGH_WORD(inf,0x7ff00000); /* set inf to infinite */ -#endif if(floor(x)==x&&x<=0.0) /* gamma(-integer) or gamma(0) */ errno = EDOM; diff --git a/newlib/libm/math/wr_lgamma.c b/newlib/libm/math/wr_lgamma.c index 8a32a59b8..d961db58d 100644 --- a/newlib/libm/math/wr_lgamma.c +++ b/newlib/libm/math/wr_lgamma.c @@ -34,12 +34,6 @@ y = __ieee754_lgamma_r(x,signgamp); if(_LIB_VERSION == _IEEE_) return y; if(!finite(y)&&finite(x)) { -#ifndef HUGE_VAL -#define HUGE_VAL inf - double inf = 0.0; - - SET_HIGH_WORD(inf,0x7ff00000); /* set inf to infinite */ -#endif if(floor(x)==x&&x<=0.0) /* lgamma(-integer) */ errno = EDOM; diff --git a/newlib/libm/math/wrf_gamma.c b/newlib/libm/math/wrf_gamma.c index 625ea4772..b03919bfd 100644 --- a/newlib/libm/math/wrf_gamma.c +++ b/newlib/libm/math/wrf_gamma.c @@ -34,12 +34,6 @@ y = __ieee754_gammaf_r(x,signgamp); if(_LIB_VERSION == _IEEE_) return y; if(!finitef(y)&&finitef(x)) { -#ifndef HUGE_VAL -#define HUGE_VAL inf - double inf = 0.0; - - SET_HIGH_WORD(inf,0x7ff00000); /* set inf to infinite */ -#endif if(floorf(x)==x&&x<=0.0f) { /* gammaf(-integer) or gamma(0) */ errno = EDOM; diff --git a/newlib/libm/math/wrf_lgamma.c b/newlib/libm/math/wrf_lgamma.c index e91bffb38..f12c0dff1 100644 --- a/newlib/libm/math/wrf_lgamma.c +++ b/newlib/libm/math/wrf_lgamma.c @@ -34,12 +34,6 @@ y = __ieee754_lgammaf_r(x,signgamp); if(_LIB_VERSION == _IEEE_) return y; if(!finitef(y)&&finitef(x)) { -#ifndef HUGE_VAL -#define HUGE_VAL inf - double inf = 0.0; - - SET_HIGH_WORD(inf,0x7ff00000); /* set inf to infinite */ -#endif if(floorf(x)==x&&x<=0.0f) { /* lgammaf(-integer) or lgamma(0) */ errno = EDOM;