From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 86542 invoked by alias); 23 Jan 2019 09:53:48 -0000 Mailing-List: contact newlib-cvs-help@sourceware.org; run by ezmlm Precedence: bulk List-Id: List-Subscribe: List-Archive: List-Post: List-Help: , Sender: newlib-cvs-owner@sourceware.org Received: (qmail 86449 invoked by uid 9078); 23 Jan 2019 09:53:48 -0000 Date: Wed, 23 Jan 2019 09:53:00 -0000 Message-ID: <20190123095348.86448.qmail@sourceware.org> Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit From: Corinna Vinschen To: newlib-cvs@sourceware.org Subject: [newlib-cygwin] Remove HUGE_VAL definition from libm math functions X-Act-Checkin: newlib-cygwin X-Git-Author: Jozef Lawrynowicz X-Git-Refname: refs/heads/master X-Git-Oldrev: b14a879d85b171960df789ac8ba2332004f838e0 X-Git-Newrev: 7db203304ef12ac1b351b4890b0a4d5f61ad2c0c X-SW-Source: 2019-q1/txt/msg00012.txt.bz2 https://sourceware.org/git/gitweb.cgi?p=newlib-cygwin.git;h=7db203304ef12ac1b351b4890b0a4d5f61ad2c0c commit 7db203304ef12ac1b351b4890b0a4d5f61ad2c0c Author: Jozef Lawrynowicz Date: Tue Jan 22 10:38:37 2019 +0000 Remove HUGE_VAL definition from libm math functions This patch removes the definitions of HUGE_VAL from some of the float math functions. HUGE_VAL is defined in newlib/libc/include/math.h, so it is not necessary to have a further definition in the math functions. Diff: --- newlib/libm/common/hypotl.c | 6 ------ newlib/libm/math/k_standard.c | 6 ------ newlib/libm/math/w_cosh.c | 6 ------ newlib/libm/math/w_exp.c | 6 ------ newlib/libm/math/w_gamma.c | 6 ------ newlib/libm/math/w_hypot.c | 6 ------ newlib/libm/math/w_j0.c | 6 ------ newlib/libm/math/w_j1.c | 6 ------ newlib/libm/math/w_jn.c | 6 ------ newlib/libm/math/w_lgamma.c | 6 ------ newlib/libm/math/w_log.c | 6 ------ newlib/libm/math/w_log10.c | 6 ------ newlib/libm/math/w_pow.c | 6 ------ newlib/libm/math/w_scalb.c | 6 ------ newlib/libm/math/w_sinh.c | 6 ------ newlib/libm/math/wf_cosh.c | 6 ------ newlib/libm/math/wf_exp.c | 6 ------ newlib/libm/math/wf_gamma.c | 6 ------ newlib/libm/math/wf_hypot.c | 6 ------ newlib/libm/math/wf_j0.c | 6 ------ newlib/libm/math/wf_j1.c | 6 ------ newlib/libm/math/wf_jn.c | 6 ------ newlib/libm/math/wf_lgamma.c | 6 ------ newlib/libm/math/wf_log.c | 6 ------ newlib/libm/math/wf_log10.c | 6 ------ newlib/libm/math/wf_scalb.c | 6 ------ newlib/libm/math/wf_sinh.c | 6 ------ newlib/libm/math/wr_gamma.c | 6 ------ newlib/libm/math/wr_lgamma.c | 6 ------ newlib/libm/math/wrf_gamma.c | 6 ------ newlib/libm/math/wrf_lgamma.c | 6 ------ 31 files changed, 186 deletions(-) diff --git a/newlib/libm/common/hypotl.c b/newlib/libm/common/hypotl.c index a0dcdc3..fb51ade 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 91fd6c3..906412b 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 a264421..5021e28 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 3da6d77..66c3f5c 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 441fc20..48b4788 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 59d17e8..b537ef4 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 127324a..6f25fea 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 0482fa9..28a9abc 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 f848f1c..25d12c9 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 37afcac..2a6c980 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 69ef5f9..a9112f8 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 e9ac370..6e95336 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 77fb2af..14f54a7 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 0e97e54..9d7833a 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 1b507b0..e0fd1c4 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 af1800e..73177bc 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 3560c5c..a61120d 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 acdf8a8..b57e2e6 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 f7d5a96..9149d19 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 f07908c..9dda12b 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 8a32a59..d961db5 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 625ea47..b03919b 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 e91bffb..f12c0df 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;