diff options
| author | Richard Sandiford <rdsandiford@googlemail.com> | 2001-04-04 13:33:01 +0000 |
|---|---|---|
| committer | Richard Sandiford <rdsandiford@googlemail.com> | 2001-04-04 13:33:01 +0000 |
| commit | 16740220a22d09a1c63714d93f1efc5fbe3927f3 (patch) | |
| tree | 7b24242b9b20a0ee328c94acd2c95e1a8778c944 /newlib/libm/math/ef_hypot.c | |
| parent | 51fc3813e9a9ef8079b2fbde1b12647dd3f4ac93 (diff) | |
| download | cygnal-16740220a22d09a1c63714d93f1efc5fbe3927f3.tar.gz cygnal-16740220a22d09a1c63714d93f1efc5fbe3927f3.tar.bz2 cygnal-16740220a22d09a1c63714d93f1efc5fbe3927f3.zip | |
* 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.
Diffstat (limited to 'newlib/libm/math/ef_hypot.c')
| -rw-r--r-- | newlib/libm/math/ef_hypot.c | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/newlib/libm/math/ef_hypot.c b/newlib/libm/math/ef_hypot.c index a87fa489e..9f6d40c9c 100644 --- a/newlib/libm/math/ef_hypot.c +++ b/newlib/libm/math/ef_hypot.c @@ -35,10 +35,10 @@ if((ha-hb)>0xf000000L) {return a+b;} /* x/y > 2**30 */ k=0; if(ha > 0x58800000L) { /* a>2**50 */ - if(ha >= 0x7f800000L) { /* Inf or NaN */ + if(!FLT_UWORD_IS_FINITE(ha)) { /* Inf or NaN */ w = a+b; /* for sNaN */ - if(ha == 0x7f800000L) w = a; - if(hb == 0x7f800000L) w = b; + if(FLT_UWORD_IS_INFINITE(ha)) w = a; + if(FLT_UWORD_IS_INFINITE(hb)) w = b; return w; } /* scale a and b by 2**-60 */ @@ -47,8 +47,9 @@ SET_FLOAT_WORD(b,hb); } if(hb < 0x26800000L) { /* b < 2**-50 */ - if(hb <= 0x007fffffL) { /* subnormal b or 0 */ - if(hb==0) return a; + if(FLT_UWORD_IS_ZERO(hb)) { + return a; + } else if(FLT_UWORD_IS_SUBNORMAL(hb)) { SET_FLOAT_WORD(t1,0x3f000000L); /* t1=2^126 */ b *= t1; a *= t1; |