paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-18 20:39:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

Start of PIC code support

Browse Source 
git-svn-id: trunk@21777 -
This commit is contained in:
pierre 2012-07-04 16:28:55 +00:00
parent 6a9edb2083
commit 7982b34416
1 changed files with 64 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

78
compiler/mips/cgcpu.pas
View File

@ -508,7 +508,7 @@ procedure TCGMIPS.init_register_allocators;
begin
inherited init_register_allocators;
if (cs_create_pic in current_settings.moduleswitches) and
if (cs_create_pic in current_settings.moduleswitches) and assigned(current_procinfo) and
(pi_needs_got in current_procinfo.flags) then
begin
current_procinfo.got := NR_GP;
@ -686,8 +686,18 @@ end;
procedure TCGMIPS.a_call_name(list: tasmlist; const s: string; weak: boolean);
var
href: treference;
begin
list.concat(taicpu.op_sym(A_JAL,current_asmdata.RefAsmSymbol(s)));
if (cs_create_pic in current_settings.moduleswitches) then
begin
reference_reset(href,sizeof(aint));
href.symbol:=current_asmdata.RefAsmSymbol(s);
a_loadaddr_ref_reg(list,href,NR_PIC_FUNC);
list.concat(taicpu.op_reg(A_JALR,NR_PIC_FUNC));
end
else
list.concat(taicpu.op_sym(A_JAL,current_asmdata.RefAsmSymbol(s)));
{ Delay slot }
list.concat(taicpu.op_none(A_NOP));
end;
@ -695,6 +705,9 @@ end;
procedure TCGMIPS.a_call_reg(list: tasmlist; Reg: TRegister);
begin
if (cs_create_pic in current_settings.moduleswitches) and
(Reg <> NR_PIC_FUNC) then
list.concat(taicpu.op_reg_reg(A_MOVE, reg, NR_PIC_FUNC));
list.concat(taicpu.op_reg(A_JALR, reg));
{ Delay slot }
list.concat(taicpu.op_none(A_NOP));
@ -1339,7 +1352,7 @@ var
lastintoffset,lastfpuoffset,
nextoffset : aint;
i : longint;
ra_save,framesave : taicpu;
ra_save,framesave,gp_save : taicpu;
fmask,mask : dword;
saveregs : tcpuregisterset;
StoreOp : TAsmOp;
@ -1388,8 +1401,12 @@ begin
include(saveregs,RS_R31);
if (TMIPSProcinfo(current_procinfo).needs_frame_pointer) then
include(saveregs,RS_FRAME_POINTER_REG);
if (cs_create_pic in current_settings.moduleswitches) and
(pi_needs_got in current_procinfo.flags) then
include(saveregs,RS_GP);
lastintoffset:=LocalSize;
framesave:=nil;
gp_save:=nil;
for reg:=RS_R1 to RS_R31 do
begin
@ -1403,10 +1420,15 @@ begin
framesave:=taicpu.op_reg_ref(A_SW,newreg(R_INTREGISTER,reg,R_SUBWHOLE),href)
else if (reg=RS_R31) then
ra_save:=taicpu.op_reg_ref(A_SW,newreg(R_INTREGISTER,reg,R_SUBWHOLE),href)
else if (reg=RS_GP) and
(cs_create_pic in current_settings.moduleswitches) and
(pi_needs_got in current_procinfo.flags) then
gp_save:=taicpu.op_const(A_P_CPRESTORE,nextoffset)
else
begin
if cs_asm_source in current_settings.globalswitches then
helplist.concat(tai_comment.Create(strpnew(std_regname(newreg(R_INTREGISTER,reg,R_SUBWHOLE))+' register saved.')));
helplist.concat(tai_comment.Create(strpnew(
std_regname(newreg(R_INTREGISTER,reg,R_SUBWHOLE))+' register saved.')));
helplist.concat(taicpu.op_reg_ref(A_SW,newreg(R_INTREGISTER,reg,R_SUBWHOLE),href));
end;
inc(nextoffset,4);
@ -1418,13 +1440,26 @@ begin
list.concat(Taicpu.op_reg_const_reg(A_P_FRAME,current_procinfo.framepointer,LocalSize,NR_R31));
list.concat(Taicpu.op_const_const(A_P_MASK,mask,-(LocalSize-lastintoffset)));
list.concat(Taicpu.op_const_const(A_P_FMASK,Fmask,-(LocalSize-lastfpuoffset)));
if (cs_create_pic in current_settings.moduleswitches) and
(pi_needs_got in current_procinfo.flags) then
begin
list.concat(Taicpu.op_reg(A_P_CPLOAD,NR_PIC_FUNC));
end;
list.concat(Taicpu.op_none(A_P_SET_NOREORDER));
list.concat(Taicpu.op_none(A_P_SET_NOMACRO));
if (-LocalSize >= simm16lo) and (-LocalSize <= simm16hi) then
begin
if cs_asm_source in current_settings.globalswitches then
list.concat(tai_comment.Create(strpnew('Stack register updated substract '+tostr(LocalSize)+' for local size')));
begin
list.concat(tai_comment.Create(strpnew('Stack register updated substract '+tostr(LocalSize)+' for local size')));
list.concat(tai_comment.Create(strpnew(' 0-'+
tostr(TMIPSProcInfo(current_procinfo).maxpushedparasize)+' for called function parameters')));
list.concat(tai_comment.Create(strpnew('Register save area at '+
tostr(TMIPSProcInfo(current_procinfo).intregstart))));
list.concat(tai_comment.Create(strpnew('FPU register save area at '+
tostr(TMIPSProcInfo(current_procinfo).floatregstart))));
end;
list.concat(Taicpu.Op_reg_reg_const(A_ADDIU,NR_STACK_POINTER_REG,NR_STACK_POINTER_REG,-LocalSize));
if cs_asm_source in current_settings.globalswitches then
list.concat(tai_comment.Create(strpnew('RA register saved.')));
@ -1434,6 +1469,8 @@ begin
if cs_asm_source in current_settings.globalswitches then
list.concat(tai_comment.Create(strpnew('Frame S8/FP register saved.')));
list.concat(framesave);
if cs_asm_source in current_settings.globalswitches then
list.concat(tai_comment.Create(strpnew('New frame FP register set to $sp+'+ToStr(LocalSize))));
list.concat(Taicpu.op_reg_reg_const(A_ADDIU,NR_FRAME_POINTER_REG,
NR_STACK_POINTER_REG,LocalSize));
end;
@ -1458,6 +1495,14 @@ begin
NR_STACK_POINTER_REG,NR_R1));
end;
end;
if assigned(gp_save) then
begin
if cs_asm_source in current_settings.globalswitches then
list.concat(tai_comment.Create(strpnew('GOT register saved.')));
list.concat(Taicpu.op_none(A_P_SET_MACRO));
list.concat(gp_save);
list.concat(Taicpu.op_none(A_P_SET_NOMACRO));
end;
with TMIPSProcInfo(current_procinfo) do
begin
@ -1517,7 +1562,7 @@ begin
end;
end;
if (cs_create_pic in current_settings.moduleswitches) and
(pi_needs_got in current_procinfo.flags) then
(pi_needs_got in current_procinfo.flags) then
begin
current_procinfo.got := NR_GP;
end;
@ -1776,25 +1821,30 @@ end;
procedure TCGMIPS.g_intf_wrapper(list: tasmlist; procdef: tprocdef; const labelname: string; ioffset: longint);
procedure loadvmttor25;
procedure loadvmttorvmt;
var
href: treference;
begin
reference_reset_base(href, NR_R2, 0, sizeof(aint)); { return value }
cg.a_load_ref_reg(list, OS_ADDR, OS_ADDR, href, NR_R25);
cg.a_load_ref_reg(list, OS_ADDR, OS_ADDR, href, NR_VMT);
end;
procedure op_onr25methodaddr;
procedure op_onrvmtmethodaddr;
var
href : treference;
reg : tregister;
begin
if (procdef.extnumber=$ffff) then
Internalerror(200006139);
{ call/jmp vmtoffs(%eax) ; method offs }
reference_reset_base(href, NR_R25, tobjectdef(procdef.struct).vmtmethodoffset(procdef.extnumber), sizeof(aint));
cg.a_load_ref_reg(list, OS_ADDR, OS_ADDR, href, NR_R25);
list.concat(taicpu.op_reg(A_JR, NR_R25));
reference_reset_base(href, NR_VMT, tobjectdef(procdef.struct).vmtmethodoffset(procdef.extnumber), sizeof(aint));
if (cs_create_pic in current_settings.moduleswitches) then
reg:=NR_PIC_FUNC
else
reg:=NR_VMT;
cg.a_load_ref_reg(list, OS_ADDR, OS_ADDR, href, reg);
list.concat(taicpu.op_reg(A_JR, reg));
end;
var
make_global: boolean;
@ -1825,8 +1875,8 @@ begin
if (po_virtualmethod in procdef.procoptions) and
not is_objectpascal_helper(procdef.struct) then
begin
loadvmttor25;
op_onr25methodaddr;
loadvmttorvmt;
op_onrvmtmethodaddr;
end
else
list.concat(taicpu.op_sym(A_J,current_asmdata.RefAsmSymbol(procdef.mangledname)));