From 16740220a22d09a1c63714d93f1efc5fbe3927f3 Mon Sep 17 00:00:00 2001 From: Richard Sandiford Date: Wed, 4 Apr 2001 13:33:01 +0000 Subject: * libc/include/machine/ieeefp.h: Comment about new configuration macros _FLT_LARGEST_EXPONENT_IS_NORMAL and _FLT_NO_DENORMALS. * libm/common/fdlib.h: Define new macros for testing floats. * libm/common/sf_*: Use them. * libm/math/ef_*: Likewise. * libm/math/sf_*: Likewise. --- newlib/libm/math/ef_j0.c | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'newlib/libm/math/ef_j0.c') diff --git a/newlib/libm/math/ef_j0.c b/newlib/libm/math/ef_j0.c index e7ee6e748..866cfcf96 100644 --- a/newlib/libm/math/ef_j0.c +++ b/newlib/libm/math/ef_j0.c @@ -58,14 +58,14 @@ static float zero = 0.0; GET_FLOAT_WORD(hx,x); ix = hx&0x7fffffff; - if(ix>=0x7f800000) return one/(x*x); + if(!FLT_UWORD_IS_FINITE(ix)) return one/(x*x); x = fabsf(x); if(ix >= 0x40000000) { /* |x| >= 2.0 */ s = sinf(x); c = cosf(x); ss = s-c; cc = s+c; - if(ix<0x7f000000) { /* make sure x+x not overflow */ + if(ix<=FLT_UWORD_HALF_MAX) { /* make sure x+x not overflow */ z = -cosf(x+x); if ((s*c)=0x7f800000) return one/(x+x*x); - if(ix==0) return -one/zero; + if(!FLT_UWORD_IS_FINITE(ix)) return one/(x+x*x); + if(FLT_UWORD_IS_ZERO(ix)) return -one/zero; if(hx<0) return zero/zero; if(ix >= 0x40000000) { /* |x| >= 2.0 */ /* y0(x) = sqrt(2/(pi*x))*(p0(x)*sin(x0)+q0(x)*cos(x0)) @@ -151,7 +151,7 @@ v04 = 4.4111031494e-10; /* 0x2ff280c2 */ * j0(x) = 1/sqrt(pi) * (P(0,x)*cc - Q(0,x)*ss) / sqrt(x) * y0(x) = 1/sqrt(pi) * (P(0,x)*ss + Q(0,x)*cc) / sqrt(x) */ - if(ix<0x7f000000) { /* make sure x+x not overflow */ + if(ix<=FLT_UWORD_HALF_MAX) { /* make sure x+x not overflow */ z = -cosf(x+x); if ((s*c)