diff options
author | Eric Andersen <andersen@codepoet.org> | 2001-11-23 08:49:34 +0000 |
---|---|---|
committer | Eric Andersen <andersen@codepoet.org> | 2001-11-23 08:49:34 +0000 |
commit | 648d5f450ee2f904916082d9eac2f230ecece314 (patch) | |
tree | 23f356e9a49d94933b1d84ed043ad5c29c222bf5 /libm/s_scalbn.c | |
parent | 7ce331c01ce6eb7b3f5c715a38a24359da9c6ee2 (diff) |
Default to building C89 math stuff only. Cleanup some warnings.
-Erik
Diffstat (limited to 'libm/s_scalbn.c')
-rw-r--r-- | libm/s_scalbn.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libm/s_scalbn.c b/libm/s_scalbn.c index 6534fd4cf..b10bd7028 100644 --- a/libm/s_scalbn.c +++ b/libm/s_scalbn.c @@ -56,10 +56,11 @@ tiny = 1.0e-300; if (k > 0x7fe) return huge*copysign(huge,x); /* overflow */ if (k > 0) /* normal result */ {SET_HIGH_WORD(x,(hx&0x800fffff)|(k<<20)); return x;} - if (k <= -54) + if (k <= -54) { if (n > 50000) /* in case integer overflow in n+k */ return huge*copysign(huge,x); /*overflow*/ else return tiny*copysign(tiny,x); /*underflow*/ + } k += 54; /* subnormal result */ SET_HIGH_WORD(x,(hx&0x800fffff)|(k<<20)); return x*twom54; |