From 7f45de2dfc7bbfc68fd850f5ed55273f151a501d Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Mon, 2 Feb 1998 01:09:35 +0000
Subject: [PATCH] (float_to_string): Handle infinities and NaN specially.

---
 src/print.c | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/src/print.c b/src/print.c
index a9c83ea821d..e3fbc393fea 100644
--- a/src/print.c
+++ b/src/print.c
@@ -956,6 +956,26 @@ float_to_string (buf, data)
   unsigned char *cp;
   int width;
       
+  /* Check for plus infinity in a way that won't lose
+     if there is no plus infinity.  */
+  if (data == data / 2 && data > 1.0)
+    {
+      strcpy (buf, "1.0e+INF");
+      return;
+    }
+  /* Likewise for minus infinity.  */
+  if (data == data / 2 && data < -1.0)
+    {
+      strcpy (buf, "-1.0e+INF");
+      return;
+    }
+  /* Check for NaN in a way that won't fail if there are no NaNs.  */
+  if (! (data * 0.0 >= 0.0))
+    {
+      strcpy (buf, "0.0e+NaN");
+      return;
+    }
+
   if (NILP (Vfloat_output_format)
       || !STRINGP (Vfloat_output_format))
   lose:
-- 
2.39.5