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

* initial implementation of CFI support for arm (non-thumb)

Browse Source 
git-svn-id: trunk@48684 -
This commit is contained in:
florian 2021-02-15 21:34:07 +00:00
parent a3d68e6839
commit e694897bb3
2 changed files with 16 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/arm/cgcpu.pas
View File

@ -1907,7 +1907,7 @@ unit cgcpu;
r : byte;
mmregs,
regs, saveregs : tcpuregisterset;
registerarea,
registerarea, offset,
r7offset,
stackmisalignment : pint;
imm1, imm2: DWord;
@ -2005,6 +2005,7 @@ unit cgcpu;
break;
end;
list.concat(setoppostfix(taicpu.op_ref_regset(A_STM,ref,R_INTREGISTER,R_SUBWHOLE,regs),PF_FD));
current_asmdata.asmcfi.cfa_def_cfa_offset(list,registerarea);
end;
if current_procinfo.framepointer<>NR_STACK_POINTER_REG then
@ -2013,6 +2014,15 @@ unit cgcpu;
framepointer is at R11-12 (for get_caller_frame) }
list.concat(taicpu.op_reg_reg_const(A_SUB,NR_FRAME_POINTER_REG,NR_R12,4));
a_reg_dealloc(list,NR_R12);
current_asmdata.asmcfi.cfa_def_cfa_register(list,current_procinfo.framepointer);
current_asmdata.asmcfi.cfa_def_cfa_offset(list,4);
offset:=-4;
for r:=RS_R15 downto RS_R0 do
if r in regs then
begin
current_asmdata.asmcfi.cfa_offset(list,newreg(R_INTREGISTER,r,R_SUBWHOLE),offset);
dec(offset,4);
end;
end;
end
else
@ -2095,6 +2105,8 @@ unit cgcpu;
list.concat(taicpu.op_reg_reg_reg(A_SUB,NR_STACK_POINTER_REG,NR_STACK_POINTER_REG,NR_R12));
a_reg_dealloc(list,NR_R12);
end;
if current_procinfo.framepointer=NR_STACK_POINTER_REG then
current_asmdata.asmcfi.cfa_def_cfa_offset(list,registerarea+localsize);
end;
if (mmregs<>[]) or

19
compiler/cfidwarf.pas
View File

@ -292,22 +292,9 @@ implementation
{$elseif defined(arm)}
procedure TDwarfAsmCFILowLevel.generate_initial_instructions(list:TAsmList);
begin
if GenerateThumbCode then
begin
list.concat(tai_const.create_8bit(DW_CFA_def_cfa));
list.concat(tai_const.create_uleb128bit(dwarf_reg(NR_STACK_POINTER_REG)));
list.concat(tai_const.create_uleb128bit(0));
end
else
begin
{ FIXME!!! }
list.concat(tai_const.create_8bit(DW_CFA_def_cfa));
list.concat(tai_const.create_uleb128bit(dwarf_reg(NR_STACK_POINTER_REG)));
list.concat(tai_const.create_uleb128bit(sizeof(aint)));
list.concat(tai_const.create_8bit(DW_CFA_offset_extended));
list.concat(tai_const.create_uleb128bit(dwarf_reg(NR_RETURN_ADDRESS_REG)));
list.concat(tai_const.create_uleb128bit((-sizeof(aint)) div data_alignment_factor));
end;
list.concat(tai_const.create_8bit(DW_CFA_def_cfa));
list.concat(tai_const.create_uleb128bit(dwarf_reg(NR_STACK_POINTER_REG)));
list.concat(tai_const.create_uleb128bit(0));
end;
{$else}
{ if more cpu dependend stuff is implemented, this needs more refactoring }