+2002-10-01 Richard Henderson <rth@redhat.com>
+
+ * 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.
+
2002-10-01 Jason Thorpe <thorpej@wasabisystems.com>
* config/vax/elf.h (FUNCTION_PROFILER): Fix __mcount call.
}
}
+#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;
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;
*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
int dec_exp, max_digits, d, cmp_half;
char *p, *first, *last;
bool sign;
+ bool crop_trailing_zeros;
r = *r_orig;
switch (r.class)
}
max_digits = SIGNIFICAND_BITS * M_LOG10_2;
+ crop_trailing_zeros = digits < 0;
if (digits <= 0 || digits > max_digits)
digits = max_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)
int digits;
{
int i, j, exp = r->exp;
- char *p;
+ char *p, *first;
+ bool crop_trailing_zeros;
switch (r->class)
{
abort ();
}
+ crop_trailing_zeros = digits < 0;
if (digits <= 0)
digits = SIGNIFICAND_BITS / 4;
*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)
if (--digits == 0)
goto out;
}
+
out:
+ if (crop_trailing_zeros)
+ while (p > first + 2 && p[-1] == '0')
+ p--;
+
sprintf (p, "p%+d", exp);
}