* config/s390/s390.md (cmpstr_64/31): Mark whole

  input registers as used.

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

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index f391122..39891aa 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+2002-05-29  Hartmut Penner  <hpenner@de.ibm.com>
+
+       * config/s390/s390.md (cmpstr_64/31): Mark whole
+       input registers as used. 
+
 2002-05-28  Richard Henderson  <rth@redhat.com>
 
        * config/i386/i386.c (ix86_save_reg): Examine regs_ever_live,

diff --git a/gcc/config/s390/s390.md b/gcc/config/s390/s390.md
index a7cd6f6..73582cd 100644 (file)
--- a/gcc/config/s390/s390.md
+++ b/gcc/config/s390/s390.md
@@ -2152,7 +2152,9 @@
    (clobber (match_operand:TI 1 "register_operand" "=d"))
    (set (reg:CCS 33)
         (compare:CCS (mem:BLK (subreg:DI (match_operand:TI 2 "register_operand" "0") 0))
-                     (mem:BLK (subreg:DI (match_operand:TI 3 "register_operand" "1") 0))))]
+                     (mem:BLK (subreg:DI (match_operand:TI 3 "register_operand" "1") 0))))
+   (use (match_dup 2))
+   (use (match_dup 3))]
   "TARGET_64BIT"
   "clcl\\t%0,%1"
   [(set_attr "op_type" "RR")
@@ -2164,7 +2166,9 @@
    (clobber (match_operand:DI 1 "register_operand" "=d"))
    (set (reg:CCS 33)
         (compare:CCS (mem:BLK (subreg:SI (match_operand:DI 2 "register_operand" "0") 0))
-                     (mem:BLK (subreg:SI (match_operand:DI 3 "register_operand" "1") 0))))]
+                     (mem:BLK (subreg:SI (match_operand:DI 3 "register_operand" "1") 0))))
+   (use (match_dup 2))
+   (use (match_dup 3))]
   "!TARGET_64BIT"
   "clcl\\t%0,%1"
   [(set_attr "op_type" "RR")