paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 15:47:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ generate initial cfi for aarch64

Browse Source 
git-svn-id: trunk@48701 -
This commit is contained in:
florian 2021-02-17 20:43:37 +00:00
parent e08a2ea86b
commit 599ba8cc2a
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/aarch64/cpubase.pas
View File

@ -303,7 +303,7 @@ unit cpubase;
NR_MM_RESULT_REG = NR_D0;
NR_RETURN_ADDRESS_REG = NR_FUNCTION_RETURN_REG;
NR_RETURN_ADDRESS_REG = NR_LR;
{ Offset where the parent framepointer is pushed }
PARENT_FRAMEPOINTER_OFFSET = 0;

9
compiler/cfidwarf.pas
View File

@ -244,8 +244,6 @@ implementation
datatype:=dt_none;
end;
{****************************************************************************
TDwarfAsmCFILowLevel
****************************************************************************}
@ -296,6 +294,13 @@ implementation
list.concat(tai_const.create_uleb128bit(dwarf_reg(NR_STACK_POINTER_REG)));
list.concat(tai_const.create_uleb128bit(0));
end;
{$elseif defined(aarch64)}
procedure TDwarfAsmCFILowLevel.generate_initial_instructions(list:TAsmList);
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}
{ if more cpu dependend stuff is implemented, this needs more refactoring }
procedure TDwarfAsmCFILowLevel.generate_initial_instructions(list:TAsmList);