From: Paul Eggert <eggert@cs.ucla.edu>
Date: Sat, 16 Nov 2019 02:40:45 +0000 (-0800)
Subject: Port new float-scaling code to Solaris
X-Git-Tag: emacs-27.0.90~603
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5ed66f10ecae232e1af321913b22fc3ecf0608c7;p=emacs.git

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.
---

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