gcc/

2009-02-12  Paolo Bonzini  <bonzini@gnu.org>

	PR target/39152
	* config/i386/i386.md: Replace simplify_replace_rtx with
	replace_rtx in the new peephole2.

gcc/testsuite/

2009-02-12  H.J. Lu  <hongjiu.lu@intel.com>

	PR target/39152
	* gfortran.dg/pr39152.f: New.

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

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index d0f7127ee23d0b9be49d75b8dffa9064b4fe8f66..6efef4c98ca6678797f8f8806ccec9f77762b319 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,9 @@
+2009-02-12  Paolo Bonzini  <bonzini@gnu.org>
+
+       PR target/39152
+       * config/i386/i386.md: Replace simplify_replace_rtx with
+       replace_rtx in the new peephole2.
+
 2009-02-12  Nathan Sidwell  <nathan@codesourcery.com>
 
        * doc/invoke.texi (Optimize Options): Stop claiming inlining and

diff --git a/gcc/config/i386/i386.md b/gcc/config/i386/i386.md
index 1516237ae69c05fd6e6b3446d04a0f34192209a7..f4aaed6319e540107a3e25b79d300b169f03ebe7 100644 (file)
--- a/gcc/config/i386/i386.md
+++ b/gcc/config/i386/i386.md
@@ -20741,7 +20741,7 @@
    (parallel [(set (match_dup 0)
                    (match_op_dup 3 [(match_dup 0) (match_dup 1)]))
               (clobber (reg:CC FLAGS_REG))])]
-  "operands[4] = simplify_replace_rtx (operands[2], operands[0], operands[1]);")
+  "operands[4] = replace_rtx (operands[2], operands[0], operands[1]);")
 
 (define_peephole2
   [(set (match_operand 0 "register_operand" "")

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index b140c2f1e6de3e0191497547a732d11b9476d159..3fb1fc505686467fb090ef89a27ed016d1238ece 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2009-02-12  H.J. Lu  <hongjiu.lu@intel.com>
+
+       PR target/39152
+       * gfortran.dg/pr39152.f: New.
+
 2009-02-11  Jason Merrill  <jason@redhat.com>
 
        PR c++/39153

diff --git a/gcc/testsuite/gfortran.dg/pr39152.f b/gcc/testsuite/gfortran.dg/pr39152.f
new file mode 100644 (file)
index 0000000..477200f
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/pr39152.f
@@ -0,0 +1,22 @@
+! { dg-do compile }
+! { dg-options "-O2" }
+      SUBROUTINE CASHES(E,HESS,FC,FA,NORB,NPR)
+      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
+      PARAMETER (MXAO=2047)
+      DIMENSION HESS(NPR),E(NORB,*),FC(*),FA(*)
+      COMMON /IJPAIR/ IA(MXAO)
+      COMMON /MCPAR / NFZC,NCORBS,NCI,NORBS,NORBX,NUM
+      K=0
+      DO 200 IU = 1,NORB - NCORBS
+         I = IU + NCORBS
+         II=IA(I)+I
+         DO 100 J = 1,NCORBS
+            IF (I.GT.NORBS) THEN
+               HESS(K)=FC(II) + FA(II) - E(J,J)
+            ELSE
+               HESS(K)=FA(II) - E(I,I) - E(J,J) + FC(JJ) + FA(JJ)
+            END IF
+  100    CONTINUE
+  200 CONTINUE
+      RETURN
+      END