mirror of
https://github.com/c64scene-ar/llvm-6502.git
synced 2024-12-26 21:32:10 +00:00
91449a883d
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@76390 91177308-0d34-0410-b5e6-96231b3b80d8
405 lines
15 KiB
TableGen
405 lines
15 KiB
TableGen
//===- ARMInstrVFP.td - VFP support for ARM -------------------------------===//
|
|
//
|
|
// The LLVM Compiler Infrastructure
|
|
//
|
|
// This file is distributed under the University of Illinois Open Source
|
|
// License. See LICENSE.TXT for details.
|
|
//
|
|
//===----------------------------------------------------------------------===//
|
|
//
|
|
// This file describes the ARM VFP instruction set.
|
|
//
|
|
//===----------------------------------------------------------------------===//
|
|
|
|
def SDT_FTOI :
|
|
SDTypeProfile<1, 1, [SDTCisVT<0, f32>, SDTCisFP<1>]>;
|
|
def SDT_ITOF :
|
|
SDTypeProfile<1, 1, [SDTCisFP<0>, SDTCisVT<1, f32>]>;
|
|
def SDT_CMPFP0 :
|
|
SDTypeProfile<0, 1, [SDTCisFP<0>]>;
|
|
def SDT_FMDRR :
|
|
SDTypeProfile<1, 2, [SDTCisVT<0, f64>, SDTCisVT<1, i32>,
|
|
SDTCisSameAs<1, 2>]>;
|
|
|
|
def arm_ftoui : SDNode<"ARMISD::FTOUI", SDT_FTOI>;
|
|
def arm_ftosi : SDNode<"ARMISD::FTOSI", SDT_FTOI>;
|
|
def arm_sitof : SDNode<"ARMISD::SITOF", SDT_ITOF>;
|
|
def arm_uitof : SDNode<"ARMISD::UITOF", SDT_ITOF>;
|
|
def arm_fmstat : SDNode<"ARMISD::FMSTAT", SDTNone, [SDNPInFlag,SDNPOutFlag]>;
|
|
def arm_cmpfp : SDNode<"ARMISD::CMPFP", SDT_ARMCmp, [SDNPOutFlag]>;
|
|
def arm_cmpfp0 : SDNode<"ARMISD::CMPFPw0",SDT_CMPFP0, [SDNPOutFlag]>;
|
|
def arm_fmdrr : SDNode<"ARMISD::FMDRR", SDT_FMDRR>;
|
|
|
|
//===----------------------------------------------------------------------===//
|
|
// Load / store Instructions.
|
|
//
|
|
|
|
let canFoldAsLoad = 1 in {
|
|
def FLDD : ADI5<0b1101, 0b01, (outs DPR:$dst), (ins addrmode5:$addr),
|
|
"fldd", " $dst, $addr",
|
|
[(set DPR:$dst, (load addrmode5:$addr))]>;
|
|
|
|
def FLDS : ASI5<0b1101, 0b01, (outs SPR:$dst), (ins addrmode5:$addr),
|
|
"flds", " $dst, $addr",
|
|
[(set SPR:$dst, (load addrmode5:$addr))]>;
|
|
} // canFoldAsLoad
|
|
|
|
def FSTD : ADI5<0b1101, 0b00, (outs), (ins DPR:$src, addrmode5:$addr),
|
|
"fstd", " $src, $addr",
|
|
[(store DPR:$src, addrmode5:$addr)]>;
|
|
|
|
def FSTS : ASI5<0b1101, 0b00, (outs), (ins SPR:$src, addrmode5:$addr),
|
|
"fsts", " $src, $addr",
|
|
[(store SPR:$src, addrmode5:$addr)]>;
|
|
|
|
//===----------------------------------------------------------------------===//
|
|
// Load / store multiple Instructions.
|
|
//
|
|
|
|
let mayLoad = 1 in {
|
|
def FLDMD : AXDI5<(outs), (ins addrmode5:$addr, pred:$p, reglist:$dst1,
|
|
variable_ops),
|
|
"fldm${addr:submode}d${p} ${addr:base}, $dst1",
|
|
[]> {
|
|
let Inst{20} = 1;
|
|
}
|
|
|
|
def FLDMS : AXSI5<(outs), (ins addrmode5:$addr, pred:$p, reglist:$dst1,
|
|
variable_ops),
|
|
"fldm${addr:submode}s${p} ${addr:base}, $dst1",
|
|
[]> {
|
|
let Inst{20} = 1;
|
|
}
|
|
}
|
|
|
|
let mayStore = 1 in {
|
|
def FSTMD : AXDI5<(outs), (ins addrmode5:$addr, pred:$p, reglist:$src1,
|
|
variable_ops),
|
|
"fstm${addr:submode}d${p} ${addr:base}, $src1",
|
|
[]> {
|
|
let Inst{20} = 0;
|
|
}
|
|
|
|
def FSTMS : AXSI5<(outs), (ins addrmode5:$addr, pred:$p, reglist:$src1,
|
|
variable_ops),
|
|
"fstm${addr:submode}s${p} ${addr:base}, $src1",
|
|
[]> {
|
|
let Inst{20} = 0;
|
|
}
|
|
} // mayStore
|
|
|
|
// FLDMX, FSTMX - mixing S/D registers for pre-armv6 cores
|
|
|
|
//===----------------------------------------------------------------------===//
|
|
// FP Binary Operations.
|
|
//
|
|
|
|
def FADDD : ADbI<0b11100011, (outs DPR:$dst), (ins DPR:$a, DPR:$b),
|
|
"faddd", " $dst, $a, $b",
|
|
[(set DPR:$dst, (fadd DPR:$a, DPR:$b))]>;
|
|
|
|
def FADDS : ASbI<0b11100011, (outs SPR:$dst), (ins SPR:$a, SPR:$b),
|
|
"fadds", " $dst, $a, $b",
|
|
[(set SPR:$dst, (fadd SPR:$a, SPR:$b))]>;
|
|
|
|
// These are encoded as unary instructions.
|
|
let Defs = [FPSCR] in {
|
|
def FCMPED : ADuI<0b11101011, 0b0100, 0b1100, (outs), (ins DPR:$a, DPR:$b),
|
|
"fcmped", " $a, $b",
|
|
[(arm_cmpfp DPR:$a, DPR:$b)]>;
|
|
|
|
def FCMPES : ASuI<0b11101011, 0b0100, 0b1100, (outs), (ins SPR:$a, SPR:$b),
|
|
"fcmpes", " $a, $b",
|
|
[(arm_cmpfp SPR:$a, SPR:$b)]>;
|
|
}
|
|
|
|
def FDIVD : ADbI<0b11101000, (outs DPR:$dst), (ins DPR:$a, DPR:$b),
|
|
"fdivd", " $dst, $a, $b",
|
|
[(set DPR:$dst, (fdiv DPR:$a, DPR:$b))]>;
|
|
|
|
def FDIVS : ASbI<0b11101000, (outs SPR:$dst), (ins SPR:$a, SPR:$b),
|
|
"fdivs", " $dst, $a, $b",
|
|
[(set SPR:$dst, (fdiv SPR:$a, SPR:$b))]>;
|
|
|
|
def FMULD : ADbI<0b11100010, (outs DPR:$dst), (ins DPR:$a, DPR:$b),
|
|
"fmuld", " $dst, $a, $b",
|
|
[(set DPR:$dst, (fmul DPR:$a, DPR:$b))]>;
|
|
|
|
def FMULS : ASbI<0b11100010, (outs SPR:$dst), (ins SPR:$a, SPR:$b),
|
|
"fmuls", " $dst, $a, $b",
|
|
[(set SPR:$dst, (fmul SPR:$a, SPR:$b))]>;
|
|
|
|
def FNMULD : ADbI<0b11100010, (outs DPR:$dst), (ins DPR:$a, DPR:$b),
|
|
"fnmuld", " $dst, $a, $b",
|
|
[(set DPR:$dst, (fneg (fmul DPR:$a, DPR:$b)))]> {
|
|
let Inst{6} = 1;
|
|
}
|
|
|
|
def FNMULS : ASbI<0b11100010, (outs SPR:$dst), (ins SPR:$a, SPR:$b),
|
|
"fnmuls", " $dst, $a, $b",
|
|
[(set SPR:$dst, (fneg (fmul SPR:$a, SPR:$b)))]> {
|
|
let Inst{6} = 1;
|
|
}
|
|
|
|
// Match reassociated forms only if not sign dependent rounding.
|
|
def : Pat<(fmul (fneg DPR:$a), DPR:$b),
|
|
(FNMULD DPR:$a, DPR:$b)>, Requires<[NoHonorSignDependentRounding]>;
|
|
def : Pat<(fmul (fneg SPR:$a), SPR:$b),
|
|
(FNMULS SPR:$a, SPR:$b)>, Requires<[NoHonorSignDependentRounding]>;
|
|
|
|
|
|
def FSUBD : ADbI<0b11100011, (outs DPR:$dst), (ins DPR:$a, DPR:$b),
|
|
"fsubd", " $dst, $a, $b",
|
|
[(set DPR:$dst, (fsub DPR:$a, DPR:$b))]> {
|
|
let Inst{6} = 1;
|
|
}
|
|
|
|
def FSUBS : ASbI<0b11100011, (outs SPR:$dst), (ins SPR:$a, SPR:$b),
|
|
"fsubs", " $dst, $a, $b",
|
|
[(set SPR:$dst, (fsub SPR:$a, SPR:$b))]> {
|
|
let Inst{6} = 1;
|
|
}
|
|
|
|
//===----------------------------------------------------------------------===//
|
|
// FP Unary Operations.
|
|
//
|
|
|
|
def FABSD : ADuI<0b11101011, 0b0000, 0b1100, (outs DPR:$dst), (ins DPR:$a),
|
|
"fabsd", " $dst, $a",
|
|
[(set DPR:$dst, (fabs DPR:$a))]>;
|
|
|
|
def FABSS : ASuI<0b11101011, 0b0000, 0b1100, (outs SPR:$dst), (ins SPR:$a),
|
|
"fabss", " $dst, $a",
|
|
[(set SPR:$dst, (fabs SPR:$a))]>;
|
|
|
|
let Defs = [FPSCR] in {
|
|
def FCMPEZD : ADuI<0b11101011, 0b0101, 0b1100, (outs), (ins DPR:$a),
|
|
"fcmpezd", " $a",
|
|
[(arm_cmpfp0 DPR:$a)]>;
|
|
|
|
def FCMPEZS : ASuI<0b11101011, 0b0101, 0b1100, (outs), (ins SPR:$a),
|
|
"fcmpezs", " $a",
|
|
[(arm_cmpfp0 SPR:$a)]>;
|
|
}
|
|
|
|
def FCVTDS : ASuI<0b11101011, 0b0111, 0b1100, (outs DPR:$dst), (ins SPR:$a),
|
|
"fcvtds", " $dst, $a",
|
|
[(set DPR:$dst, (fextend SPR:$a))]>;
|
|
|
|
// Special case encoding: bits 11-8 is 0b1011.
|
|
def FCVTSD : VFPAI<(outs SPR:$dst), (ins DPR:$a), VFPUnaryFrm,
|
|
"fcvtsd", " $dst, $a",
|
|
[(set SPR:$dst, (fround DPR:$a))]> {
|
|
let Inst{27-23} = 0b11101;
|
|
let Inst{21-16} = 0b110111;
|
|
let Inst{11-8} = 0b1011;
|
|
let Inst{7-4} = 0b1100;
|
|
}
|
|
|
|
let neverHasSideEffects = 1 in {
|
|
def FCPYD : ADuI<0b11101011, 0b0000, 0b0100, (outs DPR:$dst), (ins DPR:$a),
|
|
"fcpyd", " $dst, $a", []>;
|
|
|
|
def FCPYS : ASuI<0b11101011, 0b0000, 0b0100, (outs SPR:$dst), (ins SPR:$a),
|
|
"fcpys", " $dst, $a", []>;
|
|
} // neverHasSideEffects
|
|
|
|
def FNEGD : ADuI<0b11101011, 0b0001, 0b0100, (outs DPR:$dst), (ins DPR:$a),
|
|
"fnegd", " $dst, $a",
|
|
[(set DPR:$dst, (fneg DPR:$a))]>;
|
|
|
|
def FNEGS : ASuI<0b11101011, 0b0001, 0b0100, (outs SPR:$dst), (ins SPR:$a),
|
|
"fnegs", " $dst, $a",
|
|
[(set SPR:$dst, (fneg SPR:$a))]>;
|
|
|
|
def FSQRTD : ADuI<0b11101011, 0b0001, 0b1100, (outs DPR:$dst), (ins DPR:$a),
|
|
"fsqrtd", " $dst, $a",
|
|
[(set DPR:$dst, (fsqrt DPR:$a))]>;
|
|
|
|
def FSQRTS : ASuI<0b11101011, 0b0001, 0b1100, (outs SPR:$dst), (ins SPR:$a),
|
|
"fsqrts", " $dst, $a",
|
|
[(set SPR:$dst, (fsqrt SPR:$a))]>;
|
|
|
|
//===----------------------------------------------------------------------===//
|
|
// FP <-> GPR Copies. Int <-> FP Conversions.
|
|
//
|
|
|
|
def FMRS : AVConv2I<0b11100001, 0b1010, (outs GPR:$dst), (ins SPR:$src),
|
|
"fmrs", " $dst, $src",
|
|
[(set GPR:$dst, (bitconvert SPR:$src))]>;
|
|
|
|
def FMSR : AVConv4I<0b11100000, 0b1010, (outs SPR:$dst), (ins GPR:$src),
|
|
"fmsr", " $dst, $src",
|
|
[(set SPR:$dst, (bitconvert GPR:$src))]>;
|
|
|
|
def FMRRD : AVConv3I<0b11000101, 0b1011,
|
|
(outs GPR:$dst1, GPR:$dst2), (ins DPR:$src),
|
|
"fmrrd", " $dst1, $dst2, $src",
|
|
[/* FIXME: Can't write pattern for multiple result instr*/]>;
|
|
|
|
// FMDHR: GPR -> SPR
|
|
// FMDLR: GPR -> SPR
|
|
|
|
def FMDRR : AVConv5I<0b11000100, 0b1011,
|
|
(outs DPR:$dst), (ins GPR:$src1, GPR:$src2),
|
|
"fmdrr", " $dst, $src1, $src2",
|
|
[(set DPR:$dst, (arm_fmdrr GPR:$src1, GPR:$src2))]>;
|
|
|
|
// FMRDH: SPR -> GPR
|
|
// FMRDL: SPR -> GPR
|
|
// FMRRS: SPR -> GPR
|
|
// FMRX : SPR system reg -> GPR
|
|
|
|
// FMSRR: GPR -> SPR
|
|
|
|
// FMXR: GPR -> VFP Sstem reg
|
|
|
|
|
|
// Int to FP:
|
|
|
|
def FSITOD : AVConv1I<0b11101011, 0b1000, 0b1011, (outs DPR:$dst), (ins SPR:$a),
|
|
"fsitod", " $dst, $a",
|
|
[(set DPR:$dst, (arm_sitof SPR:$a))]> {
|
|
let Inst{7} = 1;
|
|
}
|
|
|
|
def FSITOS : AVConv1I<0b11101011, 0b1000, 0b1010, (outs SPR:$dst), (ins SPR:$a),
|
|
"fsitos", " $dst, $a",
|
|
[(set SPR:$dst, (arm_sitof SPR:$a))]> {
|
|
let Inst{7} = 1;
|
|
}
|
|
|
|
def FUITOD : AVConv1I<0b11101011, 0b1000, 0b1011, (outs DPR:$dst), (ins SPR:$a),
|
|
"fuitod", " $dst, $a",
|
|
[(set DPR:$dst, (arm_uitof SPR:$a))]>;
|
|
|
|
def FUITOS : AVConv1I<0b11101011, 0b1000, 0b1010, (outs SPR:$dst), (ins SPR:$a),
|
|
"fuitos", " $dst, $a",
|
|
[(set SPR:$dst, (arm_uitof SPR:$a))]>;
|
|
|
|
// FP to Int:
|
|
// Always set Z bit in the instruction, i.e. "round towards zero" variants.
|
|
|
|
def FTOSIZD : AVConv1I<0b11101011, 0b1101, 0b1011,
|
|
(outs SPR:$dst), (ins DPR:$a),
|
|
"ftosizd", " $dst, $a",
|
|
[(set SPR:$dst, (arm_ftosi DPR:$a))]> {
|
|
let Inst{7} = 1; // Z bit
|
|
}
|
|
|
|
def FTOSIZS : AVConv1I<0b11101011, 0b1101, 0b1010,
|
|
(outs SPR:$dst), (ins SPR:$a),
|
|
"ftosizs", " $dst, $a",
|
|
[(set SPR:$dst, (arm_ftosi SPR:$a))]> {
|
|
let Inst{7} = 1; // Z bit
|
|
}
|
|
|
|
def FTOUIZD : AVConv1I<0b11101011, 0b1100, 0b1011,
|
|
(outs SPR:$dst), (ins DPR:$a),
|
|
"ftouizd", " $dst, $a",
|
|
[(set SPR:$dst, (arm_ftoui DPR:$a))]> {
|
|
let Inst{7} = 1; // Z bit
|
|
}
|
|
|
|
def FTOUIZS : AVConv1I<0b11101011, 0b1100, 0b1010,
|
|
(outs SPR:$dst), (ins SPR:$a),
|
|
"ftouizs", " $dst, $a",
|
|
[(set SPR:$dst, (arm_ftoui SPR:$a))]> {
|
|
let Inst{7} = 1; // Z bit
|
|
}
|
|
|
|
//===----------------------------------------------------------------------===//
|
|
// FP FMA Operations.
|
|
//
|
|
|
|
def FMACD : ADbI<0b11100000, (outs DPR:$dst), (ins DPR:$dstin, DPR:$a, DPR:$b),
|
|
"fmacd", " $dst, $a, $b",
|
|
[(set DPR:$dst, (fadd (fmul DPR:$a, DPR:$b), DPR:$dstin))]>,
|
|
RegConstraint<"$dstin = $dst">;
|
|
|
|
def FMACS : ASbI<0b11100000, (outs SPR:$dst), (ins SPR:$dstin, SPR:$a, SPR:$b),
|
|
"fmacs", " $dst, $a, $b",
|
|
[(set SPR:$dst, (fadd (fmul SPR:$a, SPR:$b), SPR:$dstin))]>,
|
|
RegConstraint<"$dstin = $dst">;
|
|
|
|
def FMSCD : ADbI<0b11100001, (outs DPR:$dst), (ins DPR:$dstin, DPR:$a, DPR:$b),
|
|
"fmscd", " $dst, $a, $b",
|
|
[(set DPR:$dst, (fsub (fmul DPR:$a, DPR:$b), DPR:$dstin))]>,
|
|
RegConstraint<"$dstin = $dst">;
|
|
|
|
def FMSCS : ASbI<0b11100001, (outs SPR:$dst), (ins SPR:$dstin, SPR:$a, SPR:$b),
|
|
"fmscs", " $dst, $a, $b",
|
|
[(set SPR:$dst, (fsub (fmul SPR:$a, SPR:$b), SPR:$dstin))]>,
|
|
RegConstraint<"$dstin = $dst">;
|
|
|
|
def FNMACD : ADbI<0b11100000, (outs DPR:$dst), (ins DPR:$dstin, DPR:$a, DPR:$b),
|
|
"fnmacd", " $dst, $a, $b",
|
|
[(set DPR:$dst, (fadd (fneg (fmul DPR:$a, DPR:$b)), DPR:$dstin))]>,
|
|
RegConstraint<"$dstin = $dst"> {
|
|
let Inst{6} = 1;
|
|
}
|
|
|
|
def FNMACS : ASbI<0b11100000, (outs SPR:$dst), (ins SPR:$dstin, SPR:$a, SPR:$b),
|
|
"fnmacs", " $dst, $a, $b",
|
|
[(set SPR:$dst, (fadd (fneg (fmul SPR:$a, SPR:$b)), SPR:$dstin))]>,
|
|
RegConstraint<"$dstin = $dst"> {
|
|
let Inst{6} = 1;
|
|
}
|
|
|
|
def FNMSCD : ADbI<0b11100001, (outs DPR:$dst), (ins DPR:$dstin, DPR:$a, DPR:$b),
|
|
"fnmscd", " $dst, $a, $b",
|
|
[(set DPR:$dst, (fsub (fneg (fmul DPR:$a, DPR:$b)), DPR:$dstin))]>,
|
|
RegConstraint<"$dstin = $dst"> {
|
|
let Inst{6} = 1;
|
|
}
|
|
|
|
def FNMSCS : ASbI<0b11100001, (outs SPR:$dst), (ins SPR:$dstin, SPR:$a, SPR:$b),
|
|
"fnmscs", " $dst, $a, $b",
|
|
[(set SPR:$dst, (fsub (fneg (fmul SPR:$a, SPR:$b)), SPR:$dstin))]>,
|
|
RegConstraint<"$dstin = $dst"> {
|
|
let Inst{6} = 1;
|
|
}
|
|
|
|
//===----------------------------------------------------------------------===//
|
|
// FP Conditional moves.
|
|
//
|
|
|
|
def FCPYDcc : ADuI<0b11101011, 0b0000, 0b0100,
|
|
(outs DPR:$dst), (ins DPR:$false, DPR:$true),
|
|
"fcpyd", " $dst, $true",
|
|
[/*(set DPR:$dst, (ARMcmov DPR:$false, DPR:$true, imm:$cc))*/]>,
|
|
RegConstraint<"$false = $dst">;
|
|
|
|
def FCPYScc : ASuI<0b11101011, 0b0000, 0b0100,
|
|
(outs SPR:$dst), (ins SPR:$false, SPR:$true),
|
|
"fcpys", " $dst, $true",
|
|
[/*(set SPR:$dst, (ARMcmov SPR:$false, SPR:$true, imm:$cc))*/]>,
|
|
RegConstraint<"$false = $dst">;
|
|
|
|
def FNEGDcc : ADuI<0b11101011, 0b0001, 0b0100,
|
|
(outs DPR:$dst), (ins DPR:$false, DPR:$true),
|
|
"fnegd", " $dst, $true",
|
|
[/*(set DPR:$dst, (ARMcneg DPR:$false, DPR:$true, imm:$cc))*/]>,
|
|
RegConstraint<"$false = $dst">;
|
|
|
|
def FNEGScc : ASuI<0b11101011, 0b0001, 0b0100,
|
|
(outs SPR:$dst), (ins SPR:$false, SPR:$true),
|
|
"fnegs", " $dst, $true",
|
|
[/*(set SPR:$dst, (ARMcneg SPR:$false, SPR:$true, imm:$cc))*/]>,
|
|
RegConstraint<"$false = $dst">;
|
|
|
|
|
|
//===----------------------------------------------------------------------===//
|
|
// Misc.
|
|
//
|
|
|
|
let Defs = [CPSR], Uses = [FPSCR] in
|
|
def FMSTAT : VFPAI<(outs), (ins), VFPMiscFrm, "fmstat", "", [(arm_fmstat)]> {
|
|
let Inst{27-20} = 0b11101111;
|
|
let Inst{19-16} = 0b0001;
|
|
let Inst{15-12} = 0b1111;
|
|
let Inst{11-8} = 0b1010;
|
|
let Inst{7} = 0;
|
|
let Inst{4} = 1;
|
|
}
|