* real.c (encode_ibm_extended): Do round low word.

From-SVN: r79321

gcc/ChangeLog

+2004-03-11  Alan Modra  <amodra@bigpond.net.au>
+
+	* real.c (encode_ibm_extended): Do round low word.
+
 2004-03-11  Ben Elliston  <bje@wasabisystems.com>
 
 	* config/arm/arm.md (is_xscale): Comment this attribute and move

gcc/real.c

@@ -3248,9 +3248,8 @@ encode_ibm_extended (const struct real_format *fmt, long *buf,
   if (u.class == rvc_normal)
     {
       do_add (&v, &normr, &u, 1);
-      /* The low double won't need rounding, since we round to a 106 bit
-	 mantissa before calling this function, and we've just
-	 subtracted off the top 54 bits.  (53+1 because u is rounded.)  */
+      /* Call round_for_format since we might need to denormalize.  */
+      round_for_format (base_fmt, &v);
       encode_ieee_double (base_fmt, &buf[2], &v);
     }
   else