gcc-papermario/we32k.md at 5d0e3eb1fa82d9350ea73bb7acfc4e63bb98c82e

mirror of https://github.com/pmret/gcc-papermario.git synced 2024-11-08 20:02:47 +01:00

Ethan Roseman 57261bd1c1 Initial commit of GCC 2.8.1

2020-09-20 21:06:00 -04:00

34 KiB

Raw Blame History

;; This file is part of GNU CC.

;; GNU CC is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation; either version 1, or (at your option) ;; any later version.

;; GNU CC is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License ;; along with GNU CC; see the file COPYING. If not, write to ;; the Free Software Foundation, 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA.

;;- instruction definitions

;;- @@The original PO technology requires these to be ordered by speed, ;;- @@ so that assigner will pick the fastest.

;;- See file "rtl.def" for documentation on define_insn, match_*, et. al.

;;- When naming insn's (operand 0 of define_insn) be careful about using ;;- names from other targets machine descriptions. ;; move instructions

(define_insn "" [(set (match_operand:DF 0 "push_operand" "=m") (match_operand:DF 1 "general_operand" "mrF"))] "" "* { output_push_double(&operands[1]);

return ""; }")

(define_insn "movdf" [(set (match_operand:DF 0 "nonimmediate_operand" "=mr") (match_operand:DF 1 "general_operand" "mrF"))] "" "* { output_move_double(operands);

return ""; }")

(define_insn "" [(set (match_operand:SF 0 "push_operand" "=m") (match_operand:SF 1 "general_operand" "mrF"))] "" "pushw %1")

(define_insn "movsf" [(set (match_operand:SF 0 "nonimmediate_operand" "=mr") (match_operand:SF 1 "general_operand" "mrF"))] "" "movw %1, %0")

(define_insn "" [(set (match_operand:DI 0 "push_operand" "=m") (match_operand:DI 1 "general_operand" "mriF"))] "" "* { output_push_double(&operands[1]);

return ""; }")

(define_insn "movdi" [(set (match_operand:DI 0 "nonimmediate_operand" "=mr") (match_operand:DI 1 "general_operand" "mriF"))] "" "* { output_move_double(operands);

return ""; }")

(define_insn "" [(set (match_operand:SI 0 "push_operand" "=m") (match_operand:SI 1 "general_operand" "mri"))] "" "pushw %1")

(define_insn "movsi" [(set (match_operand:SI 0 "nonimmediate_operand" "=mr") (match_operand:SI 1 "general_operand" "mri"))] "" "movw %1, %0")

(define_insn "movhi" [(set (match_operand:HI 0 "nonimmediate_operand" "=mr") (match_operand:HI 1 "general_operand" "mri"))] "" "movh %1, %0")

(define_insn "movqi" [(set (match_operand:QI 0 "nonimmediate_operand" "=mr") (match_operand:QI 1 "general_operand" "mri"))] "" "movb %1, %0") ;; add instructions

(define_insn "" [(set (match_operand:DI 0 "nonimmediate_operand" "=&or") (plus:DI (match_operand:DI 1 "nonimmediate_operand" "0") (match_operand:DI 2 "general_operand" "oriF")))] "" "* { rtx label[1]; rtx lsw_operands[3];

if (GET_CODE (operands[0]) == REG) lsw_operands[0] = gen_rtx(REG, SImode, REGNO (operands[0]) + 1); else if (GET_CODE (operands[0]) == MEM && offsettable_memref_p (operands[0])) lsw_operands[0] = adj_offsettable_operand(operands[0], 4); else abort();

if (GET_CODE (operands[2]) == REG) lsw_operands[2] = gen_rtx(REG, SImode, REGNO (operands[2]) + 1); else if (GET_CODE (operands[2]) == MEM && offsettable_memref_p (operands[2])) lsw_operands[2] = adj_offsettable_operand(operands[2], 4); else if (GET_CODE (operands[2]) == CONST_DOUBLE) { lsw_operands[2] = gen_rtx(CONST_INT, SImode, CONST_DOUBLE_HIGH(operands[2])); operands[2] = gen_rtx(CONST_INT, SImode, CONST_DOUBLE_LOW(operands[2])); } else if (GET_CODE (operands[2]) == CONST_INT) { lsw_operands[2] = operands[2]; operands[2] = const0_rtx; } else abort();

label[0] = gen_label_rtx(); LABEL_NUSES(label[0]) = 1;

output_asm_insn("addw2 %2, %0", operands); output_asm_insn("addw2 %2, %0", lsw_operands); output_asm_insn("BCCB %l0", label); output_asm_insn("INCW %0", operands); output_asm_insn("%l0:", label);

return ""; }")

(define_insn "adddi3" [(set (match_operand:DI 0 "nonimmediate_operand" "=&or") (plus:DI (match_operand:DI 1 "general_operand" "oriF") (match_operand:DI 2 "general_operand" "oriF")))] "" "* { rtx label[1]; rtx lsw_operands[3];

if (GET_CODE (operands[1]) == REG) lsw_operands[1] = gen_rtx(REG, SImode, REGNO (operands[1]) + 1); else if (GET_CODE (operands[1]) == MEM && offsettable_memref_p (operands[1])) lsw_operands[1] = adj_offsettable_operand(operands[1], 4); else if (GET_CODE (operands[1]) == CONST_DOUBLE) { lsw_operands[1] = gen_rtx(CONST_INT, SImode, CONST_DOUBLE_HIGH(operands[1])); operands[1] = gen_rtx(CONST_INT, SImode, CONST_DOUBLE_LOW(operands[1])); } else if (GET_CODE (operands[1]) == CONST_INT) { lsw_operands[1] = operands[1]; operands[1] = const0_rtx; } else abort();

label[0] = gen_label_rtx(); LABEL_NUSES(label[0]) = 1;

output_asm_insn("addw3 %2, %1, %0", operands); output_asm_insn("addw3 %2, %1, %0", lsw_operands); output_asm_insn("BCCB %l0", label); output_asm_insn("INCW %0", operands); output_asm_insn("%l0:", label);

return ""; }")

(define_insn "" [(set (match_operand:SI 0 "nonimmediate_operand" "=mr") (plus:SI (match_operand:SI 1 "nonimmediate_operand" "0") (match_operand:SI 2 "general_operand" "mri")))] "" "addw2 %2, %0")

(define_insn "addsi3" [(set (match_operand:SI 0 "nonimmediate_operand" "=mr") (plus:SI (match_operand:SI 1 "general_operand" "mri") (match_operand:SI 2 "general_operand" "mri")))] "" "addw3 %2, %1, %0")

(define_insn "" [(set (match_operand:HI 0 "nonimmediate_operand" "=mr") (plus:HI (match_operand:HI 1 "nonimmediate_operand" "0") (match_operand:HI 2 "general_operand" "mri")))] "" "addh2 %2, %0")

(define_insn "addhi3" [(set (match_operand:HI 0 "nonimmediate_operand" "=mr") (plus:HI (match_operand:HI 1 "general_operand" "mri") (match_operand:HI 2 "general_operand" "mri")))] "" "addh3 %2, %1, %0")

(define_insn "" [(set (match_operand:QI 0 "nonimmediate_operand" "=mr") (plus:QI (match_operand:QI 1 "nonimmediate_operand" "0") (match_operand:QI 2 "general_operand" "mri")))] "" "addb2 %2, %0")

(define_insn "addqi3" [(set (match_operand:QI 0 "nonimmediate_operand" "=mr") (plus:QI (match_operand:QI 1 "general_operand" "mri") (match_operand:QI 2 "general_operand" "mri")))] "" "addb3 %2, %1, %0") ;; subtract instructions

(define_insn "" [(set (match_operand:DI 0 "nonimmediate_operand" "=&or") (minus:DI (match_operand:DI 1 "nonimmediate_operand" "0") (match_operand:DI 2 "general_operand" "oriF")))] "" "* { rtx label[1]; rtx lsw_operands[3];

label[0] = gen_label_rtx(); LABEL_NUSES(label[0]) = 1;

output_asm_insn("subw2 %2, %0", operands); output_asm_insn("subw2 %2, %0", lsw_operands); output_asm_insn("BCCB %l0", label); output_asm_insn("DECW %0", operands); output_asm_insn("%l0:", label);

return ""; }")

(define_insn "subdi3" [(set (match_operand:DI 0 "nonimmediate_operand" "=&or") (minus:DI (match_operand:DI 1 "general_operand" "oriF") (match_operand:DI 2 "general_operand" "oriF")))] "" "* { rtx label[1]; rtx lsw_operands[3];

label[0] = gen_label_rtx(); LABEL_NUSES(label[0]) = 1;

output_asm_insn("subw3 %2, %1, %0", operands); output_asm_insn("subw3 %2, %1, %0", lsw_operands); output_asm_insn("BCCB %l0", label); output_asm_insn("DECW %0", operands); output_asm_insn("%l0:", label);

return ""; }")

(define_insn "" [(set (match_operand:SI 0 "nonimmediate_operand" "=mr") (minus:SI (match_operand:SI 1 "nonimmediate_operand" "0") (match_operand:SI 2 "general_operand" "mri")))] "" "subw2 %2, %0")

(define_insn "subsi3" [(set (match_operand:SI 0 "nonimmediate_operand" "=mr") (minus:SI (match_operand:SI 1 "general_operand" "mri") (match_operand:SI 2 "general_operand" "mri")))] "" "subw3 %2, %1, %0")

(define_insn "" [(set (match_operand:HI 0 "nonimmediate_operand" "=mr") (minus:HI (match_operand:HI 1 "nonimmediate_operand" "0") (match_operand:HI 2 "general_operand" "mri")))] "" "subh2 %2, %0")

(define_insn "subhi3" [(set (match_operand:HI 0 "nonimmediate_operand" "=mr") (minus:HI (match_operand:HI 1 "general_operand" "mri") (match_operand:HI 2 "general_operand" "mri")))] "" "subh3 %2, %1, %0")

(define_insn "" [(set (match_operand:QI 0 "nonimmediate_operand" "=mr") (minus:QI (match_operand:QI 1 "nonimmediate_operand" "0") (match_operand:QI 2 "general_operand" "mri")))] "" "subb2 %2, %0")

(define_insn "subqi3" [(set (match_operand:QI 0 "nonimmediate_operand" "=mr") (minus:QI (match_operand:QI 1 "general_operand" "mri") (match_operand:QI 2 "general_operand" "mri")))] "" "subb3 %2, %1, %0") ;; signed multiply instructions

(define_insn "" [(set (match_operand:SI 0 "nonimmediate_operand" "=mr") (mult:SI (match_operand:SI 1 "nonimmediate_operand" "0") (match_operand:SI 2 "general_operand" "mri")))] "" "mulw2 %2, %0")

(define_insn "mulsi3" [(set (match_operand:SI 0 "nonimmediate_operand" "=mr") (mult:SI (match_operand:SI 1 "general_operand" "mri") (match_operand:SI 2 "general_operand" "mri")))] "" "mulw3 %2, %1, %0")

;; signed divide instructions

(define_insn "" [(set (match_operand:SI 0 "nonimmediate_operand" "=mr") (div:SI (match_operand:SI 1 "nonimmediate_operand" "0") (match_operand:SI 2 "general_operand" "mri")))] "" "divw2 %2, %0")

(define_insn "divsi3" [(set (match_operand:SI 0 "nonimmediate_operand" "=mr") (div:SI (match_operand:SI 1 "general_operand" "mri") (match_operand:SI 2 "general_operand" "mri")))] "" "divw3 %2, %1, %0")

;; signed modulus instruction

(define_insn "" [(set (match_operand:SI 0 "nonimmediate_operand" "=mr") (mod:SI (match_operand:SI 1 "nonimmediate_operand" "0") (match_operand:SI 2 "general_operand" "mri")))] "" "modw2 %2, %0")

(define_insn "modsi3" [(set (match_operand:SI 0 "nonimmediate_operand" "=mr") (mod:SI (match_operand:SI 1 "general_operand" "mri") (match_operand:SI 2 "general_operand" "mri")))] "" "modw3 %2, %1, %0") ;; unsigned divide instruction

(define_insn "" [(set (match_operand:SI 0 "nonimmediate_operand" "=mr") (udiv:SI (match_operand:SI 1 "nonimmediate_operand" "0") (match_operand:SI 2 "general_operand" "mri")))] "" "udivw2 %2, %0")

(define_insn "udivsi3" [(set (match_operand:SI 0 "nonimmediate_operand" "=mr") (udiv:SI (match_operand:SI 1 "general_operand" "mri") (match_operand:SI 2 "general_operand" "mri")))] "" "udivw3 %2, %1, %0")

;; unsigned modulus instruction

(define_insn "" [(set (match_operand:SI 0 "nonimmediate_operand" "=mr") (umod:SI (match_operand:SI 1 "nonimmediate_operand" "0") (match_operand:SI 2 "general_operand" "mri")))] "" "umodw2 %2, %0")

(define_insn "umodsi3" [(set (match_operand:SI 0 "nonimmediate_operand" "=mr") (umod:SI (match_operand:SI 1 "general_operand" "mri") (match_operand:SI 2 "general_operand" "mri")))] "" "umodw3 %2, %1, %0") ;; logical-and instructions

(define_insn "" [(set (match_operand:SI 0 "nonimmediate_operand" "=mr") (and:SI (match_operand:SI 1 "nonimmediate_operand" "0") (match_operand:SI 2 "general_operand" "mri")))] "" "andw2 %2, %0")

(define_insn "andsi3" [(set (match_operand:SI 0 "nonimmediate_operand" "=mr") (and:SI (match_operand:SI 1 "general_operand" "mri") (match_operand:SI 2 "general_operand" "mri")))] "" "andw3 %2, %1, %0")

(define_insn "" [(set (match_operand:HI 0 "nonimmediate_operand" "=mr") (and:HI (match_operand:HI 1 "nonimmediate_operand" "0") (match_operand:HI 2 "general_operand" "mri")))] "" "andh2 %2, %0")

(define_insn "andhi3" [(set (match_operand:HI 0 "nonimmediate_operand" "=mr") (and:HI (match_operand:HI 1 "general_operand" "mri") (match_operand:HI 2 "general_operand" "mri")))] "" "andh3 %2, %1, %0")

(define_insn "" [(set (match_operand:QI 0 "nonimmediate_operand" "=mr") (and:QI (match_operand:QI 1 "nonimmediate_operand" "0") (match_operand:QI 2 "general_operand" "mri")))] "" "andb2 %2, %0")

(define_insn "andqi3" [(set (match_operand:QI 0 "nonimmediate_operand" "=mr") (and:QI (match_operand:QI 1 "general_operand" "mri") (match_operand:QI 2 "general_operand" "mri")))] "" "andb3 %2, %1, %0") ;; inclusive-or instructions

(define_insn "" [(set (match_operand:SI 0 "nonimmediate_operand" "=mr") (ior:SI (match_operand:SI 1 "nonimmediate_operand" "0") (match_operand:SI 2 "general_operand" "mri")))] "" "orw2 %2, %0")

(define_insn "iorsi3" [(set (match_operand:SI 0 "nonimmediate_operand" "=mr") (ior:SI (match_operand:SI 1 "general_operand" "mri") (match_operand:SI 2 "general_operand" "mri")))] "" "orw3 %2, %1, %0")

(define_insn "" [(set (match_operand:HI 0 "nonimmediate_operand" "=mr") (ior:HI (match_operand:HI 1 "nonimmediate_operand" "0") (match_operand:HI 2 "general_operand" "mri")))] "" "orh2 %2, %0")

(define_insn "iorhi3" [(set (match_operand:HI 0 "nonimmediate_operand" "=mr") (ior:HI (match_operand:HI 1 "general_operand" "mri") (match_operand:HI 2 "general_operand" "mri")))] "" "orh3 %2, %1, %0")

(define_insn "" [(set (match_operand:QI 0 "nonimmediate_operand" "=mr") (ior:QI (match_operand:QI 1 "nonimmediate_operand" "0") (match_operand:QI 2 "general_operand" "mri")))] "" "orb2 %2, %0")

(define_insn "iorqi3" [(set (match_operand:QI 0 "nonimmediate_operand" "=mr") (ior:QI (match_operand:QI 1 "general_operand" "mri") (match_operand:QI 2 "general_operand" "mri")))] "" "orb3 %2, %1, %0") ;; exclusive-or instructions

(define_insn "" [(set (match_operand:SI 0 "nonimmediate_operand" "=mr") (xor:SI (match_operand:SI 1 "nonimmediate_operand" "0") (match_operand:SI 2 "general_operand" "mri")))] "" "xorw2 %2, %0")

(define_insn "xorsi3" [(set (match_operand:SI 0 "nonimmediate_operand" "=mr") (xor:SI (match_operand:SI 1 "general_operand" "mri") (match_operand:SI 2 "general_operand" "mri")))] "" "xorw3 %2, %1, %0")

(define_insn "" [(set (match_operand:HI 0 "nonimmediate_operand" "=mr") (xor:HI (match_operand:HI 1 "nonimmediate_operand" "0") (match_operand:HI 2 "general_operand" "mri")))] "" "xorh2 %2, %0")

(define_insn "xorhi3" [(set (match_operand:HI 0 "nonimmediate_operand" "=mr") (xor:HI (match_operand:HI 1 "general_operand" "mri") (match_operand:HI 2 "general_operand" "mri")))] "" "xorh3 %2, %1, %0")

(define_insn "" [(set (match_operand:QI 0 "nonimmediate_operand" "=mr") (xor:QI (match_operand:QI 1 "nonimmediate_operand" "0") (match_operand:QI 2 "general_operand" "mri")))] "" "xorb2 %2, %0")

(define_insn "xorqi3" [(set (match_operand:QI 0 "nonimmediate_operand" "=mr") (xor:QI (match_operand:QI 1 "general_operand" "mri") (match_operand:QI 2 "general_operand" "mri")))] "" "xorb3 %2, %1, %0") ;; arithmetic shift instructions

(define_insn "ashlsi3" [(set (match_operand:SI 0 "nonimmediate_operand" "=mr") (ashift:SI (match_operand:SI 1 "general_operand" "mri") (match_operand:SI 2 "general_operand" "mri")))] "" "LLSW3 %2, %1, %0")

(define_insn "ashrsi3" [(set (match_operand:SI 0 "nonimmediate_operand" "=mr") (ashiftrt:SI (match_operand:SI 1 "general_operand" "mri") (match_operand:SI 2 "general_operand" "mri")))] "" "ARSW3 %2, %1, %0")

;; logical shift instructions

(define_insn "lshrsi3" [(set (match_operand:SI 0 "nonimmediate_operand" "=mr") (lshiftrt:SI (match_operand:SI 1 "general_operand" "mri") (match_operand:SI 2 "general_operand" "mri")))] "" "LRSW3 %2, %1, %0")

;; rotate instruction

(define_insn "rotrsi3" [(set (match_operand:SI 0 "nonimmediate_operand" "=mr") (rotatert: SI (match_operand:SI 1 "general_operand" "mri") (match_operand:SI 2 "general_operand" "mri")))] "" "ROTW %2, %1, %0") ;; negate instructions

(define_insn "negsi2" [(set (match_operand:SI 0 "nonimmediate_operand" "=mr") (neg:SI (match_operand:SI 1 "general_operand" "mri")))] "" "mnegw %1, %0")

(define_insn "neghi2" [(set (match_operand:HI 0 "nonimmediate_operand" "=mr") (neg:HI (match_operand:HI 1 "general_operand" "mri")))] "" "mnegh %1, %0")

;; complement instructions

(define_insn "one_cmplsi2" [(set (match_operand:SI 0 "nonimmediate_operand" "=mr") (not:SI (match_operand:SI 1 "general_operand" "mri")))] "" "mcomw %1, %0")

(define_insn "one_cmplhi2" [(set (match_operand:HI 0 "nonimmediate_operand" "=mr") (not:HI (match_operand:HI 1 "general_operand" "mri")))] "" "mcomh %1, %0")

(define_insn "one_cmplqi2" [(set (match_operand:QI 0 "nonimmediate_operand" "=mr") (not:QI (match_operand:QI 1 "general_operand" "mri")))] "" "mcomb %1, %0") ;; test instruction

;; We don't want to allow a constant operand for test insns because ;; (set (cc0) (const_int foo)) has no mode information. Such insns will ;; be folded while optimizing anyway.

(define_insn "tstsi" [(set (cc0) (match_operand:SI 0 "nonimmediate_operand" "mr"))] "" "TSTW %0")

(define_insn "tsthi" [(set (cc0) (match_operand:HI 0 "nonimmediate_operand" "mr"))] "" "TSTH %0")

(define_insn "tstqi" [(set (cc0) (match_operand:QI 0 "nonimmediate_operand" "mr"))] "" "TSTB {sbyte}%0")

;; compare instruction

(define_insn "cmpsi" [(set (cc0) (compare (match_operand:SI 0 "nonimmediate_operand" "mr") (match_operand:SI 1 "general_operand" "mri")))] "" "CMPW %1, %0")

(define_insn "cmphi" [(set (cc0) (compare (match_operand:HI 0 "nonimmediate_operand" "mr") (match_operand:HI 1 "general_operand" "mri")))] "" "* {

if (GET_CODE (operands[1]) == CONST_INT && ((unsigned long)INTVAL (operands[1]) & 0x8000L)) operands[1] = gen_rtx(CONST_INT, SImode, INTVAL(operands[1]) | 0xffff0000L);

output_asm_insn("CMPH %1, %0",operands);

return ""; }")

(define_insn "cmpqi" [(set (cc0) (compare (match_operand:QI 0 "nonimmediate_operand" "mr") (match_operand:QI 1 "general_operand" "mri")))] "" "* {

if (GET_CODE (operands[1]) == CONST_INT && ((unsigned long)INTVAL (operands[1]) & 0x80L)) operands[1] = gen_rtx(CONST_INT, SImode, INTVAL(operands[1]) | 0xffffff00L);

output_asm_insn("CMPB {sbyte}%1, {sbyte}%0",operands);

return ""; }") ;; truncate instructions

(define_insn "" [(set (match_operand:SF 0 "register_operand" "=r") (float_truncate:SF (match_operand:DF 1 "general_operand" "orF"))) (clobber (reg:SI 1)) (clobber (reg:SI 2))] "REGNO (operands[0]) == 0" "* { output_push_double(&operands[1]); output_asm_insn("call &2, _fdtos", operands);

return ""; }")

(define_expand "truncdfsf2" [(parallel [(set (reg:SF 0) (float_truncate:SF (match_operand:DF 1 "general_operand" "orF"))) (clobber (reg:SI 1)) (clobber (reg:SI 2))]) (set (match_operand:SF 0 "nonimmediate_operand" "=mr") (reg:SF 0))] "" "")

(define_insn "truncsihi2" [(set (match_operand:HI 0 "nonimmediate_operand" "=mr") (truncate:HI (match_operand:SI 1 "general_operand" "mri")))] "" "movtwh %1, %0")

(define_insn "truncsiqi2" [(set (match_operand:QI 0 "nonimmediate_operand" "=mr") (truncate:QI (match_operand:SI 1 "general_operand" "mri")))] "" "movtwb %1, %0")

(define_insn "trunchiqi2" [(set (match_operand:QI 0 "nonimmediate_operand" "=mr") (truncate:QI (match_operand:HI 1 "general_operand" "mri")))] "" "movthb %1, %0") ;; sign-extend move instructions

(define_insn "" [(set (match_operand:DF 0 "register_operand" "=r") (float_extend:DF (match_operand:SF 1 "general_operand" "mrF"))) (clobber (reg:SI 2))] "REGNO (operands[0]) == 0" "* { output_asm_insn("pushw %1", operands); output_asm_insn("call &1, _fstod", operands);

return ""; }")

(define_expand "extendsfdf2" [(parallel [(set (reg:DF 0) (float_extend:DF (match_operand:SF 1 "general_operand" "mrF"))) (clobber (reg:SI 2))]) (set (match_operand:DF 0 "nonimmediate_operand" "=or") (reg:DF 0))] "" "")

(define_insn "extendhisi2" [(set (match_operand:SI 0 "nonimmediate_operand" "=mr") (sign_extend:SI (match_operand:HI 1 "general_operand" "mri")))] "" "movbhw %1, %0")

(define_insn "extendqisi2" [(set (match_operand:SI 0 "nonimmediate_operand" "=mr") (sign_extend:SI (match_operand:QI 1 "general_operand" "mri")))] "" "movbbw %1, %0")

(define_insn "extendqihi2" [(set (match_operand:HI 0 "nonimmediate_operand" "=mr") (sign_extend:HI (match_operand:QI 1 "general_operand" "mri")))] "" "movbbh %1, %0")

;; zero-extend move instructions

(define_insn "zero_extendhisi2" [(set (match_operand:SI 0 "nonimmediate_operand" "=mr") (zero_extend:SI (match_operand:HI 1 "general_operand" "mri")))] "" "movzhw %1, %0")

(define_insn "zero_extendqisi2" [(set (match_operand:SI 0 "nonimmediate_operand" "=mr") (zero_extend:SI (match_operand:QI 1 "general_operand" "mri")))] "" "movzbw %1, %0")

(define_insn "zero_extendqihi2" [(set (match_operand:HI 0 "nonimmediate_operand" "=mr") (zero_extend:HI (match_operand:QI 1 "general_operand" "mri")))] "" "movzbh %1, %0") ;; bit field instructions

(define_insn "extzv" [(set (match_operand:SI 0 "nonimmediate_operand" "=mr") (zero_extract:SI (match_operand:SI 1 "general_operand" "mri") (match_operand:SI 2 "immediate_operand" "i") (match_operand:SI 3 "general_operand" "mri")))] "" "* {

operands[2] = gen_rtx(CONST_INT, SImode, INTVAL(operands[2]) - 1); output_asm_insn("EXTFW %2, %3, %1, %0",operands);

return ""; }")

(define_insn "" [(set (match_operand:SI 0 "nonimmediate_operand" "=mr") (zero_extract:SI (match_operand:HI 1 "general_operand" "mri") (match_operand:SI 2 "immediate_operand" "i") (match_operand:SI 3 "general_operand" "mri")))] "" "* {

operands[2] = gen_rtx(CONST_INT, SImode, INTVAL(operands[2]) - 1); output_asm_insn("EXTFH %2, %3, {uhalf}%1, {uword}%0",operands);

return ""; }")

(define_insn "" [(set (match_operand:SI 0 "nonimmediate_operand" "=mr") (zero_extract:SI (match_operand:QI 1 "general_operand" "mri") (match_operand:SI 2 "immediate_operand" "i") (match_operand:SI 3 "general_operand" "mri")))] "" "* {

operands[2] = gen_rtx(CONST_INT, SImode, INTVAL(operands[2]) - 1); output_asm_insn("EXTFB %2, %3, {ubyte}%1, {uword}%0",operands);

return ""; }")

(define_insn "insv" [(set (zero_extract:SI (match_operand:SI 0 "nonimmediate_operand" "+mr") (match_operand:SI 1 "immediate_operand" "i") (match_operand:SI 2 "general_operand" "mri")) (match_operand:SI 3 "general_operand" "mri"))] "" "* {

operands[1] = gen_rtx(CONST_INT, SImode, INTVAL(operands[1]) - 1); output_asm_insn("INSFW %1, %2, %3, %0",operands);

return ""; }")

(define_insn "" [(set (zero_extract:SI (match_operand:HI 0 "nonimmediate_operand" "+mr") (match_operand:SI 1 "immediate_operand" "i") (match_operand:SI 2 "general_operand" "mri")) (match_operand:SI 3 "general_operand" "mri"))] "" "* {

operands[1] = gen_rtx(CONST_INT, SImode, INTVAL(operands[1]) - 1); output_asm_insn("INSFH %1, %2, {uword}%3, {uhalf}%0",operands);

return ""; }")

(define_insn "" [(set (zero_extract:SI (match_operand:QI 0 "nonimmediate_operand" "+mr") (match_operand:SI 1 "immediate_operand" "i") (match_operand:SI 2 "general_operand" "mri")) (match_operand:SI 3 "general_operand" "mri"))] "" "* {

operands[1] = gen_rtx(CONST_INT, SImode, INTVAL(operands[1]) - 1); output_asm_insn("INSFB %1, %2, {uword}%3, {ubyte}%0",operands);

return ""; }") ;; conditional branch instructions

(define_insn "beq" [(set (pc) (if_then_else (eq (cc0) (const_int 0)) (label_ref (match_operand 0 "" "")) (pc)))] "" "je %l0")

(define_insn "bne" [(set (pc) (if_then_else (ne (cc0) (const_int 0)) (label_ref (match_operand 0 "" "")) (pc)))] "" "jne %l0")

(define_insn "bgt" [(set (pc) (if_then_else (gt (cc0) (const_int 0)) (label_ref (match_operand 0 "" "")) (pc)))] "" "jg %l0")

(define_insn "bgtu" [(set (pc) (if_then_else (gtu (cc0) (const_int 0)) (label_ref (match_operand 0 "" "")) (pc)))] "" "jgu %l0")

(define_insn "blt" [(set (pc) (if_then_else (lt (cc0) (const_int 0)) (label_ref (match_operand 0 "" "")) (pc)))] "" "jl %l0")

(define_insn "bltu" [(set (pc) (if_then_else (ltu (cc0) (const_int 0)) (label_ref (match_operand 0 "" "")) (pc)))] "" "jlu %l0")

(define_insn "bge" [(set (pc) (if_then_else (ge (cc0) (const_int 0)) (label_ref (match_operand 0 "" "")) (pc)))] "" "jge %l0")

(define_insn "bgeu" [(set (pc) (if_then_else (geu (cc0) (const_int 0)) (label_ref (match_operand 0 "" "")) (pc)))] "" "jgeu %l0")

(define_insn "ble" [(set (pc) (if_then_else (le (cc0) (const_int 0)) (label_ref (match_operand 0 "" "")) (pc)))] "" "jle %l0")

(define_insn "bleu" [(set (pc) (if_then_else (leu (cc0) (const_int 0)) (label_ref (match_operand 0 "" "")) (pc)))] "" "jleu %l0") ;; reverse-conditional branch instructions

(define_insn "" [(set (pc) (if_then_else (eq (cc0) (const_int 0)) (pc) (label_ref (match_operand 0 "" ""))))] "" "jne %l0")

(define_insn "" [(set (pc) (if_then_else (ne (cc0) (const_int 0)) (pc) (label_ref (match_operand 0 "" ""))))] "" "je %l0")

(define_insn "" [(set (pc) (if_then_else (gt (cc0) (const_int 0)) (pc) (label_ref (match_operand 0 "" ""))))] "" "jle %l0")

(define_insn "" [(set (pc) (if_then_else (gtu (cc0) (const_int 0)) (pc) (label_ref (match_operand 0 "" ""))))] "" "jleu %l0")

(define_insn "" [(set (pc) (if_then_else (lt (cc0) (const_int 0)) (pc) (label_ref (match_operand 0 "" ""))))] "" "jge %l0")

(define_insn "" [(set (pc) (if_then_else (ltu (cc0) (const_int 0)) (pc) (label_ref (match_operand 0 "" ""))))] "" "jgeu %l0")

(define_insn "" [(set (pc) (if_then_else (ge (cc0) (const_int 0)) (pc) (label_ref (match_operand 0 "" ""))))] "" "jl %l0")

(define_insn "" [(set (pc) (if_then_else (geu (cc0) (const_int 0)) (pc) (label_ref (match_operand 0 "" ""))))] "" "jlu %l0")

(define_insn "" [(set (pc) (if_then_else (le (cc0) (const_int 0)) (pc) (label_ref (match_operand 0 "" ""))))] "" "jg %l0")

(define_insn "" [(set (pc) (if_then_else (leu (cc0) (const_int 0)) (pc) (label_ref (match_operand 0 "" ""))))] "" "jgu %l0") ;; call instructions

(define_insn "call" [(call (match_operand:QI 0 "memory_operand" "m") (match_operand:SI 1 "immediate_operand" "i"))] "" "call %1/4, %0")

(define_insn "call_value" [(set (match_operand 0 "register_operand" "=r") (call (match_operand:QI 1 "memory_operand" "m") (match_operand:SI 2 "immediate_operand" "i")))] "" "call %2/4, %1")

;; No-op instruction

(define_insn "nop" [(const_int 0)] "" "NOP")

;; jump through a dispatch table instruction

(define_expand "casesi" [(use (match_operand:SI 0 "general_operand" "mri")) (set (cc0) (compare (match_dup 5) (match_operand:SI 1 "general_operand" "mri"))) (set (pc) (if_then_else (lt (cc0) (const_int 0)) (label_ref (match_operand 4 "" "")) (pc))) (set (match_dup 5) (minus:SI (match_dup 5) (match_dup 1))) (set (cc0) (compare (match_dup 5) (match_operand:SI 2 "general_operand" "mri"))) (set (pc) (if_then_else (gtu (cc0) (const_int 0)) (label_ref (match_dup 4)) (pc))) (set (match_dup 5) (ashift:SI (match_dup 5) (const_int 2))) (set (pc) (mem:SI (plus:SI (label_ref (match_operand 3 "" "")) (match_dup 5))))] "" " { operands[5] = gen_reg_rtx(GET_MODE (operands[0])); emit_move_insn(operands[5], operands[0]); }")

;; jump instructions

(define_insn "indirect_jump" [(set (pc) (match_operand:SI 0 "address_operand" "p"))] "" "jmp %a0")

(define_insn "jump" [(set (pc) (label_ref (match_operand 0 "" "")))] "" "jmp %l0")

34 KiB Raw Blame History Unescape Escape

34 KiB

Raw Blame History