diff options
| author | uweigand <uweigand@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-02-05 22:48:53 +0000 |
|---|---|---|
| committer | uweigand <uweigand@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-02-05 22:48:53 +0000 |
| commit | 56b9b457c6dc93682c085ccdb92977954a29c13e (patch) | |
| tree | 75978b32cc5c7d29ca9fd6b1a3f700791807b401 /gcc | |
| parent | 82ac36995bcee5a9caeb9a126c5e7e5f457c2638 (diff) | |
| download | gcc-56b9b457c6dc93682c085ccdb92977954a29c13e.tar.gz | |
2004-02-04 Andreas Krebbel <krebbel1@de.ibm.com>
* config/s390/s390.md ("*tmqidi_ext"): New insn.
("*extendqidi2_short_displ", "*extendsiqi2_short_displ"): Old
pre-reload splitters are transformed to post-reload
define_insn_and_split patterns.
("*tmqisi_ext"): Renamed old "*tmqi_ext".
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@77346 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ChangeLog | 8 | ||||
| -rw-r--r-- | gcc/config/s390/s390.md | 43 |
2 files changed, 41 insertions, 10 deletions
diff --git a/gcc/ChangeLog b/gcc/ChangeLog index 7e920238929..30da54b46ae 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,3 +1,11 @@ +2004-02-05 Andreas Krebbel <krebbel1@de.ibm.com> + + * config/s390/s390.md ("*tmqidi_ext"): New insn. + ("*extendqidi2_short_displ", "*extendsiqi2_short_displ"): Old + pre-reload splitters are transformed to post-reload + define_insn_and_split patterns. + ("*tmqisi_ext"): Renamed old "*tmqi_ext". + 2004-02-05 Kazu Hirata <kazu@cs.umass.edu> * config/cris/cris.h: Replace PROMOTE_PROTOTYPES with diff --git a/gcc/config/s390/s390.md b/gcc/config/s390/s390.md index 794a52fcd59..5ba0df08d4b 100644 --- a/gcc/config/s390/s390.md +++ b/gcc/config/s390/s390.md @@ -433,13 +433,13 @@ } [(set_attr "op_type" "RI")]) -(define_insn "*tmqi_ext" +(define_insn "*tmqisi_ext" [(set (reg 33) (compare (zero_extract:SI (match_operand:QI 0 "memory_operand" "Q,S") (match_operand:SI 1 "const_int_operand" "n,n") (match_operand:SI 2 "const_int_operand" "n,n")) (const_int 0)))] - "s390_match_ccmode(insn, CCTmode) + "!TARGET_64BIT && s390_match_ccmode(insn, CCTmode) && INTVAL (operands[1]) >= 1 && INTVAL (operands[2]) >= 0 && INTVAL (operands[1]) + INTVAL (operands[2]) <= 8" { @@ -451,6 +451,25 @@ } [(set_attr "op_type" "SI,SIY")]) +(define_insn "*tmqidi_ext" + [(set (reg 33) + (compare (zero_extract:DI (match_operand:QI 0 "memory_operand" "Q,S") + (match_operand:SI 1 "const_int_operand" "n,n") + (match_operand:SI 2 "const_int_operand" "n,n")) + (const_int 0)))] + "TARGET_64BIT && s390_match_ccmode(insn, CCTmode) + && INTVAL (operands[1]) >= 1 && INTVAL (operands[2]) >= 0 + && INTVAL (operands[1]) + INTVAL (operands[2]) <= 8" +{ + int block = (1 << INTVAL (operands[1])) - 1; + int shift = 8 - INTVAL (operands[1]) - INTVAL (operands[2]); + + operands[2] = GEN_INT (block << shift); + return which_alternative == 0 ? "tm\t%0,%b2" : "tmy\t%0,%b2"; +} + [(set_attr "op_type" "SI,SIY")]) + + ; Test-under-Mask instructions (define_insn "*tmdi_mem" @@ -2520,10 +2539,12 @@ "lgb\t%0,%1" [(set_attr "op_type" "RXY")]) -(define_split - [(set (match_operand:DI 0 "register_operand" "") - (sign_extend:DI (match_operand:QI 1 "s_operand" "")))] - "TARGET_64BIT && !TARGET_LONG_DISPLACEMENT && !reload_completed" +(define_insn_and_split "*extendqidi2_short_displ" + [(set (match_operand:DI 0 "register_operand" "=d") + (sign_extend:DI (match_operand:QI 1 "s_operand" "Q")))] + "TARGET_64BIT && !TARGET_LONG_DISPLACEMENT" + "#" + "&& reload_completed" [(parallel [(set (match_dup 0) (unspec:DI [(match_dup 1)] UNSPEC_SETHIGH)) (clobber (reg:CC 33))]) @@ -2582,10 +2603,12 @@ "lb\t%0,%1" [(set_attr "op_type" "RXY")]) -(define_split - [(set (match_operand:SI 0 "register_operand" "") - (sign_extend:SI (match_operand:QI 1 "s_operand" "")))] - "!TARGET_LONG_DISPLACEMENT && !reload_completed" +(define_insn_and_split "*extendsiqi2_short_displ" + [(set (match_operand:SI 0 "register_operand" "=d") + (sign_extend:SI (match_operand:QI 1 "s_operand" "Q")))] + "!TARGET_LONG_DISPLACEMENT" + "#" + "&& reload_completed" [(parallel [(set (match_dup 0) (unspec:SI [(match_dup 1)] UNSPEC_SETHIGH)) (clobber (reg:CC 33))]) |