From: Richard Kenner <kenner@gcc.gnu.org>
Date: Sun, 14 Aug 1994 13:51:43 +0000 (-0400)
Subject: (print_node{,_brief}): Use REAL_VALUE_TO_DECIMAL to print REAL_CST
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=86b38416af1ff5483510c0e6179d583643e8bb16;p=gcc.git

(print_node{,_brief}): Use REAL_VALUE_TO_DECIMAL to print REAL_CST
ifdef REAL_ARITHMETIC.

From-SVN: r7916
---

diff --git a/gcc/print-tree.c b/gcc/print-tree.c
index 9b406fcb9a5..7419b53cf07 100644
--- a/gcc/print-tree.c
+++ b/gcc/print-tree.c
@@ -144,8 +144,22 @@ print_node_brief (file, prefix, node, indent)
     }
   if (TREE_CODE (node) == REAL_CST)
     {
-#ifndef REAL_IS_NOT_DOUBLE
-      fprintf (file, " %e", TREE_REAL_CST (node));
+      REAL_VALUE_TYPE d = TREE_REAL_CST (node);
+      if (TREE_OVERFLOW (node))
+	fprintf (file, " overflow");
+
+#if !defined(REAL_IS_NOT_DOUBLE) || defined(REAL_ARITHMETIC)
+      if (REAL_VALUE_ISINF (d))
+	fprintf (file, " Inf");
+      else if (REAL_VALUE_ISNAN (d))
+	fprintf (file, " Nan");
+      else
+	{
+	  char string[100];
+
+	  REAL_VALUE_TO_DECIMAL (d, "%e", string);
+	  fprintf (file, " %s", string);
+	}
 #else
       {
 	int i;
@@ -155,7 +169,7 @@ print_node_brief (file, prefix, node, indent)
 	  fprintf (file, "%02x", *p++);
 	fprintf (file, "");
       }
-#endif /* REAL_IS_NOT_DOUBLE */
+#endif
     }
 
   fprintf (file, ">");
@@ -605,17 +619,34 @@ print_node (file, prefix, node, indent)
 	  break;
 
 	case REAL_CST:
-#ifndef REAL_IS_NOT_DOUBLE
-	  fprintf (file, " %e", TREE_REAL_CST (node));
-#else
 	  {
-	    char *p = (char *) &TREE_REAL_CST (node);
-	    fprintf (file, " 0x");
-	    for (i = 0; i < sizeof TREE_REAL_CST (node); i++)
-	      fprintf (file, "%02x", *p++);
-	    fprintf (file, "");
+	    REAL_VALUE_TYPE d = TREE_REAL_CST (node);
+	    if (TREE_OVERFLOW (node))
+	      fprintf (file, " overflow");
+
+#if !defined(REAL_IS_NOT_DOUBLE) || defined(REAL_ARITHMETIC)
+	    if (REAL_VALUE_ISINF (d))
+	      fprintf (file, " Inf");
+	    else if (REAL_VALUE_ISNAN (d))
+	      fprintf (file, " Nan");
+	    else
+	      {
+		char string[100];
+
+		REAL_VALUE_TO_DECIMAL (d, "%e", string);
+		fprintf (file, " %s", string);
+	      }
+#else
+	    {
+	      int i;
+	      unsigned char *p = (unsigned char *) &TREE_REAL_CST (node);
+	      fprintf (file, " 0x");
+	      for (i = 0; i < sizeof TREE_REAL_CST (node); i++)
+		fprintf (file, "%02x", *p++);
+	      fprintf (file, "");
+	    }
+#endif
 	  }
-#endif /* REAL_IS_NOT_DOUBLE */
 	  break;
 
 	case COMPLEX_CST: