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

* wasm32 obj writer: do the relocations before writing the code, data and debug sections

Browse Source
This commit is contained in:
Nikolay Nikolov 2022-08-03 20:56:44 +03:00
parent edf5fce7e3
commit e959422753
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/ogwasm.pas
View File

@ -1915,6 +1915,8 @@ implementation
MaybeAddDebugSectionToSymbolTable('.debug_aranges',wcstDebugAranges,debug_aranges_section_nr); MaybeAddDebugSectionToSymbolTable('.debug_aranges',wcstDebugAranges,debug_aranges_section_nr);
MaybeAddDebugSectionToSymbolTable('.debug_ranges',wcstDebugRanges,debug_ranges_section_nr); MaybeAddDebugSectionToSymbolTable('.debug_ranges',wcstDebugRanges,debug_ranges_section_nr);
DoRelocations;
if segment_count>0 then if segment_count>0 then
begin begin
WriteUleb(FWasmSections[wsiData],segment_count); WriteUleb(FWasmSections[wsiData],segment_count);
@ -1974,7 +1976,6 @@ implementation
MaybeWriteDebugSection('.debug_aranges',wcstDebugAranges); MaybeWriteDebugSection('.debug_aranges',wcstDebugAranges);
MaybeWriteDebugSection('.debug_ranges',wcstDebugRanges); MaybeWriteDebugSection('.debug_ranges',wcstDebugRanges);
DoRelocations;
WriteRelocations; WriteRelocations;
WriteSymbolTable; WriteSymbolTable;