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

* AVR: fixed TDwarfAsmCFILowLevel.generate_initial_instructions

Browse Source 
git-svn-id: trunk@43982 -
This commit is contained in:
florian 2020-01-19 15:55:21 +00:00
parent 4b4e316af0
commit 6f434b6751
1 changed files with 12 additions and 2 deletions

14
compiler/cfidwarf.pas
View File

@ -257,7 +257,7 @@ implementation
end;
{$ifdef i386}
{$if defined(i386)}
{ if more cpu dependend stuff is implemented, this needs more refactoring }
procedure TDwarfAsmCFILowLevel.generate_initial_instructions(list:TAsmList);
begin
@ -268,7 +268,17 @@ implementation
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;
{$else i386}
{$elseif defined(avr)}
procedure TDwarfAsmCFILowLevel.generate_initial_instructions(list:TAsmList);
begin
list.concat(tai_const.create_8bit(DW_CFA_def_cfa));
list.concat(tai_const.create_uleb128bit(32));
list.concat(tai_const.create_uleb128bit(2));
list.concat(tai_const.create_8bit(DW_CFA_offset_extended));
list.concat(tai_const.create_uleb128bit(36));
list.concat(tai_const.create_uleb128bit((-1) div data_alignment_factor));
end;
{$else}
{ if more cpu dependend stuff is implemented, this needs more refactoring }
procedure TDwarfAsmCFILowLevel.generate_initial_instructions(list:TAsmList);
begin