mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-30 03:22:40 +02:00
* more arm stuff
This commit is contained in:
florian
parent
295533aa04
commit
abf9504b0e
@ -37,7 +37,6 @@ uses
|
||||
{ "mov reg,reg" source operand number }
|
||||
O_MOV_DEST = 0;
|
||||
|
||||
|
||||
type
|
||||
taicpu = class(taicpu_abstract)
|
||||
constructor op_none(op : tasmop);
|
||||
@ -60,8 +59,6 @@ uses
|
||||
constructor op_const_reg_const(op : tasmop;_op1 : longint;_op2 : tregister;_op3 : longint);
|
||||
|
||||
constructor op_reg_reg_reg_reg(op : tasmop;_op1,_op2,_op3,_op4 : tregister);
|
||||
constructor op_reg_bool_reg_reg(op : tasmop;_op1: tregister;_op2:boolean;_op3,_op4:tregister);
|
||||
constructor op_reg_bool_reg_const(op : tasmop;_op1: tregister;_op2:boolean;_op3:tregister;_op4: longint);
|
||||
|
||||
constructor op_reg_reg_reg_const_const(op : tasmop;_op1,_op2,_op3 : tregister;_op4,_op5 : Longint);
|
||||
constructor op_reg_reg_const_const_const(op : tasmop;_op1,_op2 : tregister;_op3,_op4,_op5 : Longint);
|
||||
@ -77,9 +74,6 @@ uses
|
||||
constructor op_reg_sym_ofs(op : tasmop;_op1 : tregister;_op2:tasmsymbol;_op2ofs : longint);
|
||||
constructor op_sym_ofs_ref(op : tasmop;_op1 : tasmsymbol;_op1ofs:longint;const _op2 : treference);
|
||||
|
||||
procedure loadbool(opidx:longint;_b:boolean);
|
||||
|
||||
|
||||
function is_nop: boolean; override;
|
||||
function is_move:boolean; override;
|
||||
function spill_registers(list:Taasmoutput;
|
||||
@ -106,20 +100,6 @@ uses cutils,rgobj;
|
||||
taicpu Constructors
|
||||
*****************************************************************************}
|
||||
|
||||
procedure taicpu.loadbool(opidx:longint;_b:boolean);
|
||||
begin
|
||||
if opidx>=ops then
|
||||
ops:=opidx+1;
|
||||
with oper[opidx] do
|
||||
begin
|
||||
if typ=top_ref then
|
||||
dispose(ref);
|
||||
b:=_b;
|
||||
typ:=top_bool;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
constructor taicpu.op_none(op : tasmop);
|
||||
begin
|
||||
inherited create(op);
|
||||
@ -238,6 +218,7 @@ uses cutils,rgobj;
|
||||
loadsymbol(0,_op3,_op3ofs);
|
||||
end;
|
||||
|
||||
|
||||
constructor taicpu.op_reg_reg_ref(op : tasmop;_op1,_op2 : tregister; const _op3: treference);
|
||||
begin
|
||||
inherited create(op);
|
||||
@ -251,6 +232,7 @@ uses cutils,rgobj;
|
||||
loadref(2,_op3);
|
||||
end;
|
||||
|
||||
|
||||
constructor taicpu.op_const_reg_reg(op : tasmop;_op1 : longint;_op2, _op3 : tregister);
|
||||
begin
|
||||
inherited create(op);
|
||||
@ -264,6 +246,7 @@ uses cutils,rgobj;
|
||||
loadreg(2,_op3);
|
||||
end;
|
||||
|
||||
|
||||
constructor taicpu.op_const_reg_const(op : tasmop;_op1 : longint;_op2 : tregister;_op3 : longint);
|
||||
begin
|
||||
inherited create(op);
|
||||
@ -294,36 +277,6 @@ uses cutils,rgobj;
|
||||
loadreg(3,_op4);
|
||||
end;
|
||||
|
||||
constructor taicpu.op_reg_bool_reg_reg(op : tasmop;_op1: tregister;_op2:boolean;_op3,_op4:tregister);
|
||||
begin
|
||||
inherited create(op);
|
||||
if (_op1.enum = R_INTREGISTER) and (_op1.number = NR_NO) then
|
||||
internalerror(2003031227);
|
||||
if (_op3.enum = R_INTREGISTER) and (_op3.number = NR_NO) then
|
||||
internalerror(2003031228);
|
||||
if (_op4.enum = R_INTREGISTER) and (_op4.number = NR_NO) then
|
||||
internalerror(2003031229);
|
||||
ops:=4;
|
||||
loadreg(0,_op1);
|
||||
loadbool(1,_op2);
|
||||
loadreg(2,_op3);
|
||||
loadreg(3,_op4);
|
||||
end;
|
||||
|
||||
constructor taicpu.op_reg_bool_reg_const(op : tasmop;_op1: tregister;_op2:boolean;_op3:tregister;_op4: longint);
|
||||
begin
|
||||
inherited create(op);
|
||||
if (_op1.enum = R_INTREGISTER) and (_op1.number = NR_NO) then
|
||||
internalerror(2003031230);
|
||||
if (_op3.enum = R_INTREGISTER) and (_op3.number = NR_NO) then
|
||||
internalerror(2003031231);
|
||||
ops:=4;
|
||||
loadreg(0,_op1);
|
||||
loadbool(0,_op2);
|
||||
loadreg(0,_op3);
|
||||
loadconst(0,cardinal(_op4));
|
||||
end;
|
||||
|
||||
|
||||
constructor taicpu.op_reg_reg_reg_const_const(op : tasmop;_op1,_op2,_op3 : tregister;_op4,_op5 : Longint);
|
||||
begin
|
||||
@ -420,7 +373,7 @@ uses cutils,rgobj;
|
||||
|
||||
function taicpu.is_move:boolean;
|
||||
begin
|
||||
is_move := opcode = A_MR;
|
||||
is_move := opcode = A_MOV;
|
||||
end;
|
||||
|
||||
|
||||
@ -430,7 +383,7 @@ uses cutils,rgobj;
|
||||
r:Tsupregset;
|
||||
var unusedregsint:Tsupregset;
|
||||
const spilltemplist:Tspill_temp_list): boolean;
|
||||
|
||||
{$ifdef dummy}
|
||||
function get_insert_pos(p:Tai;huntfor1,huntfor2,huntfor3:Tsuperregister):Tai;
|
||||
|
||||
var back:Tsupregset;
|
||||
@ -748,7 +701,10 @@ uses cutils,rgobj;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
{$else dummy}
|
||||
begin
|
||||
end;
|
||||
{$endif dummy}
|
||||
|
||||
|
||||
procedure InitAsm;
|
||||
@ -763,6 +719,9 @@ uses cutils,rgobj;
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.1 2003-08-16 13:23:01 florian
|
||||
Revision 1.2 2003-08-20 15:50:12 florian
|
||||
* more arm stuff
|
||||
|
||||
Revision 1.1 2003/08/16 13:23:01 florian
|
||||
* several arm related stuff fixed
|
||||
}
|
||||
|
||||
@ -40,6 +40,13 @@ unit agarmgas;
|
||||
procedure WriteInstruction(hp : tai);override;
|
||||
end;
|
||||
|
||||
var
|
||||
gas_reg2str : reg2strtable;
|
||||
|
||||
function gas_regnum_search(const s:string):Tnewregister;
|
||||
function gas_regname(const r:Tnewregister):string;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
@ -250,11 +257,25 @@ unit agarmgas;
|
||||
AsmWriteLn(s);
|
||||
end;
|
||||
|
||||
function gas_regnum_search(const s:string):Tnewregister;
|
||||
begin
|
||||
end;
|
||||
|
||||
|
||||
function gas_regname(const r:Tnewregister):string;
|
||||
begin
|
||||
end;
|
||||
|
||||
|
||||
begin
|
||||
RegisterAssembler(as_arm_gas_info,TARMGNUAssembler);
|
||||
gas_reg2str:=std_reg2str;
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.1 2003-08-16 13:23:01 florian
|
||||
Revision 1.2 2003-08-20 15:50:12 florian
|
||||
* more arm stuff
|
||||
|
||||
Revision 1.1 2003/08/16 13:23:01 florian
|
||||
* several arm related stuff fixed
|
||||
}
|
||||
|
||||
@ -33,7 +33,7 @@ unit cgcpu;
|
||||
cgbase,cgobj,
|
||||
aasmbase,aasmcpu,aasmtai,
|
||||
cpubase,cpuinfo,node,cg64f32,cginfo;
|
||||
;
|
||||
|
||||
|
||||
type
|
||||
tcgarm = class(tcg)
|
||||
@ -124,7 +124,7 @@ unit cgcpu;
|
||||
{ creates the correct branch instruction for a given combination }
|
||||
{ of asmcondflags and destination addressing mode }
|
||||
procedure a_jmp(list: taasmoutput; op: tasmop;
|
||||
c: tasmcondflag; crval: longint; l: tasmlabel);
|
||||
c: tasmcond; l: tasmlabel);
|
||||
|
||||
end;
|
||||
|
||||
@ -150,12 +150,362 @@ unit cgcpu;
|
||||
|
||||
implementation
|
||||
|
||||
|
||||
uses
|
||||
globtype,globals,verbose,systems,cutils,symconst,symdef,symsym,rgobj,tgobj,cpupi;
|
||||
|
||||
|
||||
procedure tcgarm.a_param_const(list : taasmoutput;size : tcgsize;a : aword;const locpara : tparalocation);
|
||||
var
|
||||
ref: treference;
|
||||
begin
|
||||
case locpara.loc of
|
||||
LOC_REGISTER,LOC_CREGISTER:
|
||||
a_load_const_reg(list,size,a,locpara.register);
|
||||
LOC_REFERENCE:
|
||||
begin
|
||||
reference_reset(ref);
|
||||
ref.base:=locpara.reference.index;
|
||||
ref.offset:=locpara.reference.offset;
|
||||
a_load_const_ref(list,size,a,ref);
|
||||
end;
|
||||
else
|
||||
internalerror(2002081101);
|
||||
end;
|
||||
if locpara.sp_fixup<>0 then
|
||||
internalerror(2002081102);
|
||||
end;
|
||||
|
||||
|
||||
procedure tcgarm.a_param_ref(list : taasmoutput;size : tcgsize;const r : treference;const locpara : tparalocation);
|
||||
var
|
||||
ref: treference;
|
||||
tmpreg: tregister;
|
||||
begin
|
||||
case locpara.loc of
|
||||
LOC_REGISTER,LOC_CREGISTER:
|
||||
a_load_ref_reg(list,size,size,r,locpara.register);
|
||||
LOC_REFERENCE:
|
||||
begin
|
||||
reference_reset(ref);
|
||||
ref.base:=locpara.reference.index;
|
||||
ref.offset:=locpara.reference.offset;
|
||||
tmpreg := rg.getregisterint(list,size);
|
||||
a_load_ref_reg(list,size,size,r,tmpreg);
|
||||
a_load_reg_ref(list,size,size,tmpreg,ref);
|
||||
rg.ungetregisterint(list,tmpreg);
|
||||
end;
|
||||
LOC_FPUREGISTER,LOC_CFPUREGISTER:
|
||||
case size of
|
||||
OS_F32, OS_F64:
|
||||
a_loadfpu_ref_reg(list,size,r,locpara.register);
|
||||
else
|
||||
internalerror(2002072801);
|
||||
end;
|
||||
else
|
||||
internalerror(2002081103);
|
||||
end;
|
||||
if locpara.sp_fixup<>0 then
|
||||
internalerror(2002081104);
|
||||
end;
|
||||
|
||||
|
||||
procedure tcgarm.a_paramaddr_ref(list : taasmoutput;const r : treference;const locpara : tparalocation);
|
||||
var
|
||||
ref: treference;
|
||||
tmpreg: tregister;
|
||||
begin
|
||||
case locpara.loc of
|
||||
LOC_REGISTER,LOC_CREGISTER:
|
||||
a_loadaddr_ref_reg(list,r,locpara.register);
|
||||
LOC_REFERENCE:
|
||||
begin
|
||||
reference_reset(ref);
|
||||
ref.base := locpara.reference.index;
|
||||
ref.offset := locpara.reference.offset;
|
||||
tmpreg := rg.getregisterint(list,OS_ADDR);
|
||||
a_loadaddr_ref_reg(list,r,tmpreg);
|
||||
a_load_reg_ref(list,OS_ADDR,OS_ADDR,tmpreg,ref);
|
||||
rg.ungetregisterint(list,tmpreg);
|
||||
end;
|
||||
else
|
||||
internalerror(2002080701);
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
procedure tcgarm.a_call_name(list : taasmoutput;const s : string);
|
||||
begin
|
||||
list.concat(taicpu.op_sym(A_BL,objectlibrary.newasmsymbol(s)));
|
||||
if not(pi_do_call in current_procinfo.flags) then
|
||||
internalerror(2003060703);
|
||||
end;
|
||||
|
||||
|
||||
procedure tcgarm.a_call_reg(list : taasmoutput;reg: tregister);
|
||||
var
|
||||
r : tregister;
|
||||
begin
|
||||
r.enum:=R_INTREGISTER;
|
||||
r.number:=NR_PC;
|
||||
list.concat(taicpu.op_reg_reg(A_MOV,r,reg));
|
||||
if not(pi_do_call in current_procinfo.flags) then
|
||||
internalerror(2003060704);
|
||||
end;
|
||||
|
||||
|
||||
procedure tcgarm.a_call_ref(list : taasmoutput;const ref : treference);
|
||||
var
|
||||
r : tregister;
|
||||
begin
|
||||
r.enum:=R_INTREGISTER;
|
||||
r.number:=NR_PC;
|
||||
a_load_ref_reg(list,OS_ADDR,OS_ADDR,ref,r);
|
||||
if not(pi_do_call in current_procinfo.flags) then
|
||||
internalerror(2003060705);
|
||||
end;
|
||||
|
||||
|
||||
procedure tcgarm.a_op_const_reg(list : taasmoutput; Op: TOpCG; size: TCGSize; a: AWord; reg: TRegister);
|
||||
begin
|
||||
end;
|
||||
|
||||
|
||||
procedure tcgarm.a_op_reg_reg(list : taasmoutput; Op: TOpCG; size: TCGSize; src, dst: TRegister);
|
||||
begin
|
||||
end;
|
||||
|
||||
|
||||
procedure tcgarm.a_op_const_reg_reg(list: taasmoutput; op: TOpCg;
|
||||
size: tcgsize; a: aword; src, dst: tregister);
|
||||
begin
|
||||
end;
|
||||
|
||||
|
||||
procedure tcgarm.a_op_reg_reg_reg(list: taasmoutput; op: TOpCg;
|
||||
size: tcgsize; src1, src2, dst: tregister);
|
||||
begin
|
||||
end;
|
||||
|
||||
|
||||
function rotl(d : dword;b : byte) : dword;
|
||||
begin
|
||||
result=(d shr (32-b)) or (d shl b);
|
||||
end;
|
||||
|
||||
|
||||
function is_shifter_const(d : dword;var imm_shift : byte) : boolean;
|
||||
var
|
||||
i : longint;
|
||||
begin
|
||||
for i:=0 to 15 do
|
||||
begin
|
||||
if (d and not(rotl($ff,i)))=0 then
|
||||
begin
|
||||
imm_shift:=i;
|
||||
result:=true;
|
||||
exit;
|
||||
end;
|
||||
end;
|
||||
result:=false;
|
||||
end;
|
||||
|
||||
|
||||
procedure a_load_const_reg(list : taasmoutput; size: tcgsize; a : aword;reg : tregister);override;
|
||||
var
|
||||
imm_shift : byte;
|
||||
l : tasmlabel;
|
||||
hr : treference;
|
||||
begin
|
||||
if not(size in [OS_8,OS_S8,OS_16,OS_S16,OS_32,OS_S32]) then
|
||||
internalerror(2002090902);
|
||||
if is_shifter_const(a,imm_shift) then
|
||||
list.concat(taicpu.op_reg_const(A_MOV,reg,a))
|
||||
else if is_shifter_const(not(a),imm_shift) then
|
||||
list.concat(taicpu.op_reg_const(A_MVN,reg,not(a)))
|
||||
else
|
||||
begin
|
||||
objectlibrary.getdatalabel(l);
|
||||
aktlocaldata.concat(Tai_const_symbol.Create(l));
|
||||
aktlocaldata.concat(Tai_const.Create_32bit(a));
|
||||
reference_reset(hr);
|
||||
hr.symbol:=l;
|
||||
list.concat(taicpu.op_reg_ref(A_LDR,reg,hr));
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
procedure tcgarm.a_load_reg_ref(list : taasmoutput; fromsize, tosize: tcgsize; reg : tregister;const ref : treference);
|
||||
begin
|
||||
end;
|
||||
|
||||
|
||||
procedure tcgarm.a_load_ref_reg(list : taasmoutput; fromsize, tosize : tcgsize;const Ref : treference;reg : tregister);
|
||||
begin
|
||||
end;
|
||||
|
||||
|
||||
procedure tcgarm.a_load_reg_reg(list : taasmoutput; fromsize, tosize : tcgsize;reg1,reg2 : tregister);
|
||||
begin
|
||||
end;
|
||||
|
||||
|
||||
procedure tcgarm.a_loadfpu_reg_reg(list: taasmoutput; size: tcgsize; reg1, reg2: tregister);
|
||||
begin
|
||||
end;
|
||||
|
||||
|
||||
procedure tcgarm.a_loadfpu_ref_reg(list: taasmoutput; size: tcgsize; const ref: treference; reg: tregister);
|
||||
begin
|
||||
end;
|
||||
|
||||
|
||||
procedure tcgarm.a_loadfpu_reg_ref(list: taasmoutput; size: tcgsize; reg: tregister; const ref: treference);
|
||||
begin
|
||||
end;
|
||||
|
||||
|
||||
{ comparison operations }
|
||||
procedure tcgarm.a_cmp_const_reg_label(list : taasmoutput;size : tcgsize;cmp_op : topcmp;a : aword;reg : tregister;
|
||||
l : tasmlabel);
|
||||
begin
|
||||
end;
|
||||
|
||||
|
||||
procedure tcgarm.a_cmp_reg_reg_label(list : taasmoutput;size : tcgsize;cmp_op : topcmp;reg1,reg2 : tregister;l : tasmlabel);
|
||||
begin
|
||||
end;
|
||||
|
||||
|
||||
procedure tcgarm.a_jmp_always(list : taasmoutput;l: tasmlabel);
|
||||
begin
|
||||
end;
|
||||
|
||||
|
||||
procedure tcgarm.a_jmp_flags(list : taasmoutput;const f : TResFlags;l: tasmlabel);
|
||||
begin
|
||||
end;
|
||||
|
||||
|
||||
procedure tcgarm.g_flags2reg(list: taasmoutput; size: TCgSize; const f: TResFlags; reg: TRegister);
|
||||
begin
|
||||
end;
|
||||
|
||||
|
||||
procedure tcgarm.g_copyvaluepara_openarray(list : taasmoutput;const ref, lenref:treference;elesize:integer);
|
||||
begin
|
||||
end;
|
||||
|
||||
|
||||
procedure tcgarm.g_stackframe_entry(list : taasmoutput;localsize : longint);
|
||||
begin
|
||||
end;
|
||||
|
||||
|
||||
procedure tcgarm.g_return_from_proc(list : taasmoutput;parasize : aword);
|
||||
begin
|
||||
end;
|
||||
|
||||
|
||||
procedure tcgarm.g_restore_frame_pointer(list : taasmoutput);
|
||||
begin
|
||||
end;
|
||||
|
||||
|
||||
procedure tcgarm.a_loadaddr_ref_reg(list : taasmoutput;const ref : treference;r : tregister);
|
||||
begin
|
||||
end;
|
||||
|
||||
|
||||
procedure tcgarm.g_concatcopy(list : taasmoutput;const source,dest : treference;len : aword; delsource,loadref : boolean);
|
||||
begin
|
||||
end;
|
||||
|
||||
|
||||
procedure tcgarm.g_overflowcheck(list: taasmoutput; const l: tlocation; def: tdef);
|
||||
begin
|
||||
end;
|
||||
|
||||
|
||||
procedure tcgarm.g_save_standard_registers(list : taasmoutput; usedinproc : Tsupregset);
|
||||
begin
|
||||
end;
|
||||
|
||||
|
||||
procedure tcgarm.g_restore_standard_registers(list : taasmoutput; usedinproc : Tsupregset);
|
||||
begin
|
||||
end;
|
||||
|
||||
|
||||
procedure tcgarm.g_save_all_registers(list : taasmoutput);
|
||||
begin
|
||||
end;
|
||||
|
||||
|
||||
procedure tcgarm.g_restore_all_registers(list : taasmoutput;accused,acchiused:boolean);
|
||||
begin
|
||||
end;
|
||||
|
||||
|
||||
procedure tcgarm.a_jmp_cond(list : taasmoutput;cond : TOpCmp;l: tasmlabel);
|
||||
begin
|
||||
end;
|
||||
|
||||
|
||||
procedure tcgarm.g_stackframe_entry_sysv(list : taasmoutput;localsize : longint);
|
||||
begin
|
||||
end;
|
||||
|
||||
|
||||
procedure tcgarm.g_return_from_proc_sysv(list : taasmoutput;parasize : aword);
|
||||
begin
|
||||
end;
|
||||
|
||||
|
||||
procedure tcgarm.g_stackframe_entry_aix(list : taasmoutput;localsize : longint);
|
||||
begin
|
||||
end;
|
||||
|
||||
|
||||
procedure tcgarm.g_return_from_proc_aix(list : taasmoutput;parasize : aword);
|
||||
begin
|
||||
end;
|
||||
|
||||
|
||||
procedure tcgarm.g_stackframe_entry_mac(list : taasmoutput;localsize : longint);
|
||||
begin
|
||||
end;
|
||||
|
||||
|
||||
procedure tcgarm.g_return_from_proc_mac(list : taasmoutput;parasize : aword);
|
||||
begin
|
||||
end;
|
||||
|
||||
|
||||
{ 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;
|
||||
ref: treference);
|
||||
begin
|
||||
end;
|
||||
|
||||
|
||||
{ creates the correct branch instruction for a given combination }
|
||||
{ of asmcondflags and destination addressing mode }
|
||||
procedure tcgarm.a_jmp(list: taasmoutput; op: tasmop;
|
||||
c: tasmcond; l: tasmlabel);
|
||||
begin
|
||||
end;
|
||||
|
||||
|
||||
begin
|
||||
cg := tcgarm.create;
|
||||
cg64 :=tcg64farm.create;
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.1 2003-07-21 16:35:30 florian
|
||||
Revision 1.2 2003-08-20 15:50:12 florian
|
||||
* more arm stuff
|
||||
|
||||
Revision 1.1 2003/07/21 16:35:30 florian
|
||||
* very basic stuff for the arm
|
||||
}
|
||||
|
||||
@ -113,6 +113,7 @@ uses
|
||||
NR_R9 = $0A00; NR_R10 = $0B00; NR_R11 = $0C00;
|
||||
NR_R12 = $0D00; NR_R13 = $0E00; NR_R14 = $0F00;
|
||||
NR_R15 = $1000;
|
||||
NR_PC = NR_R15;
|
||||
|
||||
{ Super registers: }
|
||||
RS_NONE=$00;
|
||||
@ -128,6 +129,7 @@ uses
|
||||
|
||||
{ registers which may be destroyed by calls }
|
||||
VOLATILE_INTREGISTERS = [RS_R0..RS_R3];
|
||||
VOLATILE_FPUREGISTERS = [R_F0..R_F3];
|
||||
|
||||
{ Number of first and last imaginary register. }
|
||||
first_imreg = $21;
|
||||
@ -386,6 +388,7 @@ uses
|
||||
{ c_countusableregsxxx = amount of registers in the usableregsxxx set }
|
||||
|
||||
maxintregs = 15;
|
||||
maxintscratchregs = 2;
|
||||
intregs = [R_R0..R_R14];
|
||||
usableregsint = [RS_R4..RS_R10];
|
||||
c_countusableregsint = 7;
|
||||
@ -628,7 +631,10 @@ implementation
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.3 2003-08-16 13:23:01 florian
|
||||
Revision 1.4 2003-08-20 15:50:13 florian
|
||||
* more arm stuff
|
||||
|
||||
Revision 1.3 2003/08/16 13:23:01 florian
|
||||
* several arm related stuff fixed
|
||||
|
||||
Revision 1.2 2003/07/26 00:55:57 florian
|
||||
|
||||
132
compiler/arm/cpupi.pas
Normal file
132
compiler/arm/cpupi.pas
Normal file
@ -0,0 +1,132 @@
|
||||
{
|
||||
$Id$
|
||||
Copyright (c) 2002 by Florian Klaempfl
|
||||
|
||||
This unit contains the CPU specific part of tprocinfo
|
||||
|
||||
This program is free software; you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation; either version 2 of the License, or
|
||||
(at your option) any later version.
|
||||
|
||||
This program is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
GNU General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU General Public License
|
||||
along with this program; if not, write to the Free Software
|
||||
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
||||
|
||||
****************************************************************************
|
||||
}
|
||||
|
||||
{ This unit contains the CPU specific part of tprocinfo. }
|
||||
unit cpupi;
|
||||
|
||||
{$i fpcdefs.inc}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
cutils,
|
||||
cgbase,cpuinfo,psub;
|
||||
|
||||
type
|
||||
tarmprocinfo = class(tcgprocinfo)
|
||||
{ max. of space need for parameters, currently used by the PowerPC port only }
|
||||
maxpushedparasize : aword;
|
||||
constructor create(aparent:tprocinfo);override;
|
||||
procedure handle_body_start;override;
|
||||
procedure after_pass1;override;
|
||||
procedure allocate_push_parasize(size: longint);override;
|
||||
function calc_stackframe_size:longint;override;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
globtype,globals,systems,
|
||||
cpubase,
|
||||
aasmtai,
|
||||
tgobj,
|
||||
symconst,symsym,paramgr;
|
||||
|
||||
constructor tarmprocinfo.create(aparent:tprocinfo);
|
||||
|
||||
begin
|
||||
inherited create(aparent);
|
||||
maxpushedparasize:=0;
|
||||
end;
|
||||
|
||||
|
||||
procedure tarmprocinfo.handle_body_start;
|
||||
var
|
||||
ofs : aword;
|
||||
begin
|
||||
if not(po_assembler in procdef.procoptions) then
|
||||
begin
|
||||
{!!!!!!!!
|
||||
case target_info.abi of
|
||||
abi_powerpc_aix:
|
||||
ofs:=align(maxpushedparasize+LinkageAreaSizeAIX,16);
|
||||
abi_powerpc_sysv:
|
||||
ofs:=align(maxpushedparasize+LinkageAreaSizeSYSV,16);
|
||||
end;
|
||||
}
|
||||
inc(procdef.parast.address_fixup,ofs);
|
||||
procdef.localst.address_fixup:=procdef.parast.address_fixup+procdef.parast.datasize;
|
||||
end;
|
||||
inherited handle_body_start;
|
||||
end;
|
||||
|
||||
|
||||
procedure tarmprocinfo.after_pass1;
|
||||
begin
|
||||
if not(po_assembler in procdef.procoptions) then
|
||||
begin
|
||||
if cs_asm_source in aktglobalswitches then
|
||||
aktproccode.insert(Tai_comment.Create(strpnew('Parameter copies start at: r1+'+tostr(procdef.parast.address_fixup))));
|
||||
|
||||
if cs_asm_source in aktglobalswitches then
|
||||
aktproccode.insert(Tai_comment.Create(strpnew('Locals start at: r1+'+tostr(procdef.localst.address_fixup))));
|
||||
|
||||
firsttemp_offset:=align(procdef.localst.address_fixup+procdef.localst.datasize,16);
|
||||
if cs_asm_source in aktglobalswitches then
|
||||
aktproccode.insert(Tai_comment.Create(strpnew('Temp. space start: r1+'+tostr(firsttemp_offset))));
|
||||
|
||||
//!!!! tg.setfirsttemp(firsttemp_offset);
|
||||
tg.firsttemp:=firsttemp_offset;
|
||||
tg.lasttemp:=firsttemp_offset;
|
||||
inherited after_pass1;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
procedure tarmprocinfo.allocate_push_parasize(size:longint);
|
||||
begin
|
||||
if size>maxpushedparasize then
|
||||
maxpushedparasize:=size;
|
||||
end;
|
||||
|
||||
|
||||
function tarmprocinfo.calc_stackframe_size:longint;
|
||||
begin
|
||||
{ more or less copied from cgcpu.pas/g_stackframe_entry }
|
||||
if not (po_assembler in procdef.procoptions) then
|
||||
result := align(align((31-13+1)*4+(31-14+1)*8,16)+tg.lasttemp,16)
|
||||
else
|
||||
result := align(tg.lasttemp,16);
|
||||
end;
|
||||
|
||||
|
||||
begin
|
||||
cprocinfo:=tarmprocinfo;
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.1 2003-08-20 15:50:13 florian
|
||||
* more arm stuff
|
||||
}
|
||||
|
||||
124
compiler/arm/cpuswtch.pas
Normal file
124
compiler/arm/cpuswtch.pas
Normal file
@ -0,0 +1,124 @@
|
||||
{
|
||||
$Id$
|
||||
Copyright (c) 1998-2002 by Florian Klaempfl, Pierre Muller
|
||||
|
||||
interprets the commandline options which are arm specific
|
||||
|
||||
This program is free software; you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation; either version 2 of the License, or
|
||||
(at your option) any later version.
|
||||
|
||||
This program is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
GNU General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU General Public License
|
||||
along with this program; if not, write to the Free Software
|
||||
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
||||
|
||||
****************************************************************************
|
||||
}
|
||||
unit cpuswtch;
|
||||
|
||||
{$i fpcdefs.inc}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
options;
|
||||
|
||||
type
|
||||
toptionarm=class(toption)
|
||||
procedure interpret_proc_specific_options(const opt:string);override;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
cutils,globtype,systems,globals;
|
||||
|
||||
procedure toptionarm.interpret_proc_specific_options(const opt:string);
|
||||
var
|
||||
more: string;
|
||||
j: longint;
|
||||
begin
|
||||
More:=Upper(copy(opt,3,length(opt)-2));
|
||||
case opt[2] of
|
||||
'O' : Begin
|
||||
j := 3;
|
||||
While (j <= Length(Opt)) Do
|
||||
Begin
|
||||
case opt[j] of
|
||||
'-' :
|
||||
begin
|
||||
initglobalswitches:=initglobalswitches-[cs_optimize,cs_fastoptimize,cs_slowoptimize,cs_littlesize,
|
||||
cs_regvars,cs_uncertainopts];
|
||||
FillChar(ParaAlignment,sizeof(ParaAlignment),0);
|
||||
end;
|
||||
'a' :
|
||||
begin
|
||||
UpdateAlignmentStr(Copy(Opt,j+1,255),ParaAlignment);
|
||||
j:=length(Opt);
|
||||
end;
|
||||
'g' : initglobalswitches:=initglobalswitches+[cs_littlesize];
|
||||
'G' : initglobalswitches:=initglobalswitches-[cs_littlesize];
|
||||
'r' :
|
||||
begin
|
||||
initglobalswitches:=initglobalswitches+[cs_regvars];
|
||||
Simplify_ppu:=false;
|
||||
end;
|
||||
'u' : initglobalswitches:=initglobalswitches+[cs_uncertainopts];
|
||||
'1' : initglobalswitches:=initglobalswitches-[cs_fastoptimize,cs_slowoptimize]+[cs_optimize];
|
||||
'2' : initglobalswitches:=initglobalswitches-[cs_slowoptimize]+[cs_optimize,cs_fastoptimize];
|
||||
'3' : initglobalswitches:=initglobalswitches+[cs_optimize,cs_fastoptimize,cs_slowoptimize];
|
||||
{$ifdef dummy}
|
||||
'p' :
|
||||
Begin
|
||||
If j < Length(Opt) Then
|
||||
Begin
|
||||
Case opt[j+1] Of
|
||||
'1': initoptprocessor := Class386;
|
||||
'2': initoptprocessor := ClassP5;
|
||||
'3': initoptprocessor := ClassP6
|
||||
Else IllegalPara(Opt)
|
||||
End;
|
||||
Inc(j);
|
||||
End
|
||||
Else IllegalPara(opt)
|
||||
End;
|
||||
{$endif dummy}
|
||||
else IllegalPara(opt);
|
||||
End;
|
||||
Inc(j)
|
||||
end;
|
||||
end;
|
||||
{$ifdef dummy}
|
||||
'R' : begin
|
||||
if More='GAS' then
|
||||
initasmmode:=asmmode_ppc_gas
|
||||
else
|
||||
if More='MOTOROLA' then
|
||||
initasmmode:=asmmode_ppc_motorola
|
||||
else
|
||||
if More='DIRECT' then
|
||||
initasmmode:=asmmode_direct
|
||||
else
|
||||
IllegalPara(opt);
|
||||
end;
|
||||
{$endif dummy}
|
||||
else
|
||||
IllegalPara(opt);
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
initialization
|
||||
coption:=toptionarm;
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.1 2003-08-20 15:50:13 florian
|
||||
* more arm stuff
|
||||
}
|
||||
Loading…
Reference in New Issue
Block a user