X-Git-Url: http://plrg.eecs.uci.edu/git/?a=blobdiff_plain;f=lib%2FTarget%2FARM%2FARMInstrInfo.td;h=a5719e4f131f38ca43ead7a09e193d81bdbd003c;hb=475871a144eb604ddaf37503397ba0941442e5fb;hp=bde81bcfe8ad8f06d94dfc08dccb04227cb5ed66;hpb=a8e2989ece6dc46df59b0768184028257f913843;p=oota-llvm.git diff --git a/lib/Target/ARM/ARMInstrInfo.td b/lib/Target/ARM/ARMInstrInfo.td index bde81bcfe8a..a5719e4f131 100644 --- a/lib/Target/ARM/ARMInstrInfo.td +++ b/lib/Target/ARM/ARMInstrInfo.td @@ -2,8 +2,7 @@ // // The LLVM Compiler Infrastructure // -// This file was developed by the "Instituto Nokia de Tecnologia" and -// is distributed under the University of Illinois Open Source +// This file is distributed under the University of Illinois Open Source // License. See LICENSE.TXT for details. // //===----------------------------------------------------------------------===// @@ -17,7 +16,8 @@ // // Type profiles. -def SDT_ARMCallSeq : SDTypeProfile<0, 1, [ SDTCisVT<0, i32> ]>; +def SDT_ARMCallSeqStart : SDCallSeqStart<[ SDTCisVT<0, i32> ]>; +def SDT_ARMCallSeqEnd : SDCallSeqEnd<[ SDTCisVT<0, i32>, SDTCisVT<1, i32> ]>; def SDT_ARMSaveCallPC : SDTypeProfile<0, 1, []>; @@ -39,22 +39,25 @@ def SDT_ARMCmp : SDTypeProfile<0, 2, [SDTCisSameAs<0, 1>]>; def SDT_ARMPICAdd : SDTypeProfile<1, 2, [SDTCisSameAs<0, 1>, SDTCisPtrTy<1>, SDTCisVT<2, i32>]>; +def SDT_ARMThreadPointer : SDTypeProfile<1, 0, [SDTCisPtrTy<0>]>; + // Node definitions. def ARMWrapper : SDNode<"ARMISD::Wrapper", SDTIntUnaryOp>; -def ARMWrapperCall : SDNode<"ARMISD::WrapperCall", SDTIntUnaryOp>; def ARMWrapperJT : SDNode<"ARMISD::WrapperJT", SDTIntBinOp>; -def ARMcallseq_start : SDNode<"ISD::CALLSEQ_START", SDT_ARMCallSeq, - [SDNPHasChain, SDNPOutFlag]>; -def ARMcallseq_end : SDNode<"ISD::CALLSEQ_END", SDT_ARMCallSeq, - [SDNPHasChain, SDNPOutFlag]>; +def ARMcallseq_start : SDNode<"ISD::CALLSEQ_START", SDT_ARMCallSeqStart, + [SDNPHasChain, SDNPOutFlag]>; +def ARMcallseq_end : SDNode<"ISD::CALLSEQ_END", SDT_ARMCallSeqEnd, + [SDNPHasChain, SDNPOptInFlag, SDNPOutFlag]>; def ARMcall : SDNode<"ARMISD::CALL", SDT_ARMcall, [SDNPHasChain, SDNPOptInFlag, SDNPOutFlag]>; +def ARMcall_pred : SDNode<"ARMISD::CALL_PRED", SDT_ARMcall, + [SDNPHasChain, SDNPOptInFlag, SDNPOutFlag]>; def ARMcall_nolink : SDNode<"ARMISD::CALL_NOLINK", SDT_ARMcall, [SDNPHasChain, SDNPOptInFlag, SDNPOutFlag]>; -def ARMretflag : SDNode<"ARMISD::RET_FLAG", SDTRet, +def ARMretflag : SDNode<"ARMISD::RET_FLAG", SDTNone, [SDNPHasChain, SDNPOptInFlag]>; def ARMcmov : SDNode<"ARMISD::CMOV", SDT_ARMCMov, @@ -71,12 +74,17 @@ def ARMbrjt : SDNode<"ARMISD::BR_JT", SDT_ARMBrJT, def ARMcmp : SDNode<"ARMISD::CMP", SDT_ARMCmp, [SDNPOutFlag]>; +def ARMcmpNZ : SDNode<"ARMISD::CMPNZ", SDT_ARMCmp, + [SDNPOutFlag]>; + def ARMpic_add : SDNode<"ARMISD::PIC_ADD", SDT_ARMPICAdd>; def ARMsrl_flag : SDNode<"ARMISD::SRL_FLAG", SDTIntUnaryOp, [SDNPOutFlag]>; def ARMsra_flag : SDNode<"ARMISD::SRA_FLAG", SDTIntUnaryOp, [SDNPOutFlag]>; def ARMrrx : SDNode<"ARMISD::RRX" , SDTIntUnaryOp, [SDNPInFlag ]>; +def ARMthread_pointer: SDNode<"ARMISD::THREAD_POINTER", SDT_ARMThreadPointer>; + //===----------------------------------------------------------------------===// // ARM Instruction Predicate Definitions. // @@ -138,31 +146,13 @@ def so_imm_neg : PatLeaf<(imm), [{ return ARM_AM::getSOImmVal(-(int)N->getValue()) != -1; }], so_imm_neg_XFORM>; -def so_imm_not : +def so_imm_not : PatLeaf<(imm), [{ return ARM_AM::getSOImmVal(~(int)N->getValue()) != -1; }], so_imm_not_XFORM>; // sext_16_node predicate - True if the SDNode is sign-extended 16 or more bits. def sext_16_node : PatLeaf<(i32 GPR:$a), [{ - return TLI.ComputeNumSignBits(SDOperand(N,0)) >= 17; -}]>; - - -// Break so_imm's up into two pieces. This handles immediates with up to 16 -// bits set in them. This uses so_imm2part to match and so_imm2part_[12] to -// get the first/second pieces. -def so_imm2part : PatLeaf<(imm), [{ - return ARM_AM::isSOImmTwoPartVal((unsigned)N->getValue()); -}]>; - -def so_imm2part_1 : SDNodeXFormgetValue()); - return CurDAG->getTargetConstant(ARM_AM::getSOImmVal(V), MVT::i32); -}]>; - -def so_imm2part_2 : SDNodeXFormgetValue()); - return CurDAG->getTargetConstant(ARM_AM::getSOImmVal(V), MVT::i32); + return CurDAG->ComputeNumSignBits(SDValue(N,0)) >= 17; }]>; @@ -174,11 +164,6 @@ def so_imm2part_2 : SDNodeXForm; -// Operand for printing out a condition code. -def CCOp : Operand { - let PrintMethod = "printCCOperand"; -} - // A list of registers separated by comma. Used by load/store multiple. def reglist : Operand { let PrintMethod = "printRegisterList"; @@ -218,6 +203,25 @@ def so_imm : Operand, let PrintMethod = "printSOImmOperand"; } +// Break so_imm's up into two pieces. This handles immediates with up to 16 +// bits set in them. This uses so_imm2part to match and so_imm2part_[12] to +// get the first/second pieces. +def so_imm2part : Operand, + PatLeaf<(imm), + [{ return ARM_AM::isSOImmTwoPartVal((unsigned)N->getValue()); }]> { + let PrintMethod = "printSOImm2PartOperand"; +} + +def so_imm2part_1 : SDNodeXFormgetValue()); + return CurDAG->getTargetConstant(ARM_AM::getSOImmVal(V), MVT::i32); +}]>; + +def so_imm2part_2 : SDNodeXFormgetValue()); + return CurDAG->getTargetConstant(ARM_AM::getSOImmVal(V), MVT::i32); +}]>; + // Define ARM specific addressing modes. @@ -275,6 +279,19 @@ def addrmodepc : Operand, let MIOperandInfo = (ops GPR, i32imm); } +// ARM Predicate operand. Default to 14 = always (AL). Second part is CC +// register whose default is 0 (no register). +def pred : PredicateOperand { + let PrintMethod = "printPredicateOperand"; +} + +// Conditional code result for instructions whose 's' bit is set, e.g. subs. +// +def cc_out : OptionalDefOperand { + let PrintMethod = "printSBitModifierOperand"; +} + //===----------------------------------------------------------------------===// // ARM Instruction flags. These need to match ARMInstrInfo.h. // @@ -313,6 +330,50 @@ def IndexModePre : IndexMode<1>; def IndexModePost : IndexMode<2>; //===----------------------------------------------------------------------===// +// ARM Instruction Format Definitions. +// + +// Format specifies the encoding used by the instruction. This is part of the +// ad-hoc solution used to emit machine instruction encodings by our machine +// code emitter. +class Format val> { + bits<5> Value = val; +} + +def Pseudo : Format<1>; +def MulFrm : Format<2>; +def MulSMLAW : Format<3>; +def MulSMULW : Format<4>; +def MulSMLA : Format<5>; +def MulSMUL : Format<6>; +def Branch : Format<7>; +def BranchMisc : Format<8>; + +def DPRdIm : Format<9>; +def DPRdReg : Format<10>; +def DPRdSoReg : Format<11>; +def DPRdMisc : Format<12>; +def DPRnIm : Format<13>; +def DPRnReg : Format<14>; +def DPRnSoReg : Format<15>; +def DPRIm : Format<16>; +def DPRReg : Format<17>; +def DPRSoReg : Format<18>; +def DPRImS : Format<19>; +def DPRRegS : Format<20>; +def DPRSoRegS : Format<21>; + +def LdFrm : Format<22>; +def StFrm : Format<23>; + +def ArithMisc : Format<24>; +def ThumbFrm : Format<25>; +def VFPFrm : Format<26>; + + + +//===----------------------------------------------------------------------===// + // ARM Instruction templates. // @@ -320,13 +381,15 @@ def IndexModePost : IndexMode<2>; class ARMPat : Pat { list Predicates = [IsARM]; } +class ARMV5TEPat : Pat { + list Predicates = [IsARM, HasV5TE]; +} class ARMV6Pat : Pat { list Predicates = [IsARM, HasV6]; } - class InstARM opcod, AddrMode am, SizeFlagVal sz, IndexMode im, - dag ops, string asmstr, string cstr> + Format f, string cstr> : Instruction { let Namespace = "ARM"; @@ -340,56 +403,98 @@ class InstARM opcod, AddrMode am, SizeFlagVal sz, IndexMode im, IndexMode IM = im; bits<2> IndexModeBits = IM.Value; - dag OperandList = ops; - let AsmString = asmstr; + Format F = f; + bits<5> Form = F.Value; + let Constraints = cstr; } -class PseudoInst pattern> - : InstARM<0, AddrModeNone, SizeSpecial, IndexModeNone, ops, asm, ""> { +class PseudoInst pattern> + : InstARM<0, AddrModeNone, SizeSpecial, IndexModeNone, Pseudo, ""> { + let OutOperandList = oops; + let InOperandList = iops; + let AsmString = asm; + let Pattern = pattern; +} + +// Almost all ARM instructions are predicable. +class I opcod, dag oops, dag iops, AddrMode am, SizeFlagVal sz, + IndexMode im, Format f, string opc, string asm, string cstr, + list pattern> + : InstARM { + let OutOperandList = oops; + let InOperandList = !con(iops, (ops pred:$p)); + let AsmString = !strconcat(opc, !strconcat("${p}", asm)); let Pattern = pattern; + list Predicates = [IsARM]; } -class I pattern> - // FIXME: Set all opcodes to 0 for now. - : InstARM<0, am, sz, im, ops, asm, cstr> { +// Same as I except it can optionally modify CPSR. Note it's modeled as +// an input operand since by default it's a zero register. It will +// become an implicit def once it's "flipped". +class sI opcod, dag oops, dag iops, AddrMode am, SizeFlagVal sz, + IndexMode im, Format f, string opc, string asm, string cstr, + list pattern> + : InstARM { + let OutOperandList = oops; + let InOperandList = !con(iops, (ops pred:$p, cc_out:$s)); + let AsmString = !strconcat(opc, !strconcat("${p}${s}", asm)); let Pattern = pattern; list Predicates = [IsARM]; } -class AI pattern> - : I; -class AI1 pattern> - : I; -class AI2 pattern> - : I; -class AI3 pattern> - : I; -class AI4 pattern> - : I; -class AIx2 pattern> - : I; +class AI opcod, dag oops, dag iops, Format f, string opc, + string asm, list pattern> + : I; +class AsI opcod, dag oops, dag iops, Format f, string opc, + string asm, list pattern> + : sI; +class AI1 opcod, dag oops, dag iops, Format f, string opc, + string asm, list pattern> + : I; +class AsI1 opcod, dag oops, dag iops, Format f, string opc, + string asm, list pattern> + : sI; +class AI2 opcod, dag oops, dag iops, Format f, string opc, + string asm, list pattern> + : I; +class AI3 opcod, dag oops, dag iops, Format f, string opc, + string asm, list pattern> + : I; +class AI4 opcod, dag oops, dag iops, Format f, string opc, + string asm, list pattern> + : I; +class AI1x2 opcod, dag oops, dag iops, Format f, string opc, + string asm, list pattern> + : I; // Pre-indexed ops -class AI2pr pattern> - : I; -class AI3pr pattern> - : I; +class AI2pr opcod, dag oops, dag iops, Format f, string opc, + string asm, string cstr, list pattern> + : I; +class AI3pr opcod, dag oops, dag iops, Format f, string opc, + string asm, string cstr, list pattern> + : I; // Post-indexed ops -class AI2po pattern> - : I; -class AI3po pattern> - : I; - -// BR_JT instructions -class JTI pattern> - : I; -class JTI1 pattern> - : I; -class JTI2 pattern> - : I; +class AI2po opcod, dag oops, dag iops, Format f, string opc, + string asm, string cstr, list pattern> + : I; +class AI3po opcod, dag oops, dag iops, Format f, string opc, + string asm, string cstr, list pattern> + : I; class BinOpFrag : PatFrag<(ops node:$LHS, node:$RHS), res>; @@ -398,82 +503,140 @@ class UnOpFrag : PatFrag<(ops node:$Src), res>; /// AI1_bin_irs - Defines a set of (op r, {so_imm|r|so_reg}) patterns for a /// binop that produces a value. -multiclass AI1_bin_irs { - def ri : AI1<(ops GPR:$dst, GPR:$a, so_imm:$b), - !strconcat(opc, " $dst, $a, $b"), +multiclass AsI1_bin_irs opcod, string opc, PatFrag opnode> { + def ri : AsI1; - def rr : AI1<(ops GPR:$dst, GPR:$a, GPR:$b), - !strconcat(opc, " $dst, $a, $b"), + def rr : AsI1; - def rs : AI1<(ops GPR:$dst, GPR:$a, so_reg:$b), - !strconcat(opc, " $dst, $a, $b"), + def rs : AsI1; } -/// AI1_bin0_irs - Defines a set of (op r, {so_imm|r|so_reg}) patterns. -/// Similar to AI1_bin_irs except the instruction does not produce a result. -multiclass AI1_bin0_irs { - def ri : AI1<(ops GPR:$a, so_imm:$b), - !strconcat(opc, " $a, $b"), - [(opnode GPR:$a, so_imm:$b)]>; - def rr : AI1<(ops GPR:$a, GPR:$b), - !strconcat(opc, " $a, $b"), - [(opnode GPR:$a, GPR:$b)]>; - def rs : AI1<(ops GPR:$a, so_reg:$b), - !strconcat(opc, " $a, $b"), - [(opnode GPR:$a, so_reg:$b)]>; -} - -/// AI1_bin_is - Defines a set of (op r, {so_imm|so_reg}) patterns for a binop. -multiclass AI1_bin_is { - def ri : AI1<(ops GPR:$dst, GPR:$a, so_imm:$b), - !strconcat(opc, " $dst, $a, $b"), +/// ASI1_bin_s_irs - Similar to AsI1_bin_irs except it sets the 's' bit so the +/// instruction modifies the CSPR register. +let Defs = [CPSR] in { +multiclass ASI1_bin_s_irs opcod, string opc, PatFrag opnode> { + def ri : AI1; - def rs : AI1<(ops GPR:$dst, GPR:$a, so_reg:$b), - !strconcat(opc, " $dst, $a, $b"), + def rr : AI1; + def rs : AI1; } +} -/// AI1_unary_irs - Defines a set of (op {so_imm|r|so_reg}) patterns for unary -/// ops. -multiclass AI1_unary_irs { - def i : AI1<(ops GPR:$dst, so_imm:$a), - !strconcat(opc, " $dst, $a"), - [(set GPR:$dst, (opnode so_imm:$a))]>; - def r : AI1<(ops GPR:$dst, GPR:$a), - !strconcat(opc, " $dst, $a"), - [(set GPR:$dst, (opnode GPR:$a))]>; - def s : AI1<(ops GPR:$dst, so_reg:$a), - !strconcat(opc, " $dst, $a"), - [(set GPR:$dst, (opnode so_reg:$a))]>; +/// AI1_cmp_irs - Defines a set of (op r, {so_imm|r|so_reg}) cmp / test +/// patterns. Similar to AsI1_bin_irs except the instruction does not produce +/// a explicit result, only implicitly set CPSR. +let Defs = [CPSR] in { +multiclass AI1_cmp_irs opcod, string opc, PatFrag opnode> { + def ri : AI1; + def rr : AI1; + def rs : AI1; +} } /// AI_unary_rrot - A unary operation with two forms: one whose operand is a /// register and one whose operand is a register rotated by 8/16/24. -multiclass AI_unary_rrot { - def r : AI<(ops GPR:$dst, GPR:$Src), - !strconcat(opc, " $dst, $Src"), +multiclass AI_unary_rrot opcod, string opc, PatFrag opnode> { + def r : AI, Requires<[IsARM, HasV6]>; - def r_rot : AI<(ops GPR:$dst, GPR:$Src, i32imm:$rot), - !strconcat(opc, " $dst, $Src, ror $rot"), + def r_rot : AI, Requires<[IsARM, HasV6]>; } /// AI_bin_rrot - A binary operation with two forms: one whose operand is a /// register and one whose operand is a register rotated by 8/16/24. -multiclass AI_bin_rrot { - def rr : AI<(ops GPR:$dst, GPR:$LHS, GPR:$RHS), - !strconcat(opc, " $dst, $LHS, $RHS"), +multiclass AI_bin_rrot opcod, string opc, PatFrag opnode> { + def rr : AI, Requires<[IsARM, HasV6]>; - def rr_rot : AI<(ops GPR:$dst, GPR:$LHS, GPR:$RHS, i32imm:$rot), - !strconcat(opc, " $dst, $LHS, $RHS, ror $rot"), + def rr_rot : AI, Requires<[IsARM, HasV6]>; } +// Special cases. +class XI opcod, dag oops, dag iops, AddrMode am, SizeFlagVal sz, + IndexMode im, Format f, string asm, string cstr, list pattern> + : InstARM { + let OutOperandList = oops; + let InOperandList = iops; + let AsmString = asm; + let Pattern = pattern; + list Predicates = [IsARM]; +} + +class AXI opcod, dag oops, dag iops, Format f, string asm, + list pattern> + : XI; +class AXI1 opcod, dag oops, dag iops, Format f, string asm, + list pattern> + : XI; +class AXI2 opcod, dag oops, dag iops, Format f, string asm, + list pattern> + : XI; +class AXI3 opcod, dag oops, dag iops, Format f, string asm, + list pattern> + : XI; +class AXI4 opcod, dag oops, dag iops, Format f, string asm, + list pattern> + : XI; + +class AXIx2 opcod, dag oops, dag iops, Format f, string asm, + list pattern> + : XI; + +// BR_JT instructions +class JTI opcod, dag oops, dag iops, string asm, list pattern> + : XI; +class JTI1 opcod, dag oops, dag iops, string asm, list pattern> + : XI; +class JTI2 opcod, dag oops, dag iops, string asm, list pattern> + : XI; + +/// AsXI1_bin_c_irs - Same as AsI1_bin_irs but without the predicate operand and +/// setting carry bit. But it can optionally set CPSR. +let Uses = [CPSR] in { +multiclass AsXI1_bin_c_irs opcod, string opc, PatFrag opnode> { + def ri : AXI1; + def rr : AXI1; + def rs : AXI1; +} +} //===----------------------------------------------------------------------===// // Instructions @@ -482,253 +645,336 @@ multiclass AI_bin_rrot { //===----------------------------------------------------------------------===// // Miscellaneous Instructions. // -def IMPLICIT_DEF_GPR : -PseudoInst<(ops GPR:$rD), - "@ IMPLICIT_DEF_GPR $rD", - [(set GPR:$rD, (undef))]>; - /// CONSTPOOL_ENTRY - This instruction represents a floating constant pool in /// the function. The first operand is the ID# for this instruction, the second /// is the index into the MachineConstantPool that this is, the third is the /// size in bytes of this constant pool entry. +let isNotDuplicable = 1 in def CONSTPOOL_ENTRY : -PseudoInst<(ops cpinst_operand:$instid, cpinst_operand:$cpidx, i32imm:$size), +PseudoInst<(outs), (ins cpinst_operand:$instid, cpinst_operand:$cpidx, + i32imm:$size), "${instid:label} ${cpidx:cpentry}", []>; +let Defs = [SP], Uses = [SP] in { def ADJCALLSTACKUP : -PseudoInst<(ops i32imm:$amt), - "@ ADJCALLSTACKUP $amt", - [(ARMcallseq_end imm:$amt)]>, Imp<[SP],[SP]>; +PseudoInst<(outs), (ins i32imm:$amt1, i32imm:$amt2, pred:$p), + "@ ADJCALLSTACKUP $amt1", + [(ARMcallseq_end imm:$amt1, imm:$amt2)]>; def ADJCALLSTACKDOWN : -PseudoInst<(ops i32imm:$amt), +PseudoInst<(outs), (ins i32imm:$amt, pred:$p), "@ ADJCALLSTACKDOWN $amt", - [(ARMcallseq_start imm:$amt)]>, Imp<[SP],[SP]>; + [(ARMcallseq_start imm:$amt)]>; +} def DWARF_LOC : -PseudoInst<(ops i32imm:$line, i32imm:$col, i32imm:$file), +PseudoInst<(outs), (ins i32imm:$line, i32imm:$col, i32imm:$file), ".loc $file, $line, $col", [(dwarf_loc (i32 imm:$line), (i32 imm:$col), (i32 imm:$file))]>; -def DWARF_LABEL : -PseudoInst<(ops i32imm:$id), - "\nLdebug_loc${id:no_hash}:", - [(dwarf_label (i32 imm:$id))]>; - -def PICADD : AI1<(ops GPR:$dst, GPR:$a, pclabel:$cp), - "\n$cp:\n\tadd $dst, pc, $a", - [(set GPR:$dst, (ARMpic_add GPR:$a, imm:$cp))]>; -let AddedComplexity = 10 in -def PICLD : AI2<(ops GPR:$dst, addrmodepc:$addr), - "\n${addr:label}:\n\tldr $dst, $addr", +let isNotDuplicable = 1 in { +def PICADD : AXI1<0x0, (outs GPR:$dst), (ins GPR:$a, pclabel:$cp, pred:$p), + Pseudo, "$cp:\n\tadd$p $dst, pc, $a", + [(set GPR:$dst, (ARMpic_add GPR:$a, imm:$cp))]>; + +let AddedComplexity = 10 in { +let isSimpleLoad = 1 in +def PICLD : AXI2<0x0, (outs GPR:$dst), (ins addrmodepc:$addr, pred:$p), + Pseudo, "${addr:label}:\n\tldr$p $dst, $addr", [(set GPR:$dst, (load addrmodepc:$addr))]>; +def PICLDZH : AXI3<0x0, (outs GPR:$dst), (ins addrmodepc:$addr, pred:$p), + Pseudo, "${addr:label}:\n\tldr${p}h $dst, $addr", + [(set GPR:$dst, (zextloadi16 addrmodepc:$addr))]>; + +def PICLDZB : AXI2<0x0, (outs GPR:$dst), (ins addrmodepc:$addr, pred:$p), + Pseudo, "${addr:label}:\n\tldr${p}b $dst, $addr", + [(set GPR:$dst, (zextloadi8 addrmodepc:$addr))]>; + +def PICLDH : AXI3<0x0, (outs GPR:$dst), (ins addrmodepc:$addr, pred:$p), + Pseudo, "${addr:label}:\n\tldr${p}h $dst, $addr", + [(set GPR:$dst, (extloadi16 addrmodepc:$addr))]>; + +def PICLDB : AXI2<0x0, (outs GPR:$dst), (ins addrmodepc:$addr, pred:$p), + Pseudo, "${addr:label}:\n\tldr${p}b $dst, $addr", + [(set GPR:$dst, (extloadi8 addrmodepc:$addr))]>; + +def PICLDSH : AXI3<0x0, (outs GPR:$dst), (ins addrmodepc:$addr, pred:$p), + Pseudo, "${addr:label}:\n\tldr${p}sh $dst, $addr", + [(set GPR:$dst, (sextloadi16 addrmodepc:$addr))]>; + +def PICLDSB : AXI3<0x0, (outs GPR:$dst), (ins addrmodepc:$addr, pred:$p), + Pseudo, "${addr:label}:\n\tldr${p}sb $dst, $addr", + [(set GPR:$dst, (sextloadi8 addrmodepc:$addr))]>; +} +let AddedComplexity = 10 in { +def PICSTR : AXI2<0x0, (outs), (ins GPR:$src, addrmodepc:$addr, pred:$p), + Pseudo, "${addr:label}:\n\tstr$p $src, $addr", + [(store GPR:$src, addrmodepc:$addr)]>; + +def PICSTRH : AXI3<0x0, (outs), (ins GPR:$src, addrmodepc:$addr, pred:$p), + Pseudo, "${addr:label}:\n\tstr${p}h $src, $addr", + [(truncstorei16 GPR:$src, addrmodepc:$addr)]>; + +def PICSTRB : AXI2<0x0, (outs), (ins GPR:$src, addrmodepc:$addr, pred:$p), + Pseudo, "${addr:label}:\n\tstr${p}b $src, $addr", + [(truncstorei8 GPR:$src, addrmodepc:$addr)]>; +} +} + //===----------------------------------------------------------------------===// // Control Flow Instructions. // let isReturn = 1, isTerminator = 1 in - def BX_RET : AI<(ops), "bx lr", [(ARMretflag)]>; + def BX_RET : AI<0x1, (outs), (ins), BranchMisc, "bx", " lr", [(ARMretflag)]>; // FIXME: remove when we have a way to marking a MI with these properties. -let isLoad = 1, isReturn = 1, isTerminator = 1 in - def LDM_RET : AI4<(ops addrmode4:$addr, reglist:$dst1, variable_ops), - "ldm${addr:submode} $addr, $dst1", +// FIXME: $dst1 should be a def. But the extra ops must be in the end of the +// operand list. +let isReturn = 1, isTerminator = 1 in + def LDM_RET : AXI4<0x0, (outs), + (ins addrmode4:$addr, pred:$p, reglist:$dst1, variable_ops), + LdFrm, "ldm${p}${addr:submode} $addr, $dst1", []>; -let isCall = 1, noResults = 1, +let isCall = 1, Defs = [R0, R1, R2, R3, R12, LR, - D0, D1, D2, D3, D4, D5, D6, D7] in { - def BL : AI<(ops i32imm:$func, variable_ops), - "bl ${func:call}", - [(ARMcall tglobaladdr:$func)]>; + D0, D1, D2, D3, D4, D5, D6, D7, CPSR] in { + def BL : AXI<0xB, (outs), (ins i32imm:$func, variable_ops), Branch, + "bl ${func:call}", + [(ARMcall tglobaladdr:$func)]>; + + def BL_pred : AI<0xB, (outs), (ins i32imm:$func, variable_ops), + Branch, "bl", " ${func:call}", + [(ARMcall_pred tglobaladdr:$func)]>; + // ARMv5T and above - def BLX : AI<(ops GPR:$dst, variable_ops), - "blx $dst", - [(ARMcall GPR:$dst)]>, Requires<[IsARM, HasV5T]>; - // ARMv4T - def BX : AIx2<(ops GPR:$dst, variable_ops), - "mov lr, pc\n\tbx $dst", - [(ARMcall_nolink GPR:$dst)]>; + def BLX : AXI<0x2, (outs), (ins GPR:$func, variable_ops), BranchMisc, + "blx $func", + [(ARMcall GPR:$func)]>, Requires<[IsARM, HasV5T]>; + let Uses = [LR] in { + // ARMv4T + def BX : AXIx2<0x0, (outs), (ins GPR:$func, variable_ops), + BranchMisc, "mov lr, pc\n\tbx $func", + [(ARMcall_nolink GPR:$func)]>; + } } -let isBranch = 1, isTerminator = 1, isBarrier = 1 in { - def B : AI<(ops brtarget:$dst), "b $dst", - [(br bb:$dst)]>; - - def BR_JTr : JTI<(ops GPR:$dst, jtblock_operand:$jt, i32imm:$id), - "mov pc, $dst \n$jt", - [(ARMbrjt GPR:$dst, tjumptable:$jt, imm:$id)]>; - def BR_JTm : JTI2<(ops addrmode2:$dst, jtblock_operand:$jt, i32imm:$id), - "ldr pc, $dst \n$jt", - [(ARMbrjt (i32 (load addrmode2:$dst)), tjumptable:$jt, +let isBranch = 1, isTerminator = 1 in { + // B is "predicable" since it can be xformed into a Bcc. + let isBarrier = 1 in { + let isPredicable = 1 in + def B : AXI<0xA, (outs), (ins brtarget:$target), Branch, "b $target", + [(br bb:$target)]>; + + let isNotDuplicable = 1, isIndirectBranch = 1 in { + def BR_JTr : JTI<0x0, (outs), (ins GPR:$target, jtblock_operand:$jt, i32imm:$id), + "mov pc, $target \n$jt", + [(ARMbrjt GPR:$target, tjumptable:$jt, imm:$id)]>; + def BR_JTm : JTI2<0x0, (outs), (ins addrmode2:$target, jtblock_operand:$jt, i32imm:$id), + "ldr pc, $target \n$jt", + [(ARMbrjt (i32 (load addrmode2:$target)), tjumptable:$jt, imm:$id)]>; - def BR_JTadd : JTI1<(ops GPR:$dst, GPR:$idx, jtblock_operand:$jt, i32imm:$id), - "add pc, $dst, $idx \n$jt", - [(ARMbrjt (add GPR:$dst, GPR:$idx), tjumptable:$jt, + def BR_JTadd : JTI1<0x0, (outs), (ins GPR:$target, GPR:$idx, jtblock_operand:$jt, + i32imm:$id), + "add pc, $target, $idx \n$jt", + [(ARMbrjt (add GPR:$target, GPR:$idx), tjumptable:$jt, imm:$id)]>; + } + } + + // FIXME: should be able to write a pattern for ARMBrcond, but can't use + // a two-value operand where a dag node expects two operands. :( + def Bcc : AI<0xA, (outs), (ins brtarget:$target), Branch, + "b", " $target", + [/*(ARMbrcond bb:$target, imm:$cc, CCR:$ccr)*/]>; } -let isBranch = 1, isTerminator = 1, noResults = 1, isBarrier = 1 in - def Bcc : AI<(ops brtarget:$dst, CCOp:$cc), "b$cc $dst", - [(ARMbrcond bb:$dst, imm:$cc)]>; - //===----------------------------------------------------------------------===// // Load / store Instructions. // // Load -let isLoad = 1 in { -def LDR : AI2<(ops GPR:$dst, addrmode2:$addr), - "ldr $dst, $addr", +let isSimpleLoad = 1 in +def LDR : AI2<0x0, (outs GPR:$dst), (ins addrmode2:$addr), LdFrm, + "ldr", " $dst, $addr", [(set GPR:$dst, (load addrmode2:$addr))]>; +// Special LDR for loads from non-pc-relative constpools. +let isSimpleLoad = 1, mayLoad = 1, isReMaterializable = 1 in +def LDRcp : AI2<0x0, (outs GPR:$dst), (ins addrmode2:$addr), LdFrm, + "ldr", " $dst, $addr", []>; + // Loads with zero extension -def LDRH : AI3<(ops GPR:$dst, addrmode3:$addr), - "ldrh $dst, $addr", +def LDRH : AI3<0xB, (outs GPR:$dst), (ins addrmode3:$addr), LdFrm, + "ldr", "h $dst, $addr", [(set GPR:$dst, (zextloadi16 addrmode3:$addr))]>; -def LDRB : AI2<(ops GPR:$dst, addrmode2:$addr), - "ldrb $dst, $addr", +def LDRB : AI2<0x1, (outs GPR:$dst), (ins addrmode2:$addr), LdFrm, + "ldr", "b $dst, $addr", [(set GPR:$dst, (zextloadi8 addrmode2:$addr))]>; // Loads with sign extension -def LDRSH : AI3<(ops GPR:$dst, addrmode3:$addr), - "ldrsh $dst, $addr", +def LDRSH : AI3<0xE, (outs GPR:$dst), (ins addrmode3:$addr), LdFrm, + "ldr", "sh $dst, $addr", [(set GPR:$dst, (sextloadi16 addrmode3:$addr))]>; -def LDRSB : AI3<(ops GPR:$dst, addrmode3:$addr), - "ldrsb $dst, $addr", +def LDRSB : AI3<0xD, (outs GPR:$dst), (ins addrmode3:$addr), LdFrm, + "ldr", "sb $dst, $addr", [(set GPR:$dst, (sextloadi8 addrmode3:$addr))]>; +let mayLoad = 1 in { // Load doubleword -def LDRD : AI3<(ops GPR:$dst, addrmode3:$addr), - "ldrd $dst, $addr", +def LDRD : AI3<0xD, (outs GPR:$dst), (ins addrmode3:$addr), LdFrm, + "ldr", "d $dst, $addr", []>, Requires<[IsARM, HasV5T]>; // Indexed loads -def LDR_PRE : AI2pr<(ops GPR:$dst, GPR:$base_wb, addrmode2:$addr), - "ldr $dst, $addr!", "$addr.base = $base_wb", []>; +def LDR_PRE : AI2pr<0x0, (outs GPR:$dst, GPR:$base_wb), + (ins addrmode2:$addr), LdFrm, + "ldr", " $dst, $addr!", "$addr.base = $base_wb", []>; -def LDR_POST : AI2po<(ops GPR:$dst, GPR:$base_wb, GPR:$base, am2offset:$offset), - "ldr $dst, [$base], $offset", "$base = $base_wb", []>; +def LDR_POST : AI2po<0x0, (outs GPR:$dst, GPR:$base_wb), + (ins GPR:$base, am2offset:$offset), LdFrm, + "ldr", " $dst, [$base], $offset", "$base = $base_wb", []>; -def LDRH_PRE : AI3pr<(ops GPR:$dst, GPR:$base_wb, addrmode3:$addr), - "ldrh $dst, $addr!", "$addr.base = $base_wb", []>; +def LDRH_PRE : AI3pr<0xB, (outs GPR:$dst, GPR:$base_wb), + (ins addrmode3:$addr), LdFrm, + "ldr", "h $dst, $addr!", "$addr.base = $base_wb", []>; -def LDRH_POST : AI3po<(ops GPR:$dst, GPR:$base_wb, GPR:$base,am3offset:$offset), - "ldrh $dst, [$base], $offset", "$base = $base_wb", []>; +def LDRH_POST : AI3po<0xB, (outs GPR:$dst, GPR:$base_wb), + (ins GPR:$base,am3offset:$offset), LdFrm, + "ldr", "h $dst, [$base], $offset", "$base = $base_wb", []>; -def LDRB_PRE : AI2pr<(ops GPR:$dst, GPR:$base_wb, addrmode2:$addr), - "ldrb $dst, $addr!", "$addr.base = $base_wb", []>; +def LDRB_PRE : AI2pr<0x1, (outs GPR:$dst, GPR:$base_wb), + (ins addrmode2:$addr), LdFrm, + "ldr", "b $dst, $addr!", "$addr.base = $base_wb", []>; -def LDRB_POST : AI2po<(ops GPR:$dst, GPR:$base_wb, GPR:$base,am2offset:$offset), - "ldrb $dst, [$base], $offset", "$base = $base_wb", []>; +def LDRB_POST : AI2po<0x1, (outs GPR:$dst, GPR:$base_wb), + (ins GPR:$base,am2offset:$offset), LdFrm, + "ldr", "b $dst, [$base], $offset", "$base = $base_wb", []>; -def LDRSH_PRE : AI3pr<(ops GPR:$dst, GPR:$base_wb, addrmode3:$addr), - "ldrsh $dst, $addr!", "$addr.base = $base_wb", []>; +def LDRSH_PRE : AI3pr<0xE, (outs GPR:$dst, GPR:$base_wb), + (ins addrmode3:$addr), LdFrm, + "ldr", "sh $dst, $addr!", "$addr.base = $base_wb", []>; -def LDRSH_POST: AI3po<(ops GPR:$dst, GPR:$base_wb, GPR:$base,am3offset:$offset), - "ldrsh $dst, [$base], $offset", "$base = $base_wb", []>; +def LDRSH_POST: AI3po<0xE, (outs GPR:$dst, GPR:$base_wb), + (ins GPR:$base,am3offset:$offset), LdFrm, + "ldr", "sh $dst, [$base], $offset", "$base = $base_wb", []>; -def LDRSB_PRE : AI3pr<(ops GPR:$dst, GPR:$base_wb, addrmode3:$addr), - "ldrsb $dst, $addr!", "$addr.base = $base_wb", []>; +def LDRSB_PRE : AI3pr<0xD, (outs GPR:$dst, GPR:$base_wb), + (ins addrmode3:$addr), LdFrm, + "ldr", "sb $dst, $addr!", "$addr.base = $base_wb", []>; -def LDRSB_POST: AI3po<(ops GPR:$dst, GPR:$base_wb, GPR:$base,am3offset:$offset), - "ldrsb $dst, [$base], $offset", "$base = $base_wb", []>; -} // isLoad +def LDRSB_POST: AI3po<0xD, (outs GPR:$dst, GPR:$base_wb), + (ins GPR:$base,am3offset:$offset), LdFrm, + "ldr", "sb $dst, [$base], $offset", "$base = $base_wb", []>; +} // Store -let isStore = 1 in { -def STR : AI2<(ops GPR:$src, addrmode2:$addr), - "str $src, $addr", +def STR : AI2<0x0, (outs), (ins GPR:$src, addrmode2:$addr), StFrm, + "str", " $src, $addr", [(store GPR:$src, addrmode2:$addr)]>; // Stores with truncate -def STRH : AI3<(ops GPR:$src, addrmode3:$addr), - "strh $src, $addr", +def STRH : AI3<0xB, (outs), (ins GPR:$src, addrmode3:$addr), StFrm, + "str", "h $src, $addr", [(truncstorei16 GPR:$src, addrmode3:$addr)]>; -def STRB : AI2<(ops GPR:$src, addrmode2:$addr), - "strb $src, $addr", +def STRB : AI2<0x1, (outs), (ins GPR:$src, addrmode2:$addr), StFrm, + "str", "b $src, $addr", [(truncstorei8 GPR:$src, addrmode2:$addr)]>; // Store doubleword -def STRD : AI3<(ops GPR:$src, addrmode3:$addr), - "strd $src, $addr", +let mayStore = 1 in +def STRD : AI3<0xF, (outs), (ins GPR:$src, addrmode3:$addr), StFrm, + "str", "d $src, $addr", []>, Requires<[IsARM, HasV5T]>; // Indexed stores -def STR_PRE : AI2pr<(ops GPR:$base_wb, GPR:$src, GPR:$base, am2offset:$offset), - "str $src, [$base, $offset]!", "$base = $base_wb", +def STR_PRE : AI2pr<0x0, (outs GPR:$base_wb), + (ins GPR:$src, GPR:$base, am2offset:$offset), StFrm, + "str", " $src, [$base, $offset]!", "$base = $base_wb", [(set GPR:$base_wb, (pre_store GPR:$src, GPR:$base, am2offset:$offset))]>; -def STR_POST : AI2po<(ops GPR:$base_wb, GPR:$src, GPR:$base,am2offset:$offset), - "str $src, [$base], $offset", "$base = $base_wb", +def STR_POST : AI2po<0x0, (outs GPR:$base_wb), + (ins GPR:$src, GPR:$base,am2offset:$offset), StFrm, + "str", " $src, [$base], $offset", "$base = $base_wb", [(set GPR:$base_wb, (post_store GPR:$src, GPR:$base, am2offset:$offset))]>; -def STRH_PRE : AI3pr<(ops GPR:$base_wb, GPR:$src, GPR:$base,am3offset:$offset), - "strh $src, [$base, $offset]!", "$base = $base_wb", +def STRH_PRE : AI3pr<0xB, (outs GPR:$base_wb), + (ins GPR:$src, GPR:$base,am3offset:$offset), StFrm, + "str", "h $src, [$base, $offset]!", "$base = $base_wb", [(set GPR:$base_wb, (pre_truncsti16 GPR:$src, GPR:$base,am3offset:$offset))]>; -def STRH_POST: AI3po<(ops GPR:$base_wb, GPR:$src, GPR:$base,am3offset:$offset), - "strh $src, [$base], $offset", "$base = $base_wb", +def STRH_POST: AI3po<0xB, (outs GPR:$base_wb), + (ins GPR:$src, GPR:$base,am3offset:$offset), StFrm, + "str", "h $src, [$base], $offset", "$base = $base_wb", [(set GPR:$base_wb, (post_truncsti16 GPR:$src, GPR:$base, am3offset:$offset))]>; -def STRB_PRE : AI2pr<(ops GPR:$base_wb, GPR:$src, GPR:$base,am2offset:$offset), - "strb $src, [$base, $offset]!", "$base = $base_wb", +def STRB_PRE : AI2pr<0x1, (outs GPR:$base_wb), + (ins GPR:$src, GPR:$base,am2offset:$offset), StFrm, + "str", "b $src, [$base, $offset]!", "$base = $base_wb", [(set GPR:$base_wb, (pre_truncsti8 GPR:$src, GPR:$base, am2offset:$offset))]>; -def STRB_POST: AI2po<(ops GPR:$base_wb, GPR:$src, GPR:$base,am2offset:$offset), - "strb $src, [$base], $offset", "$base = $base_wb", +def STRB_POST: AI2po<0x1, (outs GPR:$base_wb), + (ins GPR:$src, GPR:$base,am2offset:$offset), StFrm, + "str", "b $src, [$base], $offset", "$base = $base_wb", [(set GPR:$base_wb, (post_truncsti8 GPR:$src, GPR:$base, am2offset:$offset))]>; -} // isStore //===----------------------------------------------------------------------===// // Load / store multiple Instructions. // -let isLoad = 1 in -def LDM : AI4<(ops addrmode4:$addr, reglist:$dst1, variable_ops), - "ldm${addr:submode} $addr, $dst1", - []>; +// FIXME: $dst1 should be a def. +let mayLoad = 1 in +def LDM : AXI4<0x0, (outs), + (ins addrmode4:$addr, pred:$p, reglist:$dst1, variable_ops), + LdFrm, "ldm${p}${addr:submode} $addr, $dst1", + []>; -let isStore = 1 in -def STM : AI4<(ops addrmode4:$addr, reglist:$src1, variable_ops), - "stm${addr:submode} $addr, $src1", - []>; +let mayStore = 1 in +def STM : AXI4<0x0, (outs), + (ins addrmode4:$addr, pred:$p, reglist:$src1, variable_ops), + StFrm, "stm${p}${addr:submode} $addr, $src1", + []>; //===----------------------------------------------------------------------===// // Move Instructions. // -def MOVrr : AI1<(ops GPR:$dst, GPR:$src), - "mov $dst, $src", []>; -def MOVrs : AI1<(ops GPR:$dst, so_reg:$src), - "mov $dst, $src", [(set GPR:$dst, so_reg:$src)]>; -def MOVri : AI1<(ops GPR:$dst, so_imm:$src), - "mov $dst, $src", [(set GPR:$dst, so_imm:$src)]>; +def MOVr : AsI1<0xD, (outs GPR:$dst), (ins GPR:$src), DPRdReg, + "mov", " $dst, $src", []>; +def MOVs : AsI1<0xD, (outs GPR:$dst), (ins so_reg:$src), DPRdSoReg, + "mov", " $dst, $src", [(set GPR:$dst, so_reg:$src)]>; + +let isReMaterializable = 1 in +def MOVi : AsI1<0xD, (outs GPR:$dst), (ins so_imm:$src), DPRdIm, + "mov", " $dst, $src", [(set GPR:$dst, so_imm:$src)]>; + +def MOVrx : AsI1<0xD, (outs GPR:$dst), (ins GPR:$src), DPRdMisc, + "mov", " $dst, $src, rrx", + [(set GPR:$dst, (ARMrrx GPR:$src))]>; // These aren't really mov instructions, but we have to define them this way // due to flag operands. -def MOVsrl_flag : AI1<(ops GPR:$dst, GPR:$src), - "movs $dst, $src, lsr #1", +let Defs = [CPSR] in { +def MOVsrl_flag : AI1<0xD, (outs GPR:$dst), (ins GPR:$src), DPRdMisc, + "mov", "s $dst, $src, lsr #1", [(set GPR:$dst, (ARMsrl_flag GPR:$src))]>; -def MOVsra_flag : AI1<(ops GPR:$dst, GPR:$src), - "movs $dst, $src, asr #1", +def MOVsra_flag : AI1<0xD, (outs GPR:$dst), (ins GPR:$src), DPRdMisc, + "mov", "s $dst, $src, asr #1", [(set GPR:$dst, (ARMsra_flag GPR:$src))]>; -def MOVrrx : AI1<(ops GPR:$dst, GPR:$src), - "mov $dst, $src, rrx", - [(set GPR:$dst, (ARMrrx GPR:$src))]>; - +} //===----------------------------------------------------------------------===// // Extend Instructions. @@ -736,12 +982,12 @@ def MOVrrx : AI1<(ops GPR:$dst, GPR:$src), // Sign extenders -defm SXTB : AI_unary_rrot<"sxtb", UnOpFrag<(sext_inreg node:$Src, i8)>>; -defm SXTH : AI_unary_rrot<"sxth", UnOpFrag<(sext_inreg node:$Src, i16)>>; +defm SXTB : AI_unary_rrot<0x0, "sxtb", UnOpFrag<(sext_inreg node:$Src, i8)>>; +defm SXTH : AI_unary_rrot<0x0, "sxth", UnOpFrag<(sext_inreg node:$Src, i16)>>; -defm SXTAB : AI_bin_rrot<"sxtab", +defm SXTAB : AI_bin_rrot<0x0, "sxtab", BinOpFrag<(add node:$LHS, (sext_inreg node:$RHS, i8))>>; -defm SXTAH : AI_bin_rrot<"sxtah", +defm SXTAH : AI_bin_rrot<0x0, "sxtah", BinOpFrag<(add node:$LHS, (sext_inreg node:$RHS,i16))>>; // TODO: SXT(A){B|H}16 @@ -749,18 +995,18 @@ defm SXTAH : AI_bin_rrot<"sxtah", // Zero extenders let AddedComplexity = 16 in { -defm UXTB : AI_unary_rrot<"uxtb" , UnOpFrag<(and node:$Src, 0x000000FF)>>; -defm UXTH : AI_unary_rrot<"uxth" , UnOpFrag<(and node:$Src, 0x0000FFFF)>>; -defm UXTB16 : AI_unary_rrot<"uxtb16", UnOpFrag<(and node:$Src, 0x00FF00FF)>>; +defm UXTB : AI_unary_rrot<0x0, "uxtb" , UnOpFrag<(and node:$Src, 0x000000FF)>>; +defm UXTH : AI_unary_rrot<0x0, "uxth" , UnOpFrag<(and node:$Src, 0x0000FFFF)>>; +defm UXTB16 : AI_unary_rrot<0x0, "uxtb16", UnOpFrag<(and node:$Src, 0x00FF00FF)>>; def : ARMV6Pat<(and (shl GPR:$Src, 8), 0xFF00FF), (UXTB16r_rot GPR:$Src, 24)>; def : ARMV6Pat<(and (srl GPR:$Src, 8), 0xFF00FF), (UXTB16r_rot GPR:$Src, 8)>; -defm UXTAB : AI_bin_rrot<"uxtab", +defm UXTAB : AI_bin_rrot<0x0, "uxtab", BinOpFrag<(add node:$LHS, (and node:$RHS, 0x00FF))>>; -defm UXTAH : AI_bin_rrot<"uxtah", +defm UXTAH : AI_bin_rrot<0x0, "uxtah", BinOpFrag<(add node:$LHS, (and node:$RHS, 0xFFFF))>>; } @@ -773,17 +1019,45 @@ defm UXTAH : AI_bin_rrot<"uxtah", // Arithmetic Instructions. // -defm ADD : AI1_bin_irs<"add" , BinOpFrag<(add node:$LHS, node:$RHS)>>; -defm ADDS : AI1_bin_irs<"adds", BinOpFrag<(addc node:$LHS, node:$RHS)>>; -defm ADC : AI1_bin_irs<"adc" , BinOpFrag<(adde node:$LHS, node:$RHS)>>; -defm SUB : AI1_bin_irs<"sub" , BinOpFrag<(sub node:$LHS, node:$RHS)>>; -defm SUBS : AI1_bin_irs<"subs", BinOpFrag<(subc node:$LHS, node:$RHS)>>; -defm SBC : AI1_bin_irs<"sbc" , BinOpFrag<(sube node:$LHS, node:$RHS)>>; +defm ADD : AsI1_bin_irs<0x4, "add", BinOpFrag<(add node:$LHS, node:$RHS)>>; +defm SUB : AsI1_bin_irs<0x2, "sub", BinOpFrag<(sub node:$LHS, node:$RHS)>>; + +// ADD and SUB with 's' bit set. +defm ADDS : ASI1_bin_s_irs<0x4, "add", BinOpFrag<(addc node:$LHS, node:$RHS)>>; +defm SUBS : ASI1_bin_s_irs<0x2, "sub", BinOpFrag<(subc node:$LHS, node:$RHS)>>; + +// FIXME: Do not allow ADC / SBC to be predicated for now. +defm ADC : AsXI1_bin_c_irs<0x5, "adc", BinOpFrag<(adde node:$LHS, node:$RHS)>>; +defm SBC : AsXI1_bin_c_irs<0x6, "sbc", BinOpFrag<(sube node:$LHS, node:$RHS)>>; // These don't define reg/reg forms, because they are handled above. -defm RSB : AI1_bin_is <"rsb" , BinOpFrag<(sub node:$RHS, node:$LHS)>>; -defm RSBS : AI1_bin_is <"rsbs", BinOpFrag<(subc node:$RHS, node:$LHS)>>; -defm RSC : AI1_bin_is <"rsc" , BinOpFrag<(sube node:$RHS, node:$LHS)>>; +def RSBri : AsI1<0x3, (outs GPR:$dst), (ins GPR:$a, so_imm:$b), DPRIm, + "rsb", " $dst, $a, $b", + [(set GPR:$dst, (sub so_imm:$b, GPR:$a))]>; + +def RSBrs : AsI1<0x3, (outs GPR:$dst), (ins GPR:$a, so_reg:$b), DPRSoReg, + "rsb", " $dst, $a, $b", + [(set GPR:$dst, (sub so_reg:$b, GPR:$a))]>; + +// RSB with 's' bit set. +let Defs = [CPSR] in { +def RSBSri : AI1<0x3, (outs GPR:$dst), (ins GPR:$a, so_imm:$b), DPRIm, + "rsb", "s $dst, $a, $b", + [(set GPR:$dst, (subc so_imm:$b, GPR:$a))]>; +def RSBSrs : AI1<0x3, (outs GPR:$dst), (ins GPR:$a, so_reg:$b), DPRSoReg, + "rsb", "s $dst, $a, $b", + [(set GPR:$dst, (subc so_reg:$b, GPR:$a))]>; +} + +// FIXME: Do not allow RSC to be predicated for now. But they can set CPSR. +let Uses = [CPSR] in { +def RSCri : AXI1<0x7, (outs GPR:$dst), (ins GPR:$a, so_imm:$b, cc_out:$s), + DPRIm, "rsc${s} $dst, $a, $b", + [(set GPR:$dst, (sube so_imm:$b, GPR:$a))]>; +def RSCrs : AXI1<0x7, (outs GPR:$dst), (ins GPR:$a, so_reg:$b, cc_out:$s), + DPRSoReg, "rsc${s} $dst, $a, $b", + [(set GPR:$dst, (sube so_reg:$b, GPR:$a))]>; +} // (sub X, imm) gets canonicalized to (add X, -imm). Match this form. def : ARMPat<(add GPR:$src, so_imm_neg:$imm), @@ -805,15 +1079,18 @@ def : ARMPat<(add GPR:$src, so_imm_neg:$imm), // Bitwise Instructions. // -defm AND : AI1_bin_irs<"and", BinOpFrag<(and node:$LHS, node:$RHS)>>; -defm ORR : AI1_bin_irs<"orr", BinOpFrag<(or node:$LHS, node:$RHS)>>; -defm EOR : AI1_bin_irs<"eor", BinOpFrag<(xor node:$LHS, node:$RHS)>>; -defm BIC : AI1_bin_irs<"bic", BinOpFrag<(and node:$LHS, (not node:$RHS))>>; - -defm MVN : AI1_unary_irs<"mvn", not>; +defm AND : AsI1_bin_irs<0x0, "and", BinOpFrag<(and node:$LHS, node:$RHS)>>; +defm ORR : AsI1_bin_irs<0xC, "orr", BinOpFrag<(or node:$LHS, node:$RHS)>>; +defm EOR : AsI1_bin_irs<0x1, "eor", BinOpFrag<(xor node:$LHS, node:$RHS)>>; +defm BIC : AsI1_bin_irs<0xE, "bic", BinOpFrag<(and node:$LHS, (not node:$RHS))>>; -def : ARMPat<(i32 so_imm_not:$imm), - (MVNi so_imm_not:$imm)>; +def MVNr : AsI<0xE, (outs GPR:$dst), (ins GPR:$src), DPRdReg, + "mvn", " $dst, $src", [(set GPR:$dst, (not GPR:$src))]>; +def MVNs : AsI<0xE, (outs GPR:$dst), (ins so_reg:$src), DPRdSoReg, + "mvn", " $dst, $src", [(set GPR:$dst, (not so_reg:$src))]>; +let isReMaterializable = 1 in +def MVNi : AsI<0xE, (outs GPR:$dst), (ins so_imm:$imm), DPRdIm, + "mvn", " $dst, $imm", [(set GPR:$dst, so_imm_not:$imm)]>; def : ARMPat<(and GPR:$src, so_imm_not:$imm), (BICri GPR:$src, so_imm_not:$imm)>; @@ -822,202 +1099,122 @@ def : ARMPat<(and GPR:$src, so_imm_not:$imm), // Multiply Instructions. // -// AI_orr - Defines a (op r, r) pattern. -class AI_orr - : AI<(ops GPR:$dst, GPR:$a, GPR:$b), - !strconcat(opc, " $dst, $a, $b"), - [(set GPR:$dst, (opnode GPR:$a, GPR:$b))]>; - -// AI_oorr - Defines a (op (op r, r), r) pattern. -class AI_oorr - : AI<(ops GPR:$dst, GPR:$a, GPR:$b, GPR:$c), - !strconcat(opc, " $dst, $a, $b, $c"), - [(set GPR:$dst, (opnode1 (opnode2 GPR:$a, GPR:$b), GPR:$c))]>; +def MUL : AsI<0x0, (outs GPR:$dst), (ins GPR:$a, GPR:$b), MulFrm, + "mul", " $dst, $a, $b", + [(set GPR:$dst, (mul GPR:$a, GPR:$b))]>; -def MUL : AI_orr<"mul", mul>; -def MLA : AI_oorr<"mla", add, mul>; +def MLA : AsI<0x2, (outs GPR:$dst), (ins GPR:$a, GPR:$b, GPR:$c), + MulFrm, "mla", " $dst, $a, $b, $c", + [(set GPR:$dst, (add (mul GPR:$a, GPR:$b), GPR:$c))]>; // Extra precision multiplies with low / high results -def SMULL : AI<(ops GPR:$ldst, GPR:$hdst, GPR:$a, GPR:$b), - "smull $ldst, $hdst, $a, $b", - []>; +def SMULL : AsI<0xC, (outs GPR:$ldst, GPR:$hdst), (ins GPR:$a, GPR:$b), + MulFrm, "smull", " $ldst, $hdst, $a, $b", []>; -def UMULL : AI<(ops GPR:$ldst, GPR:$hdst, GPR:$a, GPR:$b), - "umull $ldst, $hdst, $a, $b", - []>; +def UMULL : AsI<0x8, (outs GPR:$ldst, GPR:$hdst), (ins GPR:$a, GPR:$b), + MulFrm, "umull", " $ldst, $hdst, $a, $b", []>; // Multiply + accumulate -def SMLAL : AI<(ops GPR:$ldst, GPR:$hdst, GPR:$a, GPR:$b), - "smlal $ldst, $hdst, $a, $b", - []>; +def SMLAL : AsI<0xE, (outs GPR:$ldst, GPR:$hdst), (ins GPR:$a, GPR:$b), + MulFrm, "smlal", " $ldst, $hdst, $a, $b", []>; -def UMLAL : AI<(ops GPR:$ldst, GPR:$hdst, GPR:$a, GPR:$b), - "umlal $ldst, $hdst, $a, $b", - []>; +def UMLAL : AsI<0xA, (outs GPR:$ldst, GPR:$hdst), (ins GPR:$a, GPR:$b), + MulFrm, "umlal", " $ldst, $hdst, $a, $b", []>; -def UMAAL : AI<(ops GPR:$ldst, GPR:$hdst, GPR:$a, GPR:$b), - "umaal $ldst, $hdst, $a, $b", - []>, Requires<[IsARM, HasV6]>; +def UMAAL : AI<0x0, (outs GPR:$ldst, GPR:$hdst), (ins GPR:$a, GPR:$b), MulFrm, + "umaal", " $ldst, $hdst, $a, $b", []>, + Requires<[IsARM, HasV6]>; // Most significant word multiply -def SMMUL : AI_orr<"smmul", mulhs>, Requires<[IsARM, HasV6]>; -def SMMLA : AI_oorr<"smmla", add, mulhs>, Requires<[IsARM, HasV6]>; +def SMMUL : AI<0x0, (outs GPR:$dst), (ins GPR:$a, GPR:$b), MulFrm, + "smmul", " $dst, $a, $b", + [(set GPR:$dst, (mulhs GPR:$a, GPR:$b))]>, + Requires<[IsARM, HasV6]>; + +def SMMLA : AI<0x0, (outs GPR:$dst), (ins GPR:$a, GPR:$b, GPR:$c), MulFrm, + "smmla", " $dst, $a, $b, $c", + [(set GPR:$dst, (add (mulhs GPR:$a, GPR:$b), GPR:$c))]>, + Requires<[IsARM, HasV6]>; -def SMMLS : AI<(ops GPR:$dst, GPR:$a, GPR:$b, GPR:$c), - "smmls $dst, $a, $b, $c", +def SMMLS : AI<0x0, (outs GPR:$dst), (ins GPR:$a, GPR:$b, GPR:$c), MulFrm, + "smmls", " $dst, $a, $b, $c", [(set GPR:$dst, (sub GPR:$c, (mulhs GPR:$a, GPR:$b)))]>, Requires<[IsARM, HasV6]>; multiclass AI_smul { - def BB1 : AI<(ops GPR:$dst, GPR:$a, GPR:$b), - !strconcat(opc, "bb $dst, $a, $b"), - [(set GPR:$dst, (opnode (sext_inreg GPR:$a, i16), - (sext_inreg GPR:$b, i16)))]>, - Requires<[IsARM, HasV5TE]>; - def BB2 : AI<(ops GPR:$dst, GPR:$a, GPR:$b), - !strconcat(opc, "bb $dst, $a, $b"), - [(set GPR:$dst, (opnode (sra (shl GPR:$a, 16), 16), - (sra (shl GPR:$b, 16), 16)))]>, - Requires<[IsARM, HasV5TE]>; - def BB3 : AI<(ops GPR:$dst, GPR:$a, GPR:$b), - !strconcat(opc, "bb $dst, $a, $b"), - [(set GPR:$dst, (opnode sext_16_node:$a, sext_16_node:$b))]>, - Requires<[IsARM, HasV5TE]>; - - def BT1 : AI<(ops GPR:$dst, GPR:$a, GPR:$b), - !strconcat(opc, "bt $dst, $a, $b"), - [(set GPR:$dst, (opnode (sext_inreg GPR:$a, i16), - (sra GPR:$b, 16)))]>, - Requires<[IsARM, HasV5TE]>; - def BT2 : AI<(ops GPR:$dst, GPR:$a, GPR:$b), - !strconcat(opc, "bt $dst, $a, $b"), - [(set GPR:$dst, (opnode (sra (shl GPR:$a, 16), 16), - (sra GPR:$b, 16)))]>, - Requires<[IsARM, HasV5TE]>; - def BT3 : AI<(ops GPR:$dst, GPR:$a, GPR:$b), - !strconcat(opc, "bt $dst, $a, $b"), - [(set GPR:$dst, (opnode sext_16_node:$a, (sra GPR:$b, 16)))]>, - Requires<[IsARM, HasV5TE]>; + def BB : AI<0x8, (outs GPR:$dst), (ins GPR:$a, GPR:$b), MulSMUL, + !strconcat(opc, "bb"), " $dst, $a, $b", + [(set GPR:$dst, (opnode (sext_inreg GPR:$a, i16), + (sext_inreg GPR:$b, i16)))]>, + Requires<[IsARM, HasV5TE]>; + + def BT : AI<0xC, (outs GPR:$dst), (ins GPR:$a, GPR:$b), MulSMUL, + !strconcat(opc, "bt"), " $dst, $a, $b", + [(set GPR:$dst, (opnode (sext_inreg GPR:$a, i16), + (sra GPR:$b, 16)))]>, + Requires<[IsARM, HasV5TE]>; - def TB1 : AI<(ops GPR:$dst, GPR:$a, GPR:$b), - !strconcat(opc, "tb $dst, $a, $b"), - [(set GPR:$dst, (opnode (sra GPR:$a, 16), - (sext_inreg GPR:$b, i16)))]>, - Requires<[IsARM, HasV5TE]>; - def TB2 : AI<(ops GPR:$dst, GPR:$a, GPR:$b), - !strconcat(opc, "tb $dst, $a, $b"), - [(set GPR:$dst, (opnode (sra GPR:$a, 16), - (sra (shl GPR:$b, 16), 16)))]>, - Requires<[IsARM, HasV5TE]>; - def TB3 : AI<(ops GPR:$dst, GPR:$a, GPR:$b), - !strconcat(opc, "tb $dst, $a, $b"), - [(set GPR:$dst, (opnode (sra GPR:$a, 16), sext_16_node:$b))]>, - Requires<[IsARM, HasV5TE]>; + def TB : AI<0xA, (outs GPR:$dst), (ins GPR:$a, GPR:$b), MulSMUL, + !strconcat(opc, "tb"), " $dst, $a, $b", + [(set GPR:$dst, (opnode (sra GPR:$a, 16), + (sext_inreg GPR:$b, i16)))]>, + Requires<[IsARM, HasV5TE]>; - def TT : AI<(ops GPR:$dst, GPR:$a, GPR:$b), - !strconcat(opc, "tt $dst, $a, $b"), + def TT : AI<0xE, (outs GPR:$dst), (ins GPR:$a, GPR:$b), MulSMUL, + !strconcat(opc, "tt"), " $dst, $a, $b", [(set GPR:$dst, (opnode (sra GPR:$a, 16), (sra GPR:$b, 16)))]>, Requires<[IsARM, HasV5TE]>; - def WB1 : AI<(ops GPR:$dst, GPR:$a, GPR:$b), - !strconcat(opc, "wb $dst, $a, $b"), - [(set GPR:$dst, (sra (opnode GPR:$a, - (sext_inreg GPR:$b, i16)), 16))]>, - Requires<[IsARM, HasV5TE]>; - def WB2 : AI<(ops GPR:$dst, GPR:$a, GPR:$b), - !strconcat(opc, "wb $dst, $a, $b"), - [(set GPR:$dst, (sra (opnode GPR:$a, - (sra (shl GPR:$b, 16), 16)), 16))]>, - Requires<[IsARM, HasV5TE]>; - def WB3 : AI<(ops GPR:$dst, GPR:$a, GPR:$b), - !strconcat(opc, "wb $dst, $a, $b"), - [(set GPR:$dst, (sra (opnode GPR:$a, sext_16_node:$b), 16))]>, - Requires<[IsARM, HasV5TE]>; + def WB : AI<0xA, (outs GPR:$dst), (ins GPR:$a, GPR:$b), MulSMULW, + !strconcat(opc, "wb"), " $dst, $a, $b", + [(set GPR:$dst, (sra (opnode GPR:$a, + (sext_inreg GPR:$b, i16)), 16))]>, + Requires<[IsARM, HasV5TE]>; - def WT : AI<(ops GPR:$dst, GPR:$a, GPR:$b), - !strconcat(opc, "wt $dst, $a, $b"), + def WT : AI<0xE, (outs GPR:$dst), (ins GPR:$a, GPR:$b), MulSMULW, + !strconcat(opc, "wt"), " $dst, $a, $b", [(set GPR:$dst, (sra (opnode GPR:$a, (sra GPR:$b, 16)), 16))]>, Requires<[IsARM, HasV5TE]>; } -multiclass AI_smla { - def BB1 : AI<(ops GPR:$dst, GPR:$a, GPR:$b, GPR:$acc), - !strconcat(opc, "bb $dst, $a, $b, $acc"), - [(set GPR:$dst, (add GPR:$acc, - (opnode (sext_inreg GPR:$a, i16), - (sext_inreg GPR:$b, i16))))]>, - Requires<[IsARM, HasV5TE]>; - def BB2 : AI<(ops GPR:$dst, GPR:$a, GPR:$b, GPR:$acc), - !strconcat(opc, "bb $dst, $a, $b, $acc"), - [(set GPR:$dst, (add GPR:$acc, - (opnode (sra (shl GPR:$a, 16), 16), - (sra (shl GPR:$b, 16), 16))))]>, - Requires<[IsARM, HasV5TE]>; - def BB3 : AI<(ops GPR:$dst, GPR:$a, GPR:$b, GPR:$acc), - !strconcat(opc, "bb $dst, $a, $b, $acc"), - [(set GPR:$dst, (add GPR:$acc, - (opnode sext_16_node:$a, sext_16_node:$b)))]>, - Requires<[IsARM, HasV5TE]>; - def BT1 : AI<(ops GPR:$dst, GPR:$a, GPR:$b, GPR:$acc), - !strconcat(opc, "bt $dst, $a, $b, $acc"), - [(set GPR:$dst, (add GPR:$acc, (opnode (sext_inreg GPR:$a, i16), - (sra GPR:$b, 16))))]>, - Requires<[IsARM, HasV5TE]>; - def BT2 : AI<(ops GPR:$dst, GPR:$a, GPR:$b, GPR:$acc), - !strconcat(opc, "bt $dst, $a, $b, $acc"), - [(set GPR:$dst, (add GPR:$acc, (opnode (sra (shl GPR:$a, 16), 16), +multiclass AI_smla { + def BB : AI<0x8, (outs GPR:$dst), (ins GPR:$a, GPR:$b, GPR:$acc), MulSMLA, + !strconcat(opc, "bb"), " $dst, $a, $b, $acc", + [(set GPR:$dst, (add GPR:$acc, + (opnode (sext_inreg GPR:$a, i16), + (sext_inreg GPR:$b, i16))))]>, + Requires<[IsARM, HasV5TE]>; + + def BT : AI<0xC, (outs GPR:$dst), (ins GPR:$a, GPR:$b, GPR:$acc), MulSMLA, + !strconcat(opc, "bt"), " $dst, $a, $b, $acc", + [(set GPR:$dst, (add GPR:$acc, (opnode (sext_inreg GPR:$a, i16), (sra GPR:$b, 16))))]>, - Requires<[IsARM, HasV5TE]>; - def BT3 : AI<(ops GPR:$dst, GPR:$a, GPR:$b, GPR:$acc), - !strconcat(opc, "bt $dst, $a, $b, $acc"), - [(set GPR:$dst, (add GPR:$acc, (opnode sext_16_node:$a, - (sra GPR:$b, 16))))]>, - Requires<[IsARM, HasV5TE]>; + Requires<[IsARM, HasV5TE]>; - def TB1 : AI<(ops GPR:$dst, GPR:$a, GPR:$b, GPR:$acc), - !strconcat(opc, "tb $dst, $a, $b, $acc"), - [(set GPR:$dst, (add GPR:$acc, (opnode (sra GPR:$a, 16), - (sext_inreg GPR:$b, i16))))]>, - Requires<[IsARM, HasV5TE]>; - def TB2 : AI<(ops GPR:$dst, GPR:$a, GPR:$b, GPR:$acc), - !strconcat(opc, "tb $dst, $a, $b, $acc"), - [(set GPR:$dst, (add GPR:$acc, (opnode (sra GPR:$a, 16), - (sra (shl GPR:$b, 16), 16))))]>, - Requires<[IsARM, HasV5TE]>; - def TB3 : AI<(ops GPR:$dst, GPR:$a, GPR:$b, GPR:$acc), - !strconcat(opc, "tb $dst, $a, $b, $acc"), - [(set GPR:$dst, (add GPR:$acc, (opnode (sra GPR:$a, 16), - sext_16_node:$b)))]>, - Requires<[IsARM, HasV5TE]>; + def TB : AI<0xA, (outs GPR:$dst), (ins GPR:$a, GPR:$b, GPR:$acc), MulSMLA, + !strconcat(opc, "tb"), " $dst, $a, $b, $acc", + [(set GPR:$dst, (add GPR:$acc, (opnode (sra GPR:$a, 16), + (sext_inreg GPR:$b, i16))))]>, + Requires<[IsARM, HasV5TE]>; - def TT : AI<(ops GPR:$dst, GPR:$a, GPR:$b, GPR:$acc), - !strconcat(opc, "tt $dst, $a, $b, $acc"), + def TT : AI<0xE, (outs GPR:$dst), (ins GPR:$a, GPR:$b, GPR:$acc), MulSMLA, + !strconcat(opc, "tt"), " $dst, $a, $b, $acc", [(set GPR:$dst, (add GPR:$acc, (opnode (sra GPR:$a, 16), (sra GPR:$b, 16))))]>, Requires<[IsARM, HasV5TE]>; - def WB1 : AI<(ops GPR:$dst, GPR:$a, GPR:$b, GPR:$acc), - !strconcat(opc, "wb $dst, $a, $b, $acc"), - [(set GPR:$dst, (add GPR:$acc, (sra (opnode GPR:$a, - (sext_inreg GPR:$b, i16)), 16)))]>, - Requires<[IsARM, HasV5TE]>; - def WB2 : AI<(ops GPR:$dst, GPR:$a, GPR:$b, GPR:$acc), - !strconcat(opc, "wb $dst, $a, $b, $acc"), - [(set GPR:$dst, (add GPR:$acc, (sra (opnode GPR:$a, - (sra (shl GPR:$b, 16), 16)), 16)))]>, - Requires<[IsARM, HasV5TE]>; - def WB3 : AI<(ops GPR:$dst, GPR:$a, GPR:$b, GPR:$acc), - !strconcat(opc, "wb $dst, $a, $b, $acc"), - [(set GPR:$dst, (add GPR:$acc, (sra (opnode GPR:$a, - sext_16_node:$b), 16)))]>, - Requires<[IsARM, HasV5TE]>; + def WB : AI<0xA, (outs GPR:$dst), (ins GPR:$a, GPR:$b, GPR:$acc), MulSMLAW, + !strconcat(opc, "wb"), " $dst, $a, $b, $acc", + [(set GPR:$dst, (add GPR:$acc, (sra (opnode GPR:$a, + (sext_inreg GPR:$b, i16)), 16)))]>, + Requires<[IsARM, HasV5TE]>; - def WT : AI<(ops GPR:$dst, GPR:$a, GPR:$b, GPR:$acc), - !strconcat(opc, "wt $dst, $a, $b, $acc"), + def WT : AI<0xE, (outs GPR:$dst), (ins GPR:$a, GPR:$b, GPR:$acc), MulSMLAW, + !strconcat(opc, "wt"), " $dst, $a, $b, $acc", [(set GPR:$dst, (add GPR:$acc, (sra (opnode GPR:$a, (sra GPR:$b, 16)), 16)))]>, Requires<[IsARM, HasV5TE]>; @@ -1033,16 +1230,16 @@ defm SMLA : AI_smla<"smla", BinOpFrag<(mul node:$LHS, node:$RHS)>>; // Misc. Arithmetic Instructions. // -def CLZ : AI<(ops GPR:$dst, GPR:$src), - "clz $dst, $src", +def CLZ : AI<0x0, (outs GPR:$dst), (ins GPR:$src), ArithMisc, + "clz", " $dst, $src", [(set GPR:$dst, (ctlz GPR:$src))]>, Requires<[IsARM, HasV5T]>; -def REV : AI<(ops GPR:$dst, GPR:$src), - "rev $dst, $src", +def REV : AI<0x0, (outs GPR:$dst), (ins GPR:$src), ArithMisc, + "rev", " $dst, $src", [(set GPR:$dst, (bswap GPR:$src))]>, Requires<[IsARM, HasV6]>; -def REV16 : AI<(ops GPR:$dst, GPR:$src), - "rev16 $dst, $src", +def REV16 : AI<0x0, (outs GPR:$dst), (ins GPR:$src), ArithMisc, + "rev16", " $dst, $src", [(set GPR:$dst, (or (and (srl GPR:$src, 8), 0xFF), (or (and (shl GPR:$src, 8), 0xFF00), @@ -1050,16 +1247,16 @@ def REV16 : AI<(ops GPR:$dst, GPR:$src), (and (shl GPR:$src, 8), 0xFF000000)))))]>, Requires<[IsARM, HasV6]>; -def REVSH : AI<(ops GPR:$dst, GPR:$src), - "revsh $dst, $src", +def REVSH : AI<0x0, (outs GPR:$dst), (ins GPR:$src), ArithMisc, + "revsh", " $dst, $src", [(set GPR:$dst, (sext_inreg - (or (srl (and GPR:$src, 0xFFFF), 8), + (or (srl (and GPR:$src, 0xFF00), 8), (shl GPR:$src, 8)), i16))]>, Requires<[IsARM, HasV6]>; -def PKHBT : AI<(ops GPR:$dst, GPR:$src1, GPR:$src2, i32imm:$shamt), - "pkhbt $dst, $src1, $src2, LSL $shamt", +def PKHBT : AI<0x0, (outs GPR:$dst), (ins GPR:$src1, GPR:$src2, i32imm:$shamt), + Pseudo, "pkhbt", " $dst, $src1, $src2, LSL $shamt", [(set GPR:$dst, (or (and GPR:$src1, 0xFFFF), (and (shl GPR:$src2, (i32 imm:$shamt)), 0xFFFF0000)))]>, @@ -1072,8 +1269,8 @@ def : ARMV6Pat<(or (and GPR:$src1, 0xFFFF), (shl GPR:$src2, imm16_31:$shamt)), (PKHBT GPR:$src1, GPR:$src2, imm16_31:$shamt)>; -def PKHTB : AI<(ops GPR:$dst, GPR:$src1, GPR:$src2, i32imm:$shamt), - "pkhtb $dst, $src1, $src2, ASR $shamt", +def PKHTB : AI<0x0, (outs GPR:$dst), (ins GPR:$src1, GPR:$src2, i32imm:$shamt), + Pseudo, "pkhtb", " $dst, $src1, $src2, ASR $shamt", [(set GPR:$dst, (or (and GPR:$src1, 0xFFFF0000), (and (sra GPR:$src2, imm16_31:$shamt), 0xFFFF)))]>, Requires<[IsARM, HasV6]>; @@ -1091,51 +1288,77 @@ def : ARMV6Pat<(or (and GPR:$src1, 0xFFFF0000), // Comparison Instructions... // -defm CMP : AI1_bin0_irs<"cmp", BinOpFrag<(ARMcmp node:$LHS, node:$RHS)>>; -defm CMN : AI1_bin0_irs<"cmn", BinOpFrag<(ARMcmp node:$LHS,(ineg node:$RHS))>>; +defm CMP : AI1_cmp_irs<0xA, "cmp", + BinOpFrag<(ARMcmp node:$LHS, node:$RHS)>>; +defm CMN : AI1_cmp_irs<0xB, "cmn", + BinOpFrag<(ARMcmp node:$LHS,(ineg node:$RHS))>>; + +// Note that TST/TEQ don't set all the same flags that CMP does! +defm TST : AI1_cmp_irs<0x8, "tst", + BinOpFrag<(ARMcmpNZ (and node:$LHS, node:$RHS), 0)>>; +defm TEQ : AI1_cmp_irs<0x9, "teq", + BinOpFrag<(ARMcmpNZ (xor node:$LHS, node:$RHS), 0)>>; + +defm CMPnz : AI1_cmp_irs<0xA, "cmp", + BinOpFrag<(ARMcmpNZ node:$LHS, node:$RHS)>>; +defm CMNnz : AI1_cmp_irs<0xA, "cmn", + BinOpFrag<(ARMcmpNZ node:$LHS,(ineg node:$RHS))>>; def : ARMPat<(ARMcmp GPR:$src, so_imm_neg:$imm), (CMNri GPR:$src, so_imm_neg:$imm)>; -// Note that TST/TEQ don't set all the same flags that CMP does! -def TSTrr : AI1<(ops GPR:$a, so_reg:$b), "tst $a, $b", []>; -def TSTri : AI1<(ops GPR:$a, so_imm:$b), "tst $a, $b", []>; -def TEQrr : AI1<(ops GPR:$a, so_reg:$b), "teq $a, $b", []>; -def TEQri : AI1<(ops GPR:$a, so_imm:$b), "teq $a, $b", []>; +def : ARMPat<(ARMcmpNZ GPR:$src, so_imm_neg:$imm), + (CMNri GPR:$src, so_imm_neg:$imm)>; + // Conditional moves -def MOVCCr : AI<(ops GPR:$dst, GPR:$false, GPR:$true, CCOp:$cc), - "mov$cc $dst, $true", - [(set GPR:$dst, (ARMcmov GPR:$false, GPR:$true, imm:$cc))]>, +// FIXME: should be able to write a pattern for ARMcmov, but can't use +// a two-value operand where a dag node expects two operands. :( +def MOVCCr : AI<0xD, (outs GPR:$dst), (ins GPR:$false, GPR:$true), + DPRdReg, "mov", " $dst, $true", + [/*(set GPR:$dst, (ARMcmov GPR:$false, GPR:$true, imm:$cc, CCR:$ccr))*/]>, RegConstraint<"$false = $dst">; -def MOVCCs : AI<(ops GPR:$dst, GPR:$false, so_reg:$true, CCOp:$cc), - "mov$cc $dst, $true", - [(set GPR:$dst, (ARMcmov GPR:$false, so_reg:$true,imm:$cc))]>, +def MOVCCs : AI<0xD, (outs GPR:$dst), (ins GPR:$false, so_reg:$true), + DPRdSoReg, "mov", " $dst, $true", + [/*(set GPR:$dst, (ARMcmov GPR:$false, so_reg:$true, imm:$cc, CCR:$ccr))*/]>, RegConstraint<"$false = $dst">; -def MOVCCi : AI<(ops GPR:$dst, GPR:$false, so_imm:$true, CCOp:$cc), - "mov$cc $dst, $true", - [(set GPR:$dst, (ARMcmov GPR:$false, so_imm:$true,imm:$cc))]>, +def MOVCCi : AI<0xD, (outs GPR:$dst), (ins GPR:$false, so_imm:$true), + DPRdIm, "mov", " $dst, $true", + [/*(set GPR:$dst, (ARMcmov GPR:$false, so_imm:$true, imm:$cc, CCR:$ccr))*/]>, RegConstraint<"$false = $dst">; // LEApcrel - Load a pc-relative address into a register without offending the // assembler. -def LEApcrel : AI1<(ops GPR:$dst, i32imm:$label), +def LEApcrel : AXI1<0x0, (outs GPR:$dst), (ins i32imm:$label, pred:$p), Pseudo, !strconcat(!strconcat(".set PCRELV${:uid}, ($label-(", "${:private}PCRELL${:uid}+8))\n"), !strconcat("${:private}PCRELL${:uid}:\n\t", - "add $dst, pc, #PCRELV${:uid}")), + "add$p $dst, pc, #PCRELV${:uid}")), []>; -def LEApcrelJT : AI1<(ops GPR:$dst, i32imm:$label, i32imm:$id), +def LEApcrelJT : AXI1<0x0, (outs GPR:$dst), (ins i32imm:$label, i32imm:$id, pred:$p), + Pseudo, !strconcat(!strconcat(".set PCRELV${:uid}, (${label}_${id:no_hash}-(", "${:private}PCRELL${:uid}+8))\n"), !strconcat("${:private}PCRELL${:uid}:\n\t", - "add $dst, pc, #PCRELV${:uid}")), + "add$p $dst, pc, #PCRELV${:uid}")), []>; +//===----------------------------------------------------------------------===// +// TLS Instructions +// + +// __aeabi_read_tp preserves the registers r1-r3. +let isCall = 1, + Defs = [R0, R12, LR, CPSR] in { + def TPsoft : AXI<0x0, (outs), (ins), BranchMisc, + "bl __aeabi_read_tp", + [(set R0, ARMthread_pointer)]>; +} + //===----------------------------------------------------------------------===// // Non-Instruction Patterns // @@ -1144,14 +1367,15 @@ def LEApcrelJT : AI1<(ops GPR:$dst, i32imm:$label, i32imm:$id), def : ARMPat<(ARMWrapper tglobaladdr :$dst), (LEApcrel tglobaladdr :$dst)>; def : ARMPat<(ARMWrapper tconstpool :$dst), (LEApcrel tconstpool :$dst)>; def : ARMPat<(ARMWrapperJT tjumptable:$dst, imm:$id), - (LEApcrelJT tjumptable:$dst, imm:$id)>; + (LEApcrelJT tjumptable:$dst, imm:$id)>; // Large immediate handling. // Two piece so_imms. -def : ARMPat<(i32 so_imm2part:$src), - (ORRri (MOVri (so_imm2part_1 imm:$src)), - (so_imm2part_2 imm:$src))>; +let isReMaterializable = 1 in +def MOVi2pieces : AI1x2<0x0, (outs GPR:$dst), (ins so_imm2part:$src), DPRdMisc, + "mov", " $dst, $src", + [(set GPR:$dst, so_imm2part:$src)]>; def : ARMPat<(or GPR:$LHS, so_imm2part:$RHS), (ORRri (ORRri GPR:$LHS, (so_imm2part_1 imm:$RHS)), @@ -1174,13 +1398,49 @@ def : ARMPat<(extloadi1 addrmode2:$addr), (LDRB addrmode2:$addr)>; def : ARMPat<(extloadi8 addrmode2:$addr), (LDRB addrmode2:$addr)>; def : ARMPat<(extloadi16 addrmode3:$addr), (LDRH addrmode3:$addr)>; -// truncstore i1 -> truncstore i8 -def : Pat<(truncstorei1 GPR:$src, addrmode2:$dst), - (STRB GPR:$src, addrmode2:$dst)>; -def : Pat<(pre_truncsti1 GPR:$src, GPR:$base, am2offset:$offset), - (STRB_PRE GPR:$src, GPR:$base, am2offset:$offset)>; -def : Pat<(post_truncsti1 GPR:$src, GPR:$base, am2offset:$offset), - (STRB_POST GPR:$src, GPR:$base, am2offset:$offset)>; +// smul* and smla* +def : ARMV5TEPat<(mul (sra (shl GPR:$a, 16), 16), (sra (shl GPR:$b, 16), 16)), + (SMULBB GPR:$a, GPR:$b)>; +def : ARMV5TEPat<(mul sext_16_node:$a, sext_16_node:$b), + (SMULBB GPR:$a, GPR:$b)>; +def : ARMV5TEPat<(mul (sra (shl GPR:$a, 16), 16), (sra GPR:$b, 16)), + (SMULBT GPR:$a, GPR:$b)>; +def : ARMV5TEPat<(mul sext_16_node:$a, (sra GPR:$b, 16)), + (SMULBT GPR:$a, GPR:$b)>; +def : ARMV5TEPat<(mul (sra GPR:$a, 16), (sra (shl GPR:$b, 16), 16)), + (SMULTB GPR:$a, GPR:$b)>; +def : ARMV5TEPat<(mul (sra GPR:$a, 16), sext_16_node:$b), + (SMULTB GPR:$a, GPR:$b)>; +def : ARMV5TEPat<(sra (mul GPR:$a, (sra (shl GPR:$b, 16), 16)), 16), + (SMULWB GPR:$a, GPR:$b)>; +def : ARMV5TEPat<(sra (mul GPR:$a, sext_16_node:$b), 16), + (SMULWB GPR:$a, GPR:$b)>; + +def : ARMV5TEPat<(add GPR:$acc, + (mul (sra (shl GPR:$a, 16), 16), + (sra (shl GPR:$b, 16), 16))), + (SMLABB GPR:$a, GPR:$b, GPR:$acc)>; +def : ARMV5TEPat<(add GPR:$acc, + (mul sext_16_node:$a, sext_16_node:$b)), + (SMLABB GPR:$a, GPR:$b, GPR:$acc)>; +def : ARMV5TEPat<(add GPR:$acc, + (mul (sra (shl GPR:$a, 16), 16), (sra GPR:$b, 16))), + (SMLABT GPR:$a, GPR:$b, GPR:$acc)>; +def : ARMV5TEPat<(add GPR:$acc, + (mul sext_16_node:$a, (sra GPR:$b, 16))), + (SMLABT GPR:$a, GPR:$b, GPR:$acc)>; +def : ARMV5TEPat<(add GPR:$acc, + (mul (sra GPR:$a, 16), (sra (shl GPR:$b, 16), 16))), + (SMLATB GPR:$a, GPR:$b, GPR:$acc)>; +def : ARMV5TEPat<(add GPR:$acc, + (mul (sra GPR:$a, 16), sext_16_node:$b)), + (SMLATB GPR:$a, GPR:$b, GPR:$acc)>; +def : ARMV5TEPat<(add GPR:$acc, + (sra (mul GPR:$a, (sra (shl GPR:$b, 16), 16)), 16)), + (SMLAWB GPR:$a, GPR:$b, GPR:$acc)>; +def : ARMV5TEPat<(add GPR:$acc, + (sra (mul GPR:$a, sext_16_node:$b), 16)), + (SMLAWB GPR:$a, GPR:$b, GPR:$acc)>; //===----------------------------------------------------------------------===// // Thumb Support