paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 09:19:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* results of work on arm port last weekend

Browse Source
This commit is contained in:
florian 2003-09-01 09:54:57 +00:00
parent 301df6dab9
commit e36c23db74
3 changed files with 285 additions and 181 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

369
compiler/arm/cgcpu.pas
View File

@ -95,12 +95,6 @@ unit cgcpu;
procedure a_load_store(list:taasmoutput;op: tasmop;reg:tregister; procedure a_load_store(list:taasmoutput;op: tasmop;reg:tregister;
ref: treference); ref: treference);
{ creates the correct branch instruction for a given combination }
{ of asmcondflags and destination addressing mode }
procedure a_jmp(list: taasmoutput; op: tasmop;
c: tasmcond; l: tasmlabel);
end; end;
tcg64farm = class(tcg64f32) tcg64farm = class(tcg64f32)
@ -119,11 +113,13 @@ unit cgcpu;
A_DIVWU,A_DIVW, A_MULLW,A_MULLW,A_NONE,A_NONE, A_DIVWU,A_DIVW, A_MULLW,A_MULLW,A_NONE,A_NONE,
A_ORIS,A_NONE, A_NONE,A_NONE,A_SUBIS,A_XORIS); A_ORIS,A_NONE, A_NONE,A_NONE,A_SUBIS,A_XORIS);
TOpCmp2AsmCond: Array[topcmp] of TAsmCondFlag = (C_NONE,C_EQ,C_GT,
C_LT,C_GE,C_LE,C_NE,C_LE,C_LT,C_GE,C_GT);
} }
function is_shifter_const(d : dword;var imm_shift : byte) : boolean; const
OpCmp2AsmCond : Array[topcmp] of TAsmCond = (C_NONE,C_EQ,C_GT,
C_LT,C_GE,C_LE,C_NE,C_LE,C_LT,C_GE,C_GT);
function is_shifter_const(d : dword;var imm_shift : byte) : boolean;
implementation implementation
@ -251,7 +247,14 @@ unit cgcpu;
procedure tcgarm.a_op_reg_reg(list : taasmoutput; Op: TOpCG; size: TCGSize; src, dst: TRegister); procedure tcgarm.a_op_reg_reg(list : taasmoutput; Op: TOpCG; size: TCGSize; src, dst: TRegister);
begin begin
a_op_reg_reg_reg(list,op,OS_32,src,dst,dst); case op of
OP_NEG:
list.concat(taicpu.op_reg_reg_const(A_RSB,dst,src,0));
OP_NOT:
list.concat(taicpu.op_reg_reg(A_MVN,dst,src));
else
a_op_reg_reg_reg(list,op,OS_32,src,dst,dst);
end;
end; end;
@ -305,10 +308,20 @@ unit cgcpu;
end end
else else
begin begin
tmpreg := rg.getregisterint(list,size); { there could be added some more sophisticated optimizations }
a_load_const_reg(list,size,a,tmpreg); if (op in [OP_MUL,OP_IMUL]) and (a=1) then
a_op_reg_reg_reg(list,op,size,tmpreg,src,dst); a_load_reg_reg(list,size,size,src,dst)
rg.ungetregisterint(list,tmpreg); else if (op in [OP_MUL,OP_IMUL]) and (a=0) then
a_load_const_reg(list,size,0,dst)
else if (op in [OP_IMUL]) and (a=-1) then
a_op_reg_reg(list,OP_NEG,size,src,dst)
else
begin
tmpreg := rg.getregisterint(list,size);
a_load_const_reg(list,size,a,tmpreg);
a_op_reg_reg_reg(list,op,size,tmpreg,src,dst);
rg.ungetregisterint(list,tmpreg);
end;
end; end;
end; end;
@ -320,32 +333,29 @@ unit cgcpu;
tmpreg : tregister; tmpreg : tregister;
begin begin
case op of case op of
OP_NEG: OP_NEG,OP_NOT,
list.concat(taicpu.op_reg_reg(op_reg_reg_opcg2asmop[op],dst,dst));
OP_NOT:
list.concat(taicpu.op_reg_reg(A_MVN,dst,dst));
OP_DIV,OP_IDIV: OP_DIV,OP_IDIV:
internalerror(200308281); internalerror(200308281);
OP_SHL: OP_SHL:
begin begin
shifterop_reset(so); shifterop_reset(so);
so.rs:=src2; so.rs:=src1;
so.shiftertype:=SO_LSL; so.shiftertype:=SO_LSL;
list.concat(taicpu.op_reg_reg_shifterop(A_MOV,dst,src1,so)); list.concat(taicpu.op_reg_reg_shifterop(A_MOV,dst,src2,so));
end; end;
OP_SHR: OP_SHR:
begin begin
shifterop_reset(so); shifterop_reset(so);
so.rs:=src2; so.rs:=src1;
so.shiftertype:=SO_LSR; so.shiftertype:=SO_LSR;
list.concat(taicpu.op_reg_reg_shifterop(A_MOV,dst,src1,so)); list.concat(taicpu.op_reg_reg_shifterop(A_MOV,dst,src2,so));
end; end;
OP_SAR: OP_SAR:
begin begin
shifterop_reset(so); shifterop_reset(so);
so.rs:=src2; so.rs:=src1;
so.shiftertype:=SO_LSL; so.shiftertype:=SO_ASR;
list.concat(taicpu.op_reg_reg_shifterop(A_MOV,dst,src1,so)); list.concat(taicpu.op_reg_reg_shifterop(A_MOV,dst,src2,so));
end; end;
OP_IMUL, OP_IMUL,
OP_MUL: OP_MUL:
@ -522,7 +532,7 @@ unit cgcpu;
var var
oppostfix:toppostfix; oppostfix:toppostfix;
begin begin
case ToSize of case FromSize of
{ signed integer registers } { signed integer registers }
OS_8: OS_8:
oppostfix:=PF_B; oppostfix:=PF_B;
@ -603,6 +613,7 @@ unit cgcpu;
procedure tcgarm.a_loadfpu_reg_reg(list: taasmoutput; size: tcgsize; reg1, reg2: tregister); procedure tcgarm.a_loadfpu_reg_reg(list: taasmoutput; size: tcgsize; reg1, reg2: tregister);
begin begin
list.concat(taicpu.op_reg_reg(A_MVF,reg2,reg1));
end; end;
@ -617,15 +628,39 @@ unit cgcpu;
{ comparison operations } { comparison operations }
procedure tcgarm.a_cmp_const_reg_label(list : taasmoutput;size : tcgsize;cmp_op : topcmp;a : aword;reg : tregister; procedure tcgarm.a_cmp_const_reg_label(list : taasmoutput;size : tcgsize;cmp_op : topcmp;a : aword;reg : tregister;
l : tasmlabel); l : tasmlabel);
begin var
end; tmpreg : tregister;
b : byte;
begin
if reg.enum=R_INTREGISTER then
begin
if is_shifter_const(a,b) then
list.concat(taicpu.op_reg_const(A_CMN,reg,a))
{ CMN reg,0 and CMN reg,$80000000 are different from CMP reg,$ffffffff
and CMP reg,$7fffffff regarding the flags according to the ARM manual }
else if is_shifter_const(not(a),b) and (a<>$7fffffff) and (a<>$ffffffff) then
list.concat(taicpu.op_reg_const(A_CMN,reg,not(a)))
else
begin
tmpreg:=rg.getregisterint(list,size);
a_load_const_reg(list,size,a,tmpreg);
list.concat(taicpu.op_reg_reg(A_CMP,reg,tmpreg));
rg.ungetregisterint(list,tmpreg);
end
end
else
internalerror(200308131);
a_jmp_cond(list,cmp_op,l);
end;
procedure tcgarm.a_cmp_reg_reg_label(list : taasmoutput;size : tcgsize;cmp_op : topcmp;reg1,reg2 : tregister;l : tasmlabel); procedure tcgarm.a_cmp_reg_reg_label(list : taasmoutput;size : tcgsize;cmp_op : topcmp;reg1,reg2 : tregister;l : tasmlabel);
begin begin
end; list.concat(taicpu.op_reg_reg(A_CMP,reg2,reg1));
a_jmp_cond(list,cmp_op,l);
end;
procedure tcgarm.a_jmp_always(list : taasmoutput;l: tasmlabel); procedure tcgarm.a_jmp_always(list : taasmoutput;l: tasmlabel);
@ -645,151 +680,204 @@ unit cgcpu;
end; end;
procedure tcgarm.g_flags2reg(list: taasmoutput; size: TCgSize; const f: TResFlags; reg: TRegister); procedure tcgarm.g_flags2reg(list: taasmoutput; size: TCgSize; const f: TResFlags; reg: TRegister);
begin var
end; ai : taicpu;
begin
ai:=Taicpu.op_reg_const(A_MOV,reg,1);
ai.setcondition(flags_to_cond(f));
list.concat(ai);
ai:=Taicpu.op_reg_const(A_MOV,reg,0);
ai.setcondition(inverse_cond[flags_to_cond(f)]);
list.concat(ai);
end;
procedure tcgarm.g_copyvaluepara_openarray(list : taasmoutput;const ref, lenref:treference;elesize:integer); procedure tcgarm.g_copyvaluepara_openarray(list : taasmoutput;const ref, lenref:treference;elesize:integer);
begin begin
end; end;
procedure tcgarm.g_stackframe_entry(list : taasmoutput;localsize : longint); procedure tcgarm.g_stackframe_entry(list : taasmoutput;localsize : longint);
var var
rip,rsp,rfp : tregister; rip,rsp,rfp : tregister;
instr : taicpu; instr : taicpu;
begin begin
rsp.enum:=R_INTREGISTER; LocalSize:=align(LocalSize,4);
rsp.number:=NR_STACK_POINTER_REG;
a_reg_alloc(list,rsp);
rfp.enum:=R_INTREGISTER; rsp.enum:=R_INTREGISTER;
rfp.number:=NR_FRAME_POINTER_REG; rsp.number:=NR_STACK_POINTER_REG;
a_reg_alloc(list,rfp); a_reg_alloc(list,rsp);
rip.enum:=R_INTREGISTER; rfp.enum:=R_INTREGISTER;
rip.number:=NR_R12; rfp.number:=NR_FRAME_POINTER_REG;
a_reg_alloc(list,rip); a_reg_alloc(list,rfp);
list.concat(taicpu.op_reg_reg(A_MOV,rip,rsp)); rip.enum:=R_INTREGISTER;
{ restore int registers and return } rip.number:=NR_R12;
instr:=taicpu.op_reg_regset(A_STM,rsp,rg.used_in_proc_int-[RS_R0..RS_R4]+[RS_R11,RS_R12,RS_R15]); a_reg_alloc(list,rip);
instr.oppostfix:=PF_FD;
list.concat(instr);
list.concat(taicpu.op_reg_reg_const(A_SUB,rfp,rip,4)); list.concat(taicpu.op_reg_reg(A_MOV,rip,rsp));
a_reg_alloc(list,rip); { restore int registers and return }
instr:=taicpu.op_reg_regset(A_STM,rsp,rg.used_in_proc_int-[RS_R0..RS_R3]+[RS_R11,RS_R12,RS_R15]);
instr.oppostfix:=PF_FD;
list.concat(instr);
{ allocate necessary stack size } list.concat(taicpu.op_reg_reg_const(A_SUB,rfp,rip,4));
list.concat(taicpu.op_reg_reg_const(A_SUB,rsp,rsp,4)); a_reg_alloc(list,rip);
end;
{ allocate necessary stack size }
list.concat(taicpu.op_reg_reg_const(A_SUB,rsp,rsp,LocalSize));
end;
procedure tcgarm.g_return_from_proc(list : taasmoutput;parasize : aword); procedure tcgarm.g_return_from_proc(list : taasmoutput;parasize : aword);
var var
r1,r2 : tregister; r1,r2 : tregister;
instr : taicpu; instr : taicpu;
begin begin
if (current_procinfo.framepointer.number=NR_STACK_POINTER_REG) then if (current_procinfo.framepointer.number=NR_STACK_POINTER_REG) then
begin begin
r1.enum:=R_INTREGISTER; r1.enum:=R_INTREGISTER;
r1.number:=NR_R15; r1.number:=NR_R15;
r2.enum:=R_INTREGISTER; r2.enum:=R_INTREGISTER;
r2.number:=NR_R14; r2.number:=NR_R14;
list.concat(taicpu.op_reg_reg(A_MOV,r1,r2)); list.concat(taicpu.op_reg_reg(A_MOV,r1,r2));
end end
else else
begin begin
r1.enum:=R_INTREGISTER; r1.enum:=R_INTREGISTER;
r1.number:=NR_R11; r1.number:=NR_R11;
{ restore int registers and return } { restore int registers and return }
instr:=taicpu.op_reg_regset(A_LDM,r1,rg.used_in_proc_int-[RS_R0..RS_R4]+[RS_R11,RS_R13,RS_R15]); instr:=taicpu.op_reg_regset(A_LDM,r1,rg.used_in_proc_int-[RS_R0..RS_R3]+[RS_R11,RS_R13,RS_R15]);
instr.oppostfix:=PF_EA; instr.oppostfix:=PF_EA;
list.concat(instr); list.concat(instr);
end; end;
end; end;
procedure tcgarm.g_restore_frame_pointer(list : taasmoutput); procedure tcgarm.g_restore_frame_pointer(list : taasmoutput);
begin begin
end; { the frame pointer on the ARM is restored while the ret is executed }
end;
procedure tcgarm.a_loadaddr_ref_reg(list : taasmoutput;const ref : treference;r : tregister); procedure tcgarm.a_loadaddr_ref_reg(list : taasmoutput;const ref : treference;r : tregister);
begin begin
end; end;
procedure tcgarm.g_concatcopy(list : taasmoutput;const source,dest : treference;len : aword; delsource,loadref : boolean); procedure tcgarm.g_concatcopy(list : taasmoutput;const source,dest : treference;len : aword; delsource,loadref : boolean);
begin begin
end; end;
procedure tcgarm.g_overflowcheck(list: taasmoutput; const l: tlocation; def: tdef); procedure tcgarm.g_overflowcheck(list: taasmoutput; const l: tlocation; def: tdef);
begin begin
end; end;
procedure tcgarm.g_save_standard_registers(list : taasmoutput; usedinproc : Tsupregset); procedure tcgarm.g_save_standard_registers(list : taasmoutput; usedinproc : Tsupregset);
begin begin
end; { we support only ARM standard calling conventions so this procedure has no use on the ARM }
end;
procedure tcgarm.g_restore_standard_registers(list : taasmoutput; usedinproc : Tsupregset); procedure tcgarm.g_restore_standard_registers(list : taasmoutput; usedinproc : Tsupregset);
begin begin
end; { we support only ARM standard calling conventions so this procedure has no use on the ARM }
end;
procedure tcgarm.g_save_all_registers(list : taasmoutput); procedure tcgarm.g_save_all_registers(list : taasmoutput);
begin begin
end; { we support only ARM standard calling conventions so this procedure has no use on the ARM }
end;
procedure tcgarm.g_restore_all_registers(list : taasmoutput;accused,acchiused:boolean); procedure tcgarm.g_restore_all_registers(list : taasmoutput;accused,acchiused:boolean);
begin begin
end; { we support only ARM standard calling conventions so this procedure has no use on the ARM }
end;
procedure tcgarm.a_jmp_cond(list : taasmoutput;cond : TOpCmp;l: tasmlabel); procedure tcgarm.a_jmp_cond(list : taasmoutput;cond : TOpCmp;l: tasmlabel);
begin var
end; ai : taicpu;
begin
ai:=Taicpu.Op_sym(A_B,l);
ai.SetCondition(OpCmp2AsmCond[cond]);
ai.is_jmp:=true;
list.concat(ai);
end;
{ contains the common code of a_load_reg_ref and a_load_ref_reg } { contains the common code of a_load_reg_ref and a_load_ref_reg }
procedure tcgarm.a_load_store(list:taasmoutput;op: tasmop;reg:tregister; procedure tcgarm.a_load_store(list:taasmoutput;op: tasmop;reg:tregister;
ref: treference); ref: treference);
begin begin
end; end;
{ creates the correct branch instruction for a given combination } procedure tcg64farm.a_op64_reg_reg(list : taasmoutput;op:TOpCG;regsrc,regdst : tregister64);
{ of asmcondflags and destination addressing mode } var
procedure tcgarm.a_jmp(list: taasmoutput; op: tasmop; tmpreg : tregister;
c: tasmcond; l: tasmlabel); instr : taicpu;
begin begin
end; case op of
OP_NEG:
begin
instr:=taicpu.op_reg_reg_const(A_RSB,regdst.reglo,regsrc.reglo,0);
instr.oppostfix:=PF_S;
list.concat(instr);
list.concat(taicpu.op_reg_reg_const(A_RSC,regdst.reghi,regsrc.reghi,0));
end;
else
a_op64_reg_reg_reg(list,op,regsrc,regdst,regdst);
end;
end;
procedure tcg64farm.a_op64_reg_reg(list : taasmoutput;op:TOpCG;regsrc,regdst : tregister64); procedure tcg64farm.a_op64_const_reg(list : taasmoutput;op:TOpCG;value : qword;reg : tregister64);
begin begin
end; a_op64_const_reg_reg(list,op,value,reg,reg);
end;
procedure tcg64farm.a_op64_const_reg(list : taasmoutput;op:TOpCG;value : qword;reg : tregister64); procedure tcg64farm.a_op64_const_reg_reg(list: taasmoutput;op:TOpCG;value : qword;regsrc,regdst : tregister64);
begin begin
end; end;
procedure tcg64farm.a_op64_const_reg_reg(list: taasmoutput;op:TOpCG;value : qword;regsrc,regdst : tregister64); procedure tcg64farm.a_op64_reg_reg_reg(list: taasmoutput;op:TOpCG;regsrc1,regsrc2,regdst : tregister64);
begin var
end; instr : taicpu;
begin
case op of
procedure tcg64farm.a_op64_reg_reg_reg(list: taasmoutput;op:TOpCG;regsrc1,regsrc2,regdst : tregister64); OP_AND,OP_OR,OP_XOR:
begin begin
end; cg.a_op_reg_reg_reg(list,op,OS_32,regsrc1.reglo,regsrc2.reglo,regdst.reglo);
cg.a_op_reg_reg_reg(list,op,OS_32,regsrc1.reghi,regsrc2.reghi,regdst.reghi);
end;
OP_ADD:
begin
instr:=taicpu.op_reg_reg_reg(A_ADD,regdst.reglo,regsrc1.reglo,regsrc2.reglo);
instr.oppostfix:=PF_S;
list.concat(instr);
list.concat(taicpu.op_reg_reg_reg(A_ADC,regdst.reghi,regsrc1.reghi,regsrc2.reghi));
end;
OP_SUB:
begin
instr:=taicpu.op_reg_reg_reg(A_SUB,regdst.reglo,regsrc2.reglo,regsrc1.reglo);
instr.oppostfix:=PF_S;
list.concat(instr);
list.concat(taicpu.op_reg_reg_reg(A_SBC,regdst.reghi,regsrc2.reghi,regsrc1.reghi));
end;
else
internalerror(2003083101);
end;
end;
begin begin
@ -798,7 +886,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.8 2003-08-29 21:36:28 florian Revision 1.9 2003-09-01 09:54:57 florian
* results of work on arm port last weekend
Revision 1.8 2003/08/29 21:36:28 florian
* fixed procedure entry/exit code * fixed procedure entry/exit code
* started to fix reference handling * started to fix reference handling

84
compiler/arm/narmadd.pas
View File

@ -124,51 +124,50 @@ interface
op : TAsmOp; op : TAsmOp;
begin begin
case aktfputype of case aktfputype of
fpu_fpa, fpu_fpa,
fpu_fpa10, fpu_fpa10,
fpu_fpa11: fpu_fpa11:
begin begin
{ we will see what instruction set we'll use on the arm for FP pass_left_right;
pass_left_right; if (nf_swaped in flags) then
if (nf_swaped in flags) then swapleftright;
swapleftright;
case nodetype of case nodetype of
addn : addn :
op:=A_FADDs; op:=A_ADF;
muln : muln :
op:=A_FMULs; op:=A_MUF;
subn : subn :
op:=A_FSUBs; op:=A_SUF;
slashn : slashn :
op:=A_FDIVs; op:=A_FDV;
else else
internalerror(200306014); internalerror(200308313);
end; end;
{ force fpureg as location, left right doesn't matter { force fpureg as location, left right doesn't matter
as both will be in a fpureg } as both will be in a fpureg }
location_force_fpureg(exprasmlist,left.location,true); location_force_fpureg(exprasmlist,left.location,true);
location_force_fpureg(exprasmlist,right.location,(left.location.loc<>LOC_CFPUREGISTER)); location_force_fpureg(exprasmlist,right.location,(left.location.loc<>LOC_CFPUREGISTER));
location_reset(location,LOC_FPUREGISTER,def_cgsize(resulttype.def)); location_reset(location,LOC_FPUREGISTER,def_cgsize(resulttype.def));
if left.location.loc<>LOC_CFPUREGISTER then if left.location.loc<>LOC_CFPUREGISTER then
location.register:=left.location.register location.register:=left.location.register
else else
location.register:=right.location.register; location.register:=right.location.register;
exprasmlist.concat(taicpu.op_reg_reg_reg(op, exprasmlist.concat(taicpu.op_reg_reg_reg(op,
left.location.register,right.location.register,location.register)); left.location.register,right.location.register,location.register));
release_reg_left_right; release_reg_left_right;
}
location.loc:=LOC_FPUREGISTER; location.loc:=LOC_FPUREGISTER;
end; end;
fpu_soft: fpu_soft:
{ this case should be handled already by pass1 } { this case should be handled already by pass1 }
internalerror(200308252); internalerror(200308252);
else else
internalerror(200308251); internalerror(200308251);
end; end;
end; end;
@ -279,7 +278,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.2 2003-08-25 23:20:38 florian Revision 1.3 2003-09-01 09:54:57 florian
* results of work on arm port last weekend
Revision 1.2 2003/08/25 23:20:38 florian
+ started to implement FPU support for the ARM + started to implement FPU support for the ARM
* fixed a lot of other things * fixed a lot of other things

13
compiler/arm/narmcnv.pas
View File

@ -107,7 +107,15 @@ implementation
procedure tarmtypeconvnode.second_int_to_real; procedure tarmtypeconvnode.second_int_to_real;
var
instr : taicpu;
begin begin
location_reset(location,LOC_FPUREGISTER,def_cgsize(resulttype.def));
location_force_reg(exprasmlist,left.location,OS_32,true);
location.register:=rg.getregisterfpu(exprasmlist,location.size);
instr:=taicpu.op_reg_reg(A_FLT,location.register,left.location.register);
{ set precision? }
exprasmlist.concat(instr);
end; end;
@ -176,7 +184,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.2 2003-08-25 23:20:38 florian Revision 1.3 2003-09-01 09:54:57 florian
* results of work on arm port last weekend
Revision 1.2 2003/08/25 23:20:38 florian
+ started to implement FPU support for the ARM + started to implement FPU support for the ARM
* fixed a lot of other things * fixed a lot of other things