From cd60b4b8e7d54de00a2d3a5764ebb1c674fcc889 Mon Sep 17 00:00:00 2001 From: Richard Henderson Date: Fri, 25 Oct 2002 14:58:12 -0700 Subject: 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 | 5 +++++ gcc/real.c | 26 +++++++++++++++++--------- 2 files changed, 22 insertions(+), 9 deletions(-) (limited to 'gcc') diff --git a/gcc/ChangeLog b/gcc/ChangeLog index dc01d93..7ad2654 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,3 +1,8 @@ +2002-10-25 Richard Henderson + + * 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 PR middle-end/6994 diff --git a/gcc/real.c b/gcc/real.c index a2c9d8a..c3cb719 100644 --- a/gcc/real.c +++ b/gcc/real.c @@ -1552,20 +1552,28 @@ 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. */ - m = floor_log2 ((int)(r.exp * M_LOG10_2)) + 1; - do + if (r.exp > 0) { - const REAL_VALUE_TYPE *ptentwo = ten_to_ptwo (m); - if (do_compare (&u, ptentwo, 0) >= 0) + m = floor_log2 ((int)(r.exp * M_LOG10_2)) + 1; + do { - do_divide (&u, &u, ptentwo); - do_multiply (&pten, &pten, ptentwo); - dec_exp += 1 << m; + const REAL_VALUE_TYPE *ptentwo = ten_to_ptwo (m); + if (do_compare (&u, ptentwo, 0) >= 0) + { + do_divide (&u, &u, ptentwo); + do_multiply (&pten, &pten, ptentwo); + dec_exp += 1 << m; + } } + while (--m >= 0); } - while (--m >= 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; } - else if (cmp_one < 0) + if (cmp_one < 0) { int m; -- cgit v1.1