aboutsummaryrefslogtreecommitdiffstats
path: root/src/floatfns.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/floatfns.c')
-rw-r--r--src/floatfns.c5
1 files changed, 1 insertions, 4 deletions
diff --git a/src/floatfns.c b/src/floatfns.c
index 30526a16443..73d84301e4f 100644
--- a/src/floatfns.c
+++ b/src/floatfns.c
@@ -350,10 +350,7 @@ double_integer_scale (double d)
350 return (DBL_MIN_EXP - 1 <= exponent && exponent < INT_MAX 350 return (DBL_MIN_EXP - 1 <= exponent && exponent < INT_MAX
351 ? DBL_MANT_DIG - 1 - exponent 351 ? DBL_MANT_DIG - 1 - exponent
352 : (DBL_MANT_DIG - DBL_MIN_EXP 352 : (DBL_MANT_DIG - DBL_MIN_EXP
353 + ((exponent == FP_ILOGBNAN 353 + (isnan (d) ? 2 : exponent == INT_MAX)));
354 && (FP_ILOGBNAN != FP_ILOGB0 || isnan (d)))
355 ? 2
356 : exponent == INT_MAX)));
357} 354}
358 355
359/* Convert the Lisp number N to an integer and return a pointer to the 356/* Convert the Lisp number N to an integer and return a pointer to the