fp-bit.c (pack_d): Correct the case when a denormal is rounded up and stops being denormal.

* config/fp-bit.c (pack_d): Correct the case when a denormal
is rounded up and stops being denormal.

From-SVN: r32693

gcc/ChangeLog

+2000-03-22  Geoff Keating  <geoffk@cygnus.com>
+
+	* config/fp-bit.c (pack_d): Correct the case when a denormal
+	is rounded up and stops being denormal.
+
 2000-03-21  Richard Henderson  <rth@cygnus.com>
 
 	* config/alpha/alpha.c (function_arg): Check for void_type_node

gcc/config/fp-bit.c

@@ -518,10 +518,9 @@ pack_d ( fp_number_type *  src)
 	      fraction += GARDROUND;
 	    }
 	  /* Perhaps the rounding means we now need to change the
-             exponent.  */
-	  if (fraction >= IMPLICIT_2)
+             exponent, because the fraction is no longer denormal.  */
+	  if (fraction >= IMPLICIT_1)
 	    {
-	      fraction >>= 1;
 	      exp += 1;
 	    }
 	  fraction >>= NGARDS;