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

* Section-offsets have 64 bits in the Dwarf-64 format

Browse Source
This commit is contained in:
Joost van der Sluis 2022-01-29 23:13:41 +01:00
parent 00efaece74
commit e547284588
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/dbgdwarf.pas
View File

@ -1354,6 +1354,9 @@ implementation
append_labelentry_addr_ref(sym) append_labelentry_addr_ref(sym)
else else
begin begin
if use_64bit_headers then
AddConstToAbbrev(ord(DW_FORM_ref8))
else
AddConstToAbbrev(ord(DW_FORM_ref4)); AddConstToAbbrev(ord(DW_FORM_ref4));
current_asmdata.asmlists[al_dwarf_info].concat(tai_const.create_rel_sym(offsetreltype,current_asmdata.DefineAsmSymbol(target_asm.labelprefix+'debug_info0',AB_LOCAL,AT_METADATA,voidpointertype),sym)); current_asmdata.asmlists[al_dwarf_info].concat(tai_const.create_rel_sym(offsetreltype,current_asmdata.DefineAsmSymbol(target_asm.labelprefix+'debug_info0',AB_LOCAL,AT_METADATA,voidpointertype),sym));
end; end;