fp-bit.c (pack_d): Cast to ``fractype'' for long long shifts.

        * config/fp-bit.c (pack_d): Cast to ``fractype'' for long long
        shifts.

From-SVN: r47923

gcc/ChangeLog

+2001-12-11  Momchil Velikov  <velco@fadata.bg>
+  
+	* config/fp-bit.c (pack_d): Cast to ``fractype'' for long long
+	shifts.
+
 2001-12-11  Richard Henderson  <rth@redhat.com>
 
 	* config/alpha/alpha.h (TARGET_FIXUP_EV5_PREFETCH): New.

gcc/config/fp-bit.c

@@ -222,7 +222,7 @@ pack_d ( fp_number_type *  src)
 	    }
 	  else
 	    {
-	      int lowbit = (fraction & ((1 << shift) - 1)) ? 1 : 0;
+	      int lowbit = (fraction & (((fractype)1 << shift) - 1)) ? 1 : 0;
 	      fraction = (fraction >> shift) | lowbit;
 	    }
 	  if ((fraction & GARDMASK) == GARDMSB)