* floatformat.c (floatformat_to_double): Fix (biased) exponent=0 case.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@113228 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/libiberty/ChangeLog b/libiberty/ChangeLog
index fb328da..76baa3c 100644 (file)
--- a/libiberty/ChangeLog
+++ b/libiberty/ChangeLog
@@ -1,3 +1,7 @@
+2006-04-24  Julian Brown  <julian@codesourcery.com>
+
+       * floatformat.c (floatformat_to_double): Fix (biased) exponent=0 case.
+

 2006-03-29  Jim Blandy  <jimb@codesourcery.com>
 
        * pex-common.c (pex_input_file, pex_input_pipe): New functions.
 2006-03-29  Jim Blandy  <jimb@codesourcery.com>
 
        * pex-common.c (pex_input_file, pex_input_pipe): New functions.

diff --git a/libiberty/floatformat.c b/libiberty/floatformat.c
index bd31efa..0bbb8ed 100644 (file)
--- a/libiberty/floatformat.c
+++ b/libiberty/floatformat.c
@@ -394,7 +394,7 @@ floatformat_to_double (const struct floatformat *fmt,
 
       /* Handle denormalized numbers.  FIXME: What should we do for
         non-IEEE formats?  */
 
       /* Handle denormalized numbers.  FIXME: What should we do for
         non-IEEE formats?  */

-      if (exponent == 0 && mant != 0)
+      if (special_exponent && exponent == 0 && mant != 0)

        dto += ldexp ((double)mant,
                      (- fmt->exp_bias
                       - mant_bits
        dto += ldexp ((double)mant,
                      (- fmt->exp_bias
                       - mant_bits