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

+ wasi internal linker: also write the fpc.resources section to the file

Browse Source
This commit is contained in:
Nikolay Nikolov 2024-06-27 23:32:54 +03:00
parent e17b6291f5
commit c4f046f1b8
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

@ -4635,11 +4635,12 @@ implementation
var var
DataCount: Integer; DataCount: Integer;
begin begin
DataCount:=2; DataCount:=3;
WriteUleb(FWasmSections[wsiDataCount],DataCount); WriteUleb(FWasmSections[wsiDataCount],DataCount);
WriteUleb(FWasmSections[wsiData],DataCount); WriteUleb(FWasmSections[wsiData],DataCount);
WriteExeSection(FindExeSection('.rodata')); WriteExeSection(FindExeSection('.rodata'));
WriteExeSection(FindExeSection('.data')); WriteExeSection(FindExeSection('.data'));
WriteExeSection(FindExeSection('fpc.resources'));
end; end;
procedure WriteTableAndElemSections; procedure WriteTableAndElemSections;