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

* fix the final entry size in the .debug_aranges table on platforms where the

Browse Source 
ALU size differs from the address size (such as WebAssembly 32-bit)
This commit is contained in:
Nikolay Nikolov 2024-09-11 02:39:24 +03:00
parent cc15a2dba7
commit d2231e99e8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/dbgdwarf.pas
View File

@ -3401,9 +3401,9 @@ implementation
current_asmdata.asmlists[al_dwarf_aranges].concat(tai_const.Create_32bit_unaligned(0)); current_asmdata.asmlists[al_dwarf_aranges].concat(tai_const.Create_32bit_unaligned(0));
{$else i8086} {$else i8086}
{ offset } { offset }
current_asmdata.asmlists[al_dwarf_aranges].concat(tai_const.Create_aint(0)); current_asmdata.asmlists[al_dwarf_aranges].concat(tai_const.Create_nil_codeptr);
{ length } { length }
current_asmdata.asmlists[al_dwarf_aranges].concat(tai_const.Create_aint(0)); current_asmdata.asmlists[al_dwarf_aranges].concat(tai_const.Create_nil_codeptr);
{$endif i8086} {$endif i8086}
current_asmdata.asmlists[al_dwarf_aranges].concat(tai_symbol.createname(target_asm.labelprefix+'earanges0',AT_METADATA,0,voidpointertype)); current_asmdata.asmlists[al_dwarf_aranges].concat(tai_symbol.createname(target_asm.labelprefix+'earanges0',AT_METADATA,0,voidpointertype));
end; end;