master 5ed66f1: Port new float-scaling code to Solaris

[Paul Eggert]

branch: master
commit 5ed66f10ecae232e1af321913b22fc3ecf0608c7
Author: Paul Eggert <address@hidden>
Commit: Paul Eggert <address@hidden>

    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 30526a1..73d8430 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