mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-21 12:29:25 +02:00
Most if not all instructions for thumb use only 2 operand rw forms. Changed get_oper_type to match that. It was previously creating bad spilling.
git-svn-id: trunk@32100 -
This commit is contained in:
Jeppe Johansen
parent
a20428f246
commit
eadd93dbae
@ -715,91 +715,178 @@ implementation
|
||||
|
||||
function taicpu.spilling_get_operation_type(opnr: longint): topertype;
|
||||
begin
|
||||
case opcode of
|
||||
A_ADC,A_ADD,A_AND,A_BIC,
|
||||
A_EOR,A_CLZ,A_RBIT,
|
||||
A_LDR,A_LDRB,A_LDRBT,A_LDRH,A_LDRSB,
|
||||
A_LDRSH,A_LDRT,
|
||||
A_MOV,A_MVN,A_MLA,A_MUL,
|
||||
A_ORR,A_RSB,A_RSC,A_SBC,A_SUB,
|
||||
A_SWP,A_SWPB,
|
||||
A_LDF,A_FLT,A_FIX,
|
||||
A_ADF,A_DVF,A_FDV,A_FML,
|
||||
A_RFS,A_RFC,A_RDF,
|
||||
A_RMF,A_RPW,A_RSF,A_SUF,A_ABS,A_ACS,A_ASN,A_ATN,A_COS,
|
||||
A_EXP,A_LOG,A_LGN,A_MVF,A_MNF,A_FRD,A_MUF,A_POL,A_RND,A_SIN,A_SQT,A_TAN,
|
||||
A_LFM,
|
||||
A_FLDS,A_FLDD,
|
||||
A_FMRX,A_FMXR,A_FMSTAT,
|
||||
A_FMSR,A_FMRS,A_FMDRR,
|
||||
A_FCPYS,A_FCPYD,A_FCVTSD,A_FCVTDS,
|
||||
A_FABSS,A_FABSD,A_FSQRTS,A_FSQRTD,A_FMULS,A_FMULD,
|
||||
A_FADDS,A_FADDD,A_FSUBS,A_FSUBD,A_FDIVS,A_FDIVD,
|
||||
A_FMACS,A_FMACD,A_FMSCS,A_FMSCD,A_FNMACS,A_FNMACD,
|
||||
A_FNMSCS,A_FNMSCD,A_FNMULS,A_FNMULD,
|
||||
A_FMDHR,A_FMRDH,A_FMDLR,A_FMRDL,
|
||||
A_FNEGS,A_FNEGD,
|
||||
A_FSITOS,A_FSITOD,A_FTOSIS,A_FTOSID,
|
||||
A_FTOUIS,A_FTOUID,A_FUITOS,A_FUITOD,
|
||||
A_SXTB16,A_UXTB16,
|
||||
A_UXTB,A_UXTH,A_SXTB,A_SXTH,
|
||||
A_NEG,
|
||||
A_VABS,A_VADD,A_VCVT,A_VDIV,A_VLDR,A_VMOV,A_VMUL,A_VNEG,A_VSQRT,A_VSUB,
|
||||
A_MRS,A_MSR:
|
||||
if opnr=0 then
|
||||
result:=operand_write
|
||||
else
|
||||
if GenerateThumbCode then
|
||||
case opcode of
|
||||
A_ADC,A_ADD,A_AND,A_BIC,
|
||||
A_EOR,A_CLZ,A_RBIT,
|
||||
A_LDR,A_LDRB,A_LDRBT,A_LDRH,A_LDRSB,
|
||||
A_LDRSH,A_LDRT,
|
||||
A_MOV,A_MVN,A_MLA,A_MUL,
|
||||
A_ORR,A_RSB,A_RSC,A_SBC,A_SUB,
|
||||
A_SWP,A_SWPB,
|
||||
A_LDF,A_FLT,A_FIX,
|
||||
A_ADF,A_DVF,A_FDV,A_FML,
|
||||
A_RFS,A_RFC,A_RDF,
|
||||
A_RMF,A_RPW,A_RSF,A_SUF,A_ABS,A_ACS,A_ASN,A_ATN,A_COS,
|
||||
A_EXP,A_LOG,A_LGN,A_MVF,A_MNF,A_FRD,A_MUF,A_POL,A_RND,A_SIN,A_SQT,A_TAN,
|
||||
A_LFM,
|
||||
A_FLDS,A_FLDD,
|
||||
A_FMRX,A_FMXR,A_FMSTAT,
|
||||
A_FMSR,A_FMRS,A_FMDRR,
|
||||
A_FCPYS,A_FCPYD,A_FCVTSD,A_FCVTDS,
|
||||
A_FABSS,A_FABSD,A_FSQRTS,A_FSQRTD,A_FMULS,A_FMULD,
|
||||
A_FADDS,A_FADDD,A_FSUBS,A_FSUBD,A_FDIVS,A_FDIVD,
|
||||
A_FMACS,A_FMACD,A_FMSCS,A_FMSCD,A_FNMACS,A_FNMACD,
|
||||
A_FNMSCS,A_FNMSCD,A_FNMULS,A_FNMULD,
|
||||
A_FMDHR,A_FMRDH,A_FMDLR,A_FMRDL,
|
||||
A_FNEGS,A_FNEGD,
|
||||
A_FSITOS,A_FSITOD,A_FTOSIS,A_FTOSID,
|
||||
A_FTOUIS,A_FTOUID,A_FUITOS,A_FUITOD,
|
||||
A_SXTB16,A_UXTB16,
|
||||
A_UXTB,A_UXTH,A_SXTB,A_SXTH,
|
||||
A_NEG,
|
||||
A_VABS,A_VADD,A_VCVT,A_VDIV,A_VLDR,A_VMOV,A_VMUL,A_VNEG,A_VSQRT,A_VSUB,
|
||||
A_MRS,A_MSR:
|
||||
if opnr=0 then
|
||||
result:=operand_readwrite
|
||||
else
|
||||
result:=operand_read;
|
||||
A_BKPT,A_B,A_BL,A_BLX,A_BX,
|
||||
A_CMN,A_CMP,A_TEQ,A_TST,
|
||||
A_CMF,A_CMFE,A_WFS,A_CNF,
|
||||
A_FCMPS,A_FCMPD,A_FCMPES,A_FCMPED,A_FCMPEZS,A_FCMPEZD,
|
||||
A_FCMPZS,A_FCMPZD,
|
||||
A_VCMP,A_VCMPE:
|
||||
result:=operand_read;
|
||||
A_BKPT,A_B,A_BL,A_BLX,A_BX,
|
||||
A_CMN,A_CMP,A_TEQ,A_TST,
|
||||
A_CMF,A_CMFE,A_WFS,A_CNF,
|
||||
A_FCMPS,A_FCMPD,A_FCMPES,A_FCMPED,A_FCMPEZS,A_FCMPEZD,
|
||||
A_FCMPZS,A_FCMPZD,
|
||||
A_VCMP,A_VCMPE:
|
||||
result:=operand_read;
|
||||
A_SMLAL,A_UMLAL:
|
||||
if opnr in [0,1] then
|
||||
result:=operand_readwrite
|
||||
A_SMLAL,A_UMLAL:
|
||||
if opnr in [0,1] then
|
||||
result:=operand_readwrite
|
||||
else
|
||||
result:=operand_read;
|
||||
A_SMULL,A_UMULL,
|
||||
A_FMRRD:
|
||||
if opnr in [0,1] then
|
||||
result:=operand_readwrite
|
||||
else
|
||||
result:=operand_read;
|
||||
A_STR,A_STRB,A_STRBT,
|
||||
A_STRH,A_STRT,A_STF,A_SFM,
|
||||
A_FSTS,A_FSTD,
|
||||
A_VSTR:
|
||||
{ important is what happens with the involved registers }
|
||||
if opnr=0 then
|
||||
result := operand_read
|
||||
else
|
||||
{ check for pre/post indexed }
|
||||
result := operand_read;
|
||||
//Thumb2
|
||||
A_LSL, A_LSR, A_ROR, A_ASR, A_SDIV, A_UDIV, A_MOVW, A_MOVT, A_MLS, A_BFI,
|
||||
A_SMMLA,A_SMMLS:
|
||||
if opnr in [0] then
|
||||
result:=operand_readwrite
|
||||
else
|
||||
result:=operand_read;
|
||||
A_BFC:
|
||||
if opnr in [0] then
|
||||
result:=operand_readwrite
|
||||
else
|
||||
result:=operand_read;
|
||||
A_LDREX:
|
||||
if opnr in [0] then
|
||||
result:=operand_readwrite
|
||||
else
|
||||
result:=operand_read;
|
||||
A_STREX:
|
||||
result:=operand_write;
|
||||
else
|
||||
internalerror(200403151);
|
||||
end
|
||||
else
|
||||
case opcode of
|
||||
A_ADC,A_ADD,A_AND,A_BIC,
|
||||
A_EOR,A_CLZ,A_RBIT,
|
||||
A_LDR,A_LDRB,A_LDRBT,A_LDRH,A_LDRSB,
|
||||
A_LDRSH,A_LDRT,
|
||||
A_MOV,A_MVN,A_MLA,A_MUL,
|
||||
A_ORR,A_RSB,A_RSC,A_SBC,A_SUB,
|
||||
A_SWP,A_SWPB,
|
||||
A_LDF,A_FLT,A_FIX,
|
||||
A_ADF,A_DVF,A_FDV,A_FML,
|
||||
A_RFS,A_RFC,A_RDF,
|
||||
A_RMF,A_RPW,A_RSF,A_SUF,A_ABS,A_ACS,A_ASN,A_ATN,A_COS,
|
||||
A_EXP,A_LOG,A_LGN,A_MVF,A_MNF,A_FRD,A_MUF,A_POL,A_RND,A_SIN,A_SQT,A_TAN,
|
||||
A_LFM,
|
||||
A_FLDS,A_FLDD,
|
||||
A_FMRX,A_FMXR,A_FMSTAT,
|
||||
A_FMSR,A_FMRS,A_FMDRR,
|
||||
A_FCPYS,A_FCPYD,A_FCVTSD,A_FCVTDS,
|
||||
A_FABSS,A_FABSD,A_FSQRTS,A_FSQRTD,A_FMULS,A_FMULD,
|
||||
A_FADDS,A_FADDD,A_FSUBS,A_FSUBD,A_FDIVS,A_FDIVD,
|
||||
A_FMACS,A_FMACD,A_FMSCS,A_FMSCD,A_FNMACS,A_FNMACD,
|
||||
A_FNMSCS,A_FNMSCD,A_FNMULS,A_FNMULD,
|
||||
A_FMDHR,A_FMRDH,A_FMDLR,A_FMRDL,
|
||||
A_FNEGS,A_FNEGD,
|
||||
A_FSITOS,A_FSITOD,A_FTOSIS,A_FTOSID,
|
||||
A_FTOUIS,A_FTOUID,A_FUITOS,A_FUITOD,
|
||||
A_SXTB16,A_UXTB16,
|
||||
A_UXTB,A_UXTH,A_SXTB,A_SXTH,
|
||||
A_NEG,
|
||||
A_VABS,A_VADD,A_VCVT,A_VDIV,A_VLDR,A_VMOV,A_VMUL,A_VNEG,A_VSQRT,A_VSUB,
|
||||
A_MRS,A_MSR:
|
||||
if opnr=0 then
|
||||
result:=operand_write
|
||||
else
|
||||
result:=operand_read;
|
||||
A_BKPT,A_B,A_BL,A_BLX,A_BX,
|
||||
A_CMN,A_CMP,A_TEQ,A_TST,
|
||||
A_CMF,A_CMFE,A_WFS,A_CNF,
|
||||
A_FCMPS,A_FCMPD,A_FCMPES,A_FCMPED,A_FCMPEZS,A_FCMPEZD,
|
||||
A_FCMPZS,A_FCMPZD,
|
||||
A_VCMP,A_VCMPE:
|
||||
result:=operand_read;
|
||||
A_SMULL,A_UMULL,
|
||||
A_FMRRD:
|
||||
if opnr in [0,1] then
|
||||
result:=operand_write
|
||||
A_SMLAL,A_UMLAL:
|
||||
if opnr in [0,1] then
|
||||
result:=operand_readwrite
|
||||
else
|
||||
result:=operand_read;
|
||||
A_SMULL,A_UMULL,
|
||||
A_FMRRD:
|
||||
if opnr in [0,1] then
|
||||
result:=operand_write
|
||||
else
|
||||
result:=operand_read;
|
||||
A_STR,A_STRB,A_STRBT,
|
||||
A_STRH,A_STRT,A_STF,A_SFM,
|
||||
A_FSTS,A_FSTD,
|
||||
A_VSTR:
|
||||
{ important is what happens with the involved registers }
|
||||
if opnr=0 then
|
||||
result := operand_read
|
||||
else
|
||||
{ check for pre/post indexed }
|
||||
result := operand_read;
|
||||
//Thumb2
|
||||
A_LSL, A_LSR, A_ROR, A_ASR, A_SDIV, A_UDIV, A_MOVW, A_MOVT, A_MLS, A_BFI,
|
||||
A_SMMLA,A_SMMLS:
|
||||
if opnr in [0] then
|
||||
result:=operand_write
|
||||
else
|
||||
result:=operand_read;
|
||||
A_BFC:
|
||||
if opnr in [0] then
|
||||
result:=operand_readwrite
|
||||
else
|
||||
result:=operand_read;
|
||||
A_LDREX:
|
||||
if opnr in [0] then
|
||||
result:=operand_write
|
||||
else
|
||||
result:=operand_read;
|
||||
A_STREX:
|
||||
result:=operand_write;
|
||||
else
|
||||
result:=operand_read;
|
||||
A_STR,A_STRB,A_STRBT,
|
||||
A_STRH,A_STRT,A_STF,A_SFM,
|
||||
A_FSTS,A_FSTD,
|
||||
A_VSTR:
|
||||
{ important is what happens with the involved registers }
|
||||
if opnr=0 then
|
||||
result := operand_read
|
||||
else
|
||||
{ check for pre/post indexed }
|
||||
result := operand_read;
|
||||
//Thumb2
|
||||
A_LSL, A_LSR, A_ROR, A_ASR, A_SDIV, A_UDIV, A_MOVW, A_MOVT, A_MLS, A_BFI,
|
||||
A_SMMLA,A_SMMLS:
|
||||
if opnr in [0] then
|
||||
result:=operand_write
|
||||
else
|
||||
result:=operand_read;
|
||||
A_BFC:
|
||||
if opnr in [0] then
|
||||
result:=operand_readwrite
|
||||
else
|
||||
result:=operand_read;
|
||||
A_LDREX:
|
||||
if opnr in [0] then
|
||||
result:=operand_write
|
||||
else
|
||||
result:=operand_read;
|
||||
A_STREX:
|
||||
result:=operand_write;
|
||||
else
|
||||
internalerror(200403151);
|
||||
end;
|
||||
internalerror(200403151);
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user