From: Ulrich Weigand <uweigand@de.ibm.com>
Date: Sat, 22 Jan 2005 21:50:56 +0000 (+0000)
Subject: s390.md ("doloop_si64"): Reload input value directly into the register being decremented.
X-Git-Tag: releases/gcc-4.0.0~1366
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=eb862a88ba7046dbeea77ce41f6cc90f1b436412;p=thirdparty%2Fgcc.git

s390.md ("doloop_si64"): Reload input value directly into the register being decremented.

	* config/s390/s390.md ("doloop_si64"): Reload input value directly
	into the register being decremented.
	("doloop_si31", "doloop_di"): Likewise.
	("*doloop_si_long"): Adapt pattern.

From-SVN: r94078
---

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 87c472fe821d..5d3e5530bbbc 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,10 @@
+2005-01-21  Ulrich Weigand  <uweigand@de.ibm.com>
+
+	* config/s390/s390.md ("doloop_si64"): Reload input value directly
+	into the register being decremented.
+	("doloop_si31", "doloop_di"): Likewise.
+	("*doloop_si_long"): Adapt pattern.
+
 2005-01-21  Ulrich Weigand  <uweigand@de.ibm.com>
 
 	* config/s390/s390.h (HARD_REGNO_NREGS): Fix computation for
diff --git a/gcc/config/s390/s390.md b/gcc/config/s390/s390.md
index bc827bd97b44..4b8b58ad45c0 100644
--- a/gcc/config/s390/s390.md
+++ b/gcc/config/s390/s390.md
@@ -7266,7 +7266,7 @@
           (pc)))
    (set (match_operand:SI 2 "nonimmediate_operand" "=1,?*m*d")
         (plus:SI (match_dup 1) (const_int -1)))
-   (clobber (match_scratch:SI 3 "=X,&d"))
+   (clobber (match_scratch:SI 3 "=X,&1"))
    (clobber (reg:CC 33))]
   "TARGET_CPU_ZARCH"
 {
@@ -7280,8 +7280,7 @@
   "&& reload_completed
    && (! REG_P (operands[2])
        || ! rtx_equal_p (operands[1], operands[2]))"
-  [(set (match_dup 3) (match_dup 1))
-   (parallel [(set (reg:CCAN 33)
+  [(parallel [(set (reg:CCAN 33)
                    (compare:CCAN (plus:SI (match_dup 3) (const_int -1))
                                  (const_int 0)))
               (set (match_dup 3) (plus:SI (match_dup 3) (const_int -1)))])
@@ -7305,7 +7304,7 @@
           (pc)))
    (set (match_operand:SI 2 "nonimmediate_operand" "=1,?*m*d")
         (plus:SI (match_dup 1) (const_int -1)))
-   (clobber (match_scratch:SI 3 "=X,&d"))
+   (clobber (match_scratch:SI 3 "=X,&1"))
    (clobber (reg:CC 33))]
   "!TARGET_CPU_ZARCH"
 {
@@ -7319,8 +7318,7 @@
   "&& reload_completed
    && (! REG_P (operands[2])
        || ! rtx_equal_p (operands[1], operands[2]))"
-  [(set (match_dup 3) (match_dup 1))
-   (parallel [(set (reg:CCAN 33)
+  [(parallel [(set (reg:CCAN 33)
                    (compare:CCAN (plus:SI (match_dup 3) (const_int -1))
                                  (const_int 0)))
               (set (match_dup 3) (plus:SI (match_dup 3) (const_int -1)))])
@@ -7347,7 +7345,7 @@
           (pc)))
    (set (match_operand:SI 2 "register_operand" "=1,?*m*d")
         (plus:SI (match_dup 1) (const_int -1)))
-   (clobber (match_scratch:SI 3 "=X,&d"))
+   (clobber (match_scratch:SI 3 "=X,&1"))
    (clobber (reg:CC 33))]
   "!TARGET_CPU_ZARCH"
 {
@@ -7369,9 +7367,9 @@
               (const_int 1))
           (label_ref (match_operand 0 "" ""))
           (pc)))
-   (set (match_operand:DI 2 "nonimmediate_operand" "=1,?*m*r")
+   (set (match_operand:DI 2 "nonimmediate_operand" "=1,?*m*d")
         (plus:DI (match_dup 1) (const_int -1)))
-   (clobber (match_scratch:DI 3 "=X,&d"))
+   (clobber (match_scratch:DI 3 "=X,&1"))
    (clobber (reg:CC 33))]
   "TARGET_64BIT"
 {
@@ -7385,8 +7383,7 @@
   "&& reload_completed
    && (! REG_P (operands[2])
        || ! rtx_equal_p (operands[1], operands[2]))"
-  [(set (match_dup 3) (match_dup 1))
-   (parallel [(set (reg:CCAN 33)
+  [(parallel [(set (reg:CCAN 33)
                    (compare:CCAN (plus:DI (match_dup 3) (const_int -1))
                                  (const_int 0)))
               (set (match_dup 3) (plus:DI (match_dup 3) (const_int -1)))])