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

+ added check for the ExeFunctionIndex inside WriteCodeSegments

Browse Source
This commit is contained in:
Nikolay Nikolov 2024-01-01 00:15:27 +02:00
parent 88a42c3ee0
commit 507e9eb20a
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ogwasm.pas
View File

@ -4091,6 +4091,8 @@ implementation
internalerror(2023123104);
if not assigned(objsec.data) then
internalerror(2023123105);
if objsec.MainFuncSymbol.LinkingData.ExeFunctionIndex<>(i+Length(FFunctionImports)) then
internalerror(2024010101);
WriteUleb(FWasmSections[wsiFunction],objsec.MainFuncSymbol.LinkingData.ExeTypeIndex);
WriteUleb(FWasmSections[wsiCode],objsec.Data.size);
objsec.Data.seek(0);