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

* fixed another crash in the wasi internal linker, caused by missing resource section

Browse Source
This commit is contained in:
Nikolay Nikolov 2024-06-28 00:17:44 +03:00
parent a71995a521
commit c88037b8a7
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/ogwasm.pas
View File

@ -4644,14 +4644,17 @@ implementation
begin
DataCount:=0;
for DataSecName in DataSections do
if FindExeSection(DataSecName).Size>0 then
Inc(DataCount);
begin
ExeSec:=FindExeSection(DataSecName);
if Assigned(ExeSec) and (ExeSec.Size>0) then
Inc(DataCount);
end;
WriteUleb(FWasmSections[wsiDataCount],DataCount);
WriteUleb(FWasmSections[wsiData],DataCount);
for DataSecName in DataSections do
begin
ExeSec:=FindExeSection(DataSecName);
if ExeSec.Size>0 then
if Assigned(ExeSec) and (ExeSec.Size>0) then
WriteExeSection(ExeSec);
end;
end;