OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

s390.md ("atype", "length"): Rewrite. 

2005-12-14  Adrian Straetling  <straetling@de.ibm.com>

	* config/s390/s390.md ("atype", "length"): Rewrite.
	("*insv<mode>_reg_imm", "*insv<mode>_reg_extimm"): Add mode.

From-SVN: r108514
This commit is contained in:
Adrian Straetling 2005-12-14 16:05:01 +00:00 committed by Ulrich Weigand
parent f41d6665b2
commit 0101708cff
2 changed files with 12 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ChangeLog
View File

@ -1,3 +1,8 @@
2005-12-14 Adrian Straetling <straetling@de.ibm.com>
* config/s390/s390.md ("atype", "length"): Rewrite.
("*insv<mode>_reg_imm", "*insv<mode>_reg_extimm"): Add mode.
2005-12-14 Sebastian Pop <pop@cri.ensmp.fr>
* tree-ssa-operands.c (build_ssa_operands): Update leading comment.

44
gcc/config/s390/s390.md
View File

@ -213,45 +213,15 @@
;; reg: Instruction does not use the agen unit
(define_attr "atype" "agen,reg"
(cond [(eq_attr "op_type" "E") (const_string "reg")
(eq_attr "op_type" "RR") (const_string "reg")
(eq_attr "op_type" "RX") (const_string "agen")
(eq_attr "op_type" "RI") (const_string "reg")
(eq_attr "op_type" "RRE") (const_string "reg")
(eq_attr "op_type" "RS") (const_string "agen")
(eq_attr "op_type" "RSI") (const_string "agen")
(eq_attr "op_type" "S") (const_string "agen")
(eq_attr "op_type" "SI") (const_string "agen")
(eq_attr "op_type" "SS") (const_string "agen")
(eq_attr "op_type" "SSE") (const_string "agen")
(eq_attr "op_type" "RXE") (const_string "agen")
(eq_attr "op_type" "RSE") (const_string "agen")
(eq_attr "op_type" "RIL") (const_string "agen")
(eq_attr "op_type" "RXY") (const_string "agen")
(eq_attr "op_type" "RSY") (const_string "agen")
(eq_attr "op_type" "SIY") (const_string "agen")]
(const_string "agen")))
(if_then_else (eq_attr "op_type" "E,RR,RI,RRE")
(const_string "reg")
(const_string "agen")))
;; Length in bytes.
(define_attr "length" ""
(cond [(eq_attr "op_type" "E") (const_int 2)
(eq_attr "op_type" "RR") (const_int 2)
(eq_attr "op_type" "RX") (const_int 4)
(eq_attr "op_type" "RI") (const_int 4)
(eq_attr "op_type" "RRE") (const_int 4)
(eq_attr "op_type" "RS") (const_int 4)
(eq_attr "op_type" "RSI") (const_int 4)
(eq_attr "op_type" "S") (const_int 4)
(eq_attr "op_type" "SI") (const_int 4)
(eq_attr "op_type" "SS") (const_int 6)
(eq_attr "op_type" "SSE") (const_int 6)
(eq_attr "op_type" "RXE") (const_int 6)
(eq_attr "op_type" "RSE") (const_int 6)
(eq_attr "op_type" "RIL") (const_int 6)
(eq_attr "op_type" "RXY") (const_int 6)
(eq_attr "op_type" "RSY") (const_int 6)
(eq_attr "op_type" "SIY") (const_int 6)]
(cond [(eq_attr "op_type" "E,RR") (const_int 2)
(eq_attr "op_type" "RX,RI,RRE,RS,RSI,S,SI") (const_int 4)]
(const_int 6)))
@ -2615,7 +2585,7 @@
[(set (zero_extract:P (match_operand:P 0 "register_operand" "+d")
(const_int 16)
(match_operand 1 "const_int_operand" "n"))
(match_operand 2 "const_int_operand" "n"))]
(match_operand:P 2 "const_int_operand" "n"))]
"TARGET_ZARCH
&& INTVAL (operands[1]) >= 0
&& INTVAL (operands[1]) < BITS_PER_WORD
@ -2636,7 +2606,7 @@
[(set (zero_extract:P (match_operand:P 0 "register_operand" "+d")
(const_int 32)
(match_operand 1 "const_int_operand" "n"))
(match_operand 2 "const_int_operand" "n"))]
(match_operand:P 2 "const_int_operand" "n"))]
"TARGET_EXTIMM
&& INTVAL (operands[1]) >= 0
&& INTVAL (operands[1]) < BITS_PER_WORD