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

Add dwarf CFI for powerpc64 cpu

Browse Source 
(cherry picked from commit da683ade18)
This commit is contained in:
Pierre Muller 2023-11-23 21:19:52 +01:00
parent 340913a9db
commit 4fc8dde4fe
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/powerpc64/cgcpu.pas
View File

@ -1114,6 +1114,7 @@ var
var var
regcount : TSuperRegister; regcount : TSuperRegister;
href : TReference; href : TReference;
reg : TRegister;
mayNeedLRStore : boolean; mayNeedLRStore : boolean;
opc : tasmop; opc : tasmop;
begin begin
@ -1142,14 +1143,16 @@ var
reference_reset_base(href, NR_STACK_POINTER_REG, -8, ctempposinvalid, 8, []); reference_reset_base(href, NR_STACK_POINTER_REG, -8, ctempposinvalid, 8, []);
if (fprcount > 0) then if (fprcount > 0) then
for regcount := RS_F31 downto firstregfpu do begin for regcount := RS_F31 downto firstregfpu do begin
a_loadfpu_reg_ref(list, OS_FLOAT, OS_FLOAT, newreg(R_FPUREGISTER, reg:=newreg(R_FPUREGISTER, regcount, R_SUBNONE);
regcount, R_SUBNONE), href); a_loadfpu_reg_ref(list, OS_FLOAT, OS_FLOAT, reg, href);
current_asmdata.asmcfi.cfa_offset(list, reg, href.offset);
dec(href.offset, tcgsize2size[OS_FLOAT]); dec(href.offset, tcgsize2size[OS_FLOAT]);
end; end;
if (gprcount > 0) then if (gprcount > 0) then
for regcount := RS_R31 downto firstreggpr do begin for regcount := RS_R31 downto firstreggpr do begin
a_load_reg_ref(list, OS_INT, OS_INT, newreg(R_INTREGISTER, regcount, reg:=newreg(R_INTREGISTER, regcount, R_SUBNONE);
R_SUBNONE), href); a_load_reg_ref(list, OS_INT, OS_INT, reg, href);
current_asmdata.asmcfi.cfa_offset(list, reg, href.offset);
dec(href.offset, sizeof(pint)); dec(href.offset, sizeof(pint));
end; end;
{ VMX registers not supported by FPC atm } { VMX registers not supported by FPC atm }
@ -1161,6 +1164,7 @@ var
{ we may need to store R0 (=LR) ourselves } { we may need to store R0 (=LR) ourselves }
if ((cs_profile in init_settings.moduleswitches) or (mayNeedLRStore)) and (needslinkreg) then begin if ((cs_profile in init_settings.moduleswitches) or (mayNeedLRStore)) and (needslinkreg) then begin
reference_reset_base(href, NR_STACK_POINTER_REG, LA_LR_SYSV, ctempposinvalid, 8, []); reference_reset_base(href, NR_STACK_POINTER_REG, LA_LR_SYSV, ctempposinvalid, 8, []);
current_asmdata.asmcfi.cfa_offset(list, NR_R0, href.offset);
list.concat(taicpu.op_reg_ref(A_STD, NR_R0, href)); list.concat(taicpu.op_reg_ref(A_STD, NR_R0, href));
end; end;
end; end;
@ -1221,6 +1225,7 @@ begin
{ save old stack frame pointer } { save old stack frame pointer }
if (tcpuprocinfo(current_procinfo).needs_frame_pointer) then if (tcpuprocinfo(current_procinfo).needs_frame_pointer) then
list.concat(taicpu.op_reg_reg(A_MR, NR_OLD_STACK_POINTER_REG, NR_STACK_POINTER_REG)); list.concat(taicpu.op_reg_reg(A_MR, NR_OLD_STACK_POINTER_REG, NR_STACK_POINTER_REG));
current_asmdata.asmcfi.cfa_def_cfa_register(list,NR_FRAME_POINTER_REG);
{ create stack frame } { create stack frame }
if (not nostackframe) and (localsize > 0) and if (not nostackframe) and (localsize > 0) and
@ -1228,6 +1233,7 @@ begin
if (localsize <= high(smallint)) then begin if (localsize <= high(smallint)) then begin
reference_reset_base(href, NR_STACK_POINTER_REG, -localsize, ctempposinvalid, 8, []); reference_reset_base(href, NR_STACK_POINTER_REG, -localsize, ctempposinvalid, 8, []);
a_load_store(list, A_STDU, NR_STACK_POINTER_REG, href); a_load_store(list, A_STDU, NR_STACK_POINTER_REG, href);
current_asmdata.asmcfi.cfa_def_cfa_offset(list,localsize);
end else begin end else begin
reference_reset_base(href, NR_NO, -localsize, ctempposinvalid, 8, []); reference_reset_base(href, NR_NO, -localsize, ctempposinvalid, 8, []);
@ -1250,6 +1256,7 @@ begin
list.concat(taicpu.op_reg_reg_const(A_ORI, NR_R0, NR_R0, word(href.offset))); list.concat(taicpu.op_reg_reg_const(A_ORI, NR_R0, NR_R0, word(href.offset)));
list.concat(taicpu.op_reg_reg_reg(A_STDUX, NR_R1, NR_R1, NR_R0)); list.concat(taicpu.op_reg_reg_reg(A_STDUX, NR_R1, NR_R1, NR_R0));
current_asmdata.asmcfi.cfa_def_cfa_offset(list,localsize);
end; end;
end; end;
@ -1260,6 +1267,7 @@ begin
begin begin
reference_reset_base(href,NR_STACK_POINTER_REG,get_rtoc_offset,ctempposinvalid,target_info.stackalign,[]); reference_reset_base(href,NR_STACK_POINTER_REG,get_rtoc_offset,ctempposinvalid,target_info.stackalign,[]);
a_load_reg_ref(list,OS_ADDR,OS_ADDR,NR_RTOC,href); a_load_reg_ref(list,OS_ADDR,OS_ADDR,NR_RTOC,href);
current_asmdata.asmcfi.cfa_offset(list, NR_RTOC, href.offset);
end; end;
{ CR register not used by FPC atm } { CR register not used by FPC atm }