Commit a61e5d28 by Richard Kenner

(PRINT_OPERAND): Print float infinity and NaN's as +/-99e999.

From-SVN: r6835
parent 1e6c6f11
/* Definitions of target machine for GNU compiler. SONY NEWS-OS 4 version. /* Definitions of target machine for GNU compiler. SONY NEWS-OS 4 version.
Copyright (C) 1987, 1989, 1993 Free Software Foundation, Inc. Copyright (C) 1987, 1989, 1993, 1994 Free Software Foundation, Inc.
This file is part of GNU CC. This file is part of GNU CC.
...@@ -319,7 +319,15 @@ do { char dstr[30]; \ ...@@ -319,7 +319,15 @@ do { char dstr[30]; \
if (CODE == 'f') \ if (CODE == 'f') \
{ char dstr[30]; \ { char dstr[30]; \
REAL_VALUE_TO_DECIMAL (r, "%.9e", dstr); \ REAL_VALUE_TO_DECIMAL (r, "%.9e", dstr); \
fprintf (FILE, "#0f%s", dstr); \ if (REAL_VALUE_ISINF (r) || REAL_VALUE_ISNAN (r)) { \
if (REAL_VALUE_NEGATIVE (r)) \
fprintf (FILE, "#0f-99e999"); \
else \
fprintf (FILE, "#0f99e999"); } \
else if (REAL_VALUE_MINUS_ZERO (r)) \
fprintf (FILE, "#0f-0.0"); \
else \
fprintf (FILE, "#0f%s", dstr); \
} \ } \
else \ else \
{ long l; \ { long l; \
...@@ -334,7 +342,15 @@ do { char dstr[30]; \ ...@@ -334,7 +342,15 @@ do { char dstr[30]; \
{ REAL_VALUE_TYPE r; char dstr[30]; \ { REAL_VALUE_TYPE r; char dstr[30]; \
REAL_VALUE_FROM_CONST_DOUBLE (r, X); \ REAL_VALUE_FROM_CONST_DOUBLE (r, X); \
REAL_VALUE_TO_DECIMAL (r, "%.20e", dstr ); \ REAL_VALUE_TO_DECIMAL (r, "%.20e", dstr ); \
fprintf (FILE, "#0d%s", dstr); } \ if (REAL_VALUE_ISINF (r) || REAL_VALUE_ISNAN (r)) { \
if (REAL_VALUE_NEGATIVE (r)) \
fprintf (FILE, "#0d-99e999"); \
else \
fprintf (FILE, "#0d99e999"); } \
else if (REAL_VALUE_MINUS_ZERO (r)) \
fprintf (FILE, "#0d-0.0"); \
else \
fprintf (FILE, "#0d%s", dstr); } \
else if (CODE == 'b') output_addr_const (FILE, X); \ else if (CODE == 'b') output_addr_const (FILE, X); \
else { putc ('#', FILE); output_addr_const (FILE, X); }} else { putc ('#', FILE); output_addr_const (FILE, X); }}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment