re PR middle-end/30992 (Scaling error in decimal floating-point arithmetic blows...

2007-03-02  Ben Elliston  <bje@au.ibm.com>

	PR 30992
	* config/dfp-bit.c (DFP_TO_INT): Initialise qval with "1.".

From-SVN: r122469

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index fc055f55d62e1d14f2548e49ca6804fc91162344..663fabb17c64f94be9f4ae9988b485be50350113 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+2007-03-02  Ben Elliston  <bje@au.ibm.com>
+
+       PR 30992
+       * config/dfp-bit.c (DFP_TO_INT): Initialise qval with "1.".
+
 2007-03-02  Joseph Myers  <joseph@codesourcery.com>
 
        * target.h (init_dwarf_reg_sizes_extra): New target hook.

diff --git a/gcc/config/dfp-bit.c b/gcc/config/dfp-bit.c
index 927804c1def803ddbf52124b70d7338250bce394..2fa8999696791325e050cd0f0843a9a46f743dcf 100644 (file)
--- a/gcc/config/dfp-bit.c
+++ b/gcc/config/dfp-bit.c
@@ -450,7 +450,7 @@ DFP_TO_INT (DFP_C_TYPE x)
   /* Rescale if the exponent is less than zero.  */
   decNumberToIntegralValue (&n2, &n1, &context);
   /* Get a value to use for the quantize call.  */
-  decNumberFromString (&qval, (char *) "1.0", &context);
+  decNumberFromString (&qval, (char *) "1.", &context);
   /* Force the exponent to zero.  */
   decNumberQuantize (&n1, &n2, &qval, &context);
   /* Get a string, which at this point will not include an exponent.  */