* real.c (ibm_extended_format): Add 53 to minimum exponent.

(encode_ibm_extended): Adjust.

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

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 69c2e98..78a6a24 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+2003-01-27  Alexandre Oliva  <aoliva@redhat.com>
+
+       * real.c (ibm_extended_format): Add 53 to minimum exponent.
+       (encode_ibm_extended): Adjust.
+
 2003-01-26  Gabriel Dos Reis  <gdr@soliton.integrable-solutions.net>
 
        * timevar.def (TV_OVERLOAD, TV_TEMPLATE_INSTANTIATION): New

diff --git a/gcc/real.c b/gcc/real.c
index f1e10b3..369d324 100644 (file)
--- a/gcc/real.c
+++ b/gcc/real.c
@@ -3261,8 +3261,23 @@ encode_ibm_extended (fmt, buf, r)
       u = *r;
       clear_significand_below (&u, SIGNIFICAND_BITS - 53);
 
-      /* v = remainder containing additional 53 bits of significand.  */
-      do_add (&v, r, &u, 1);
+      normalize (&u);
+      /* If the upper double is zero, we have a denormal double, so
+        move it to the first double and leave the second as zero.  */
+      if (u.class == rvc_zero)
+       {
+         v = u;
+         u = *r;
+         normalize (&u);
+       }
+      else
+       {
+         /* v = remainder containing additional 53 bits of significand.  */
+         do_add (&v, r, &u, 1);
+         round_for_format (&ieee_double_format, &v);
+       }
+
+      round_for_format (&ieee_double_format, &u);
 
       encode_ieee_double (&ieee_double_format, &buf[0], &u);
       encode_ieee_double (&ieee_double_format, &buf[2], &v);
@@ -3299,7 +3314,7 @@ const struct real_format ibm_extended_format =
     2,
     1,
     53 + 53,
-    -1021,
+    -1021 + 53,
     1024,
     -1,
     true,