From 5ed66f10ecae232e1af321913b22fc3ecf0608c7 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Fri, 15 Nov 2019 18:40:45 -0800 Subject: [PATCH] Port new float-scaling code to Solaris * src/floatfns.c (double_integer_scale): Simplify, so that the function works when (FP_ILOGBNAN == INT_MAX && FP_ILOGB0 == INT_MIN), as on Solaris. --- src/floatfns.c | 5 +---- 1 file changed, 1 insertion(+), 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) return (DBL_MIN_EXP - 1 <= exponent && exponent < INT_MAX ? DBL_MANT_DIG - 1 - exponent : (DBL_MANT_DIG - DBL_MIN_EXP - + ((exponent == FP_ILOGBNAN - && (FP_ILOGBNAN != FP_ILOGB0 || isnan (d))) - ? 2 - : exponent == INT_MAX))); + + (isnan (d) ? 2 : exponent == INT_MAX))); } /* Convert the Lisp number N to an integer and return a pointer to the -- 2.39.5