From: Paul Eggert <eggert@cs.ucla.edu>
Date: Mon, 7 Jan 2019 05:59:03 +0000 (-0800)
Subject: Minor INFINITY/NAN cleanup
X-Git-Tag: emacs-27.0.90~3862
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8acb88c5026cb11cbff466f53bef9d3e864879e7;p=emacs.git

Minor INFINITY/NAN cleanup

* src/lread.c (INFINITY): Use a more-portable way to specify
this macro on non-C99 platforms that lack it.
(NAN): Remove; unused.
---

diff --git a/src/lread.c b/src/lread.c
index 788e57b707f..02f7caadeda 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -46,10 +46,6 @@ along with GNU Emacs.  If not, see <https://www.gnu.org/licenses/>.  */
 
 #ifdef MSDOS
 #include "msdos.h"
-#if __DJGPP__ == 2 && __DJGPP_MINOR__ < 5
-# define INFINITY  __builtin_inf()
-# define NAN       __builtin_nan("")
-#endif
 #endif
 
 #ifdef HAVE_NS
@@ -74,6 +70,9 @@ along with GNU Emacs.  If not, see <https://www.gnu.org/licenses/>.  */
 
 #if IEEE_FLOATING_POINT
 # include <ieee754.h>
+# ifndef INFINITY
+#  define INFINITY ((union ieee754_double) {.ieee = {.exponent = -1}}.d)
+# endif
 #endif
 
 /* The objects or placeholders read with the #n=object form.