PR fortran/3393

        * loop.c (loop_iv_add_mult_emit_before): Copy multiplier as well.
        (loop_iv_add_mult_sink, loop_iv_add_mult_hoist): Likewise.

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

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 107ec4b..5f1b84a 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,5 +1,9 @@
 2002-02-05  Richard Henderson  <rth@redhat.com>
 
+       PR fortran/3393
+       * loop.c (loop_iv_add_mult_emit_before): Copy multiplier as well.
+       (loop_iv_add_mult_sink, loop_iv_add_mult_hoist): Likewise.
+
        PR fortran/3392
        * config/mips/mips.c (function_arg): Handle TImode.
        (function_arg_advance): Likewise.

diff --git a/gcc/loop.c b/gcc/loop.c
index a65595f..0067e74 100644 (file)
--- a/gcc/loop.c
+++ b/gcc/loop.c
@@ -7654,7 +7654,7 @@ loop_iv_add_mult_emit_before (loop, b, m, a, reg, before_bb, before_insn)
     }
 
   /* Use copy_rtx to prevent unexpected sharing of these rtx.  */
-  seq = gen_add_mult (copy_rtx (b), m, copy_rtx (a), reg);
+  seq = gen_add_mult (copy_rtx (b), copy_rtx (m), copy_rtx (a), reg);
 
   /* Increase the lifetime of any invariants moved further in code.  */
   update_reg_last_use (a, before_insn);
@@ -7682,7 +7682,7 @@ loop_iv_add_mult_sink (loop, b, m, a, reg)
   rtx seq;
 
   /* Use copy_rtx to prevent unexpected sharing of these rtx.  */
-  seq = gen_add_mult (copy_rtx (b), m, copy_rtx (a), reg);
+  seq = gen_add_mult (copy_rtx (b), copy_rtx (m), copy_rtx (a), reg);
 
   /* Increase the lifetime of any invariants moved further in code.
      ???? Is this really necessary?  */
@@ -7711,7 +7711,7 @@ loop_iv_add_mult_hoist (loop, b, m, a, reg)
   rtx seq;
 
   /* Use copy_rtx to prevent unexpected sharing of these rtx.  */
-  seq = gen_add_mult (copy_rtx (b), m, copy_rtx (a), reg);
+  seq = gen_add_mult (copy_rtx (b), copy_rtx (m), copy_rtx (a), reg);
 
   loop_insn_hoist (loop, seq);