(debug_real): New function.

From-SVN: r5742

diff --git a/gcc/real.c b/gcc/real.c
index 5fa8ca9..3b1f165 100644 (file)
--- a/gcc/real.c
+++ b/gcc/real.c
@@ -57,7 +57,7 @@ _Methods and Programs for Mathematical Functions_, Prentice-Hall
 or Simon & Schuster Int'l, 1989.  A library of XFmode elementary
 transcendental functions can be obtained by ftp from
 research.att.com: netlib/cephes/ldouble.shar.Z  */
-
+\f
 /* Type of computer arithmetic.
  * Only one of DEC, IBM, MIEEE, IBMPC, or UNK should get defined.
  */
@@ -166,7 +166,7 @@ unknown arithmetic type
 #define INFINITY
 #endif
 #endif
-
+\f
 /* Find a host integer type that is at least 16 bits wide,
    and another type at least twice whatever that size is. */
 
@@ -325,7 +325,7 @@ void mtherr (), make_nan ();
 void enan ();
 extern unsigned EMUSHORT ezero[], ehalf[], eone[], etwo[];
 extern unsigned EMUSHORT elog2[], esqrt2[];
-
+\f
 /* Pack output array with 32-bit numbers obtained from
    array containing 16-bit numbers, swapping ends if required. */
 void 
@@ -883,6 +883,20 @@ real_value_truncate (mode, arg)
 
 #endif /* REAL_ARITHMETIC defined */
 
+/* Used for debugging--print the value of R in human-readable format
+   on stderr.  */
+
+void
+debug_real (r)
+     REAL_VALUE_TYPE r;
+{
+  char dstr[30];
+
+  REAL_VALUE_TO_DECIMAL (r, "%.20g", dstr);
+  fprintf (stderr, "%s", dstr);
+}  
+
+\f
 /* Target values are arrays of host longs. A long is guaranteed
    to be at least 32 bits wide. */
 
@@ -970,7 +984,7 @@ ereal_isneg (x)
 }
 
 /* End of REAL_ARITHMETIC interface */
-
+\f
 /*                                                     ieee.c
  *
  *    Extended precision IEEE binary floating point arithmetic routines