From: Richard Kenner <kenner@gcc.gnu.org>
Date: Thu, 12 Jan 1995 12:17:56 +0000 (-0500)
Subject: (toe64):  Use Intel bit pattern for little-endian XFmode Inf.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=82e974d406df50ed795223e0dc5308c0c9ed7744;p=gcc.git

(toe64):  Use Intel bit pattern for little-endian XFmode Inf.

(e64toe): Likewise; also check the exponent field properly.

From-SVN: r8734
---

diff --git a/gcc/real.c b/gcc/real.c
index 484d84cd552..31b60cf7bd7 100644
--- a/gcc/real.c
+++ b/gcc/real.c
@@ -1,6 +1,6 @@
 /* real.c - implementation of REAL_ARITHMETIC, REAL_VALUE_ATOF,
    and support for XFmode IEEE extended real floating point arithmetic.
-   Copyright (C) 1993, 1994 Free Software Foundation, Inc.
+   Copyright (C) 1993, 1994, 1995 Free Software Foundation, Inc.
    Contributed by Stephen L. Moshier (moshier@world.std.com).
 
 This file is part of GNU CC.
@@ -2957,9 +2957,9 @@ e64toe (pe, y)
 	*p-- = *e++;
     }
 #endif
-  p = yy;
-  q = y;
 #ifdef INFINITY
+  /* Point to the exponent field and check max exponent cases.  */
+  p = &yy[NE - 1];
   if (*p == 0x7fff)
     {
 #ifdef NANS
@@ -2967,7 +2967,9 @@ e64toe (pe, y)
 	{
 	  for (i = 0; i < 4; i++)
 	    {
-	      if (pe[i] != 0)
+	      if ((i != 3 && pe[i] != 0)
+		  /* Anything but 0x8000 here, including 0, is a NaN.  */
+		  || (i == 3 && pe[i] != 0x8000))
 		{
 		  enan (y, (*p & 0x8000) != 0);
 		  return;
@@ -2993,6 +2995,8 @@ e64toe (pe, y)
       return;
     }
 #endif  /* INFINITY */
+  p = yy;
+  q = y;
   for (i = 0; i < NE; i++)
     *q++ = *p++;
 }
@@ -3385,6 +3389,17 @@ toe64 (a, b)
     }
   else
     {
+#ifdef INFINITY
+      if (eiisinf (a))
+	{
+	  /* Intel long double infinity significand.  */
+	  *q-- = 0x8000;
+	  *q-- = 0;
+	  *q-- = 0;
+	  *q = 0;
+	  return;
+	}
+#endif
       for (i = 0; i < 4; i++)
 	*q-- = *p++;
     }