version 1.7, 2013/04/28 14:46:16 |
version 1.8, 2013/05/19 20:50:02 |
Line 82 scalblnl(long double x, long n) |
|
Line 82 scalblnl(long double x, long n) |
|
/* Protect against integer overflow in calculation of new exponent */ |
/* Protect against integer overflow in calculation of new exponent */ |
if (n > LDBL_MAX_EXP - LDBL_MIN_EXP + LDBL_MANT_DIG) |
if (n > LDBL_MAX_EXP - LDBL_MIN_EXP + LDBL_MANT_DIG) |
goto overflow; |
goto overflow; |
if (n < LDBL_MAX_EXP - LDBL_MIN_EXP + LDBL_MANT_DIG) |
if (n < LDBL_MIN_EXP - LDBL_MAX_EXP - LDBL_MANT_DIG) |
goto underflow; |
goto underflow; |
|
|
/* Scale denormalized numbers slightly, so that they are normal */ |
/* Scale denormalized numbers slightly, so that they are normal */ |