From: Eric Botcazou <ebotcazou@libertysurf.fr>
Date: Tue, 21 Sep 2004 05:57:55 +0000 (+0200)
Subject: re PR rtl-optimization/17266 (Libgfortran doesn't build)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=15ee342b73adc73b1c307c9b827bdd5341561bf1;p=gcc.git

re PR rtl-optimization/17266 (Libgfortran doesn't build)

	PR rtl-optimization/17266
	* regmove.c (optimize_reg_copy_3): Make a new SUBREG for each insn.

From-SVN: r87793
---

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index a610a8ae07b..4e4d19ad394 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+2004-09-21  Eric Botcazou  <ebotcazou@libertysurf.fr>
+
+	PR rtl-optimization/17266
+	* regmove.c (optimize_reg_copy_3): Make a new SUBREG for each insn.
+
 2004-09-21  Uros Bizjak  <uros@kss-loka.si>
 
 	PR rtl-optimization/14851
diff --git a/gcc/regmove.c b/gcc/regmove.c
index 587b5767e3c..c08a72058b3 100644
--- a/gcc/regmove.c
+++ b/gcc/regmove.c
@@ -655,7 +655,7 @@ optimize_reg_copy_3 (rtx insn, rtx dest, rtx src)
   rtx src_reg = XEXP (src, 0);
   int src_no = REGNO (src_reg);
   int dst_no = REGNO (dest);
-  rtx p, set, subreg;
+  rtx p, set;
   enum machine_mode old_mode;
 
   if (src_no < FIRST_PSEUDO_REGISTER
@@ -703,14 +703,15 @@ optimize_reg_copy_3 (rtx insn, rtx dest, rtx src)
 
   /* Now walk forward making additional replacements.  We want to be able
      to undo all the changes if a later substitution fails.  */
-  subreg = gen_lowpart_SUBREG (old_mode, src_reg);
   while (p = NEXT_INSN (p), p != insn)
     {
       if (! INSN_P (p))
 	continue;
 
       /* Make a tentative change.  */
-      validate_replace_rtx_group (src_reg, subreg, p);
+      validate_replace_rtx_group (src_reg,
+				  gen_lowpart_SUBREG (old_mode, src_reg),
+				  p);
     }
 
   validate_replace_rtx_group (src, src_reg, insn);