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

+ check the code entries count in the wasm object reader

Browse Source
This commit is contained in:
Nikolay Nikolov 2023-12-28 14:14:30 +02:00
parent 87a3bfe99d
commit 4b179ce4fa
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/ogwasm.pas
View File

@ -3091,6 +3091,11 @@ implementation
InputError('Error reading the code entries cound from the code section');
exit;
end;
if CodeEntriesCount <> (Length(FuncTypes) - FuncTypeImportsCount) then
begin
InputError('Code segment count in the code section does not match the function definition count in the function section');
exit;
end;
SetLength(CodeSegments,CodeEntriesCount);
for i:=0 to CodeEntriesCount-1 do
with CodeSegments[i] do