(record_initial): Reject insns that store into subregs.

From-SVN: r4632

diff --git a/gcc/loop.c b/gcc/loop.c
index 357eee672d9d45d730a627e09d1348719ebc8447..84a6fdf51cc9ea94a20781603674e96e642aa619 100644 (file)
--- a/gcc/loop.c
+++ b/gcc/loop.c
@@ -6200,7 +6200,9 @@ record_initial (dest, set)
 
   if (GET_CODE (dest) != REG
       || REGNO (dest) >= max_reg_before_loop
-      || reg_iv_type[REGNO (dest)] != BASIC_INDUCT)
+      || reg_iv_type[REGNO (dest)] != BASIC_INDUCT
+      /* Reject this insn if the source isn't valid for the mode of DEST.  */
+      || GET_MODE (dest) != GET_MODE (SET_DEST (set)))
     return;
 
   bl = reg_biv_class[REGNO (dest)];