tidy const_double dumping

[Richard Henderson <rth at redhat dot com>]

I don't see the point of printing the XWINT fields.
It just clutters things up.


r~


        * real.c (real_to_decimal): Crop trailing zeros for DIGITS < 0.
        (real_to_hexadecimal): Likewise.
        * print-rtl.c (print_rtx): If we are linked with real.c, don't
        dump the XWINT fields of a floating point CONST_DOUBLE.

Index: real.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/real.c,v
retrieving revision 1.95
diff -c -p -d -u -r1.95 real.c
--- real.c	30 Sep 2002 06:04:16 -0000	1.95
+++ real.c	2 Oct 2002 02:33:11 -0000
@@ -1388,9 +1388,9 @@ real_to_integer2 (plow, phigh, r)
   *phigh = high;
 }
 
-/* Render R as a decimal floating point constant.  Emit DIGITS
-   significant digits in the result.  If DIGITS <= 0, choose the
-   maximum for the representation.  */
+/* Render R as a decimal floating point constant.  Emit DIGITS significant
+   digits in the result.  If DIGITS <= 0, choose the maximum for the
+   representation.  If DIGITS < 0, strip trailing zeros.  */
 
 #define M_LOG10_2	0.30102999566398119521
 
@@ -1405,6 +1405,7 @@ real_to_decimal (str, r_orig, digits)
   int dec_exp, max_digits, d, cmp_half;
   char *p, *first, *last;
   bool sign;
+  bool crop_trailing_zeros;
 
   r = *r_orig;
   switch (r.class)
@@ -1426,6 +1427,7 @@ real_to_decimal (str, r_orig, digits)
     }
 
   max_digits = SIGNIFICAND_BITS * M_LOG10_2;
+  crop_trailing_zeros = digits < 0;
   if (digits <= 0 || digits > max_digits)
     digits = max_digits;
 
@@ -1514,12 +1516,16 @@ real_to_decimal (str, r_orig, digits)
   first[0] = first[1];
   first[1] = '.';
 
+  if (crop_trailing_zeros)
+    while (last > first + 3 && last[-1] == '0')
+      last--;
+
   sprintf (last, "e%+d", dec_exp);
 }
 
 /* Render R as a hexadecimal floating point constant.  Emit DIGITS
    significant digits in the result.  If DIGITS <= 0, choose the maximum
-   for the representation.  */
+   for the representation.  If DIGITS < 0, strip trailing zeros.  */
 
 void
 real_to_hexadecimal (str, r, digits)
@@ -1528,7 +1534,8 @@ real_to_hexadecimal (str, r, digits)
      int digits;
 {
   int i, j, exp = r->exp;
-  char *p;
+  char *p, *first;
+  bool crop_trailing_zeros;
 
   switch (r->class)
     {
@@ -1548,6 +1555,7 @@ real_to_hexadecimal (str, r, digits)
       abort ();
     }
 
+  crop_trailing_zeros = digits < 0;
   if (digits <= 0)
     digits = SIGNIFICAND_BITS / 4;
 
@@ -1558,6 +1566,7 @@ real_to_hexadecimal (str, r, digits)
   *p++ = 'x';
   *p++ = '0';
   *p++ = '.';
+  first = p;
 
   for (i = SIGSZ - 1; i >= 0; --i)
     for (j = HOST_BITS_PER_LONG - 4; j >= 0; j -= 4)
@@ -1566,7 +1575,12 @@ real_to_hexadecimal (str, r, digits)
 	if (--digits == 0)
 	  goto out;
       }
+
  out:
+  if (crop_trailing_zeros)
+    while (p > first + 2 && p[-1] == '0')
+      p--;
+
   sprintf (p, "p%+d", exp);
 }
 
Index: print-rtl.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/print-rtl.c,v
retrieving revision 1.88
diff -c -p -d -u -r1.88 print-rtl.c
--- print-rtl.c	13 Sep 2002 06:28:21 -0000	1.88
+++ print-rtl.c	2 Oct 2002 02:33:11 -0000
@@ -195,6 +195,11 @@ print_rtx (in_rtx)
 	}
     }
 
+#ifndef GENERATOR_FILE
+  if (GET_CODE (in_rtx) == CONST_DOUBLE && FLOAT_MODE_P (GET_MODE (in_rtx)))
+    i = 5;
+#endif
+
   /* Get the format string and skip the first elements if we have handled
      them already.  */
   format_ptr = GET_RTX_FORMAT (GET_CODE (in_rtx)) + i;
@@ -517,11 +522,12 @@ print_rtx (in_rtx)
     case CONST_DOUBLE:
       if (FLOAT_MODE_P (GET_MODE (in_rtx)))
 	{
-	  REAL_VALUE_TYPE val;
 	  char s[30];
 
-	  REAL_VALUE_FROM_CONST_DOUBLE (val, in_rtx);
-	  REAL_VALUE_TO_DECIMAL (val, s, -1);
+	  real_to_decimal (s, CONST_DOUBLE_REAL_VALUE (in_rtx), -1);
+	  fprintf (outfile, " %s", s);
+
+	  real_to_hexadecimal (s, CONST_DOUBLE_REAL_VALUE (in_rtx), -1);
 	  fprintf (outfile, " [%s]", s);
 	}
       break;