real.c (real_to_decimal): If the >1 tens reduction loop results in a negative exponent...

        * real.c (real_to_decimal): If the >1 tens reduction loop results
        in a negative exponent, fall into the <1 pten computation.

From-SVN: r58538

gcc/ChangeLog

+2002-10-25  Richard Henderson  <rth@redhat.com>
+
+	* real.c (real_to_decimal): If the >1 tens reduction loop results
+	in a negative exponent, fall into the <1 pten computation.
+
 2002-10-25  Zack Weinberg  <zack@codesourcery.com>
 
 	PR middle-end/6994

gcc/real.c

@@ -1552,6 +1552,8 @@ real_to_decimal (str, r_orig, buf_size, digits, crop_trailing_zeros)
       /* Find power of 10.  Do this by dividing out 10**2**M when
 	 this is larger than the current remainder.  Fill PTEN with 
 	 the power of 10 that we compute.  */
+      if (r.exp > 0)
+	{
 	  m = floor_log2 ((int)(r.exp * M_LOG10_2)) + 1;
 	  do
 	    {
@@ -1565,7 +1567,13 @@ real_to_decimal (str, r_orig, buf_size, digits, crop_trailing_zeros)
 	    }
           while (--m >= 0);
 	}
-  else if (cmp_one < 0)
+      else
+	/* We managed to divide off enough tens in the above reduction
+	   loop that we've now got a negative exponent.  Fall into the
+	   less-than-one code to compute the proper value for PTEN.  */
+	cmp_one = -1;
+    }
+  if (cmp_one < 0)
     {
       int m;