paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-23 18:40:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ wasm internal object reader: bounds check the tag type index against the types table

Browse Source
This commit is contained in:
Nikolay Nikolov 2024-01-07 01:25:48 +02:00
parent 2de0bcb8d0
commit 79d739baa6
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/ogwasm.pas
View File

@ -3368,6 +3368,11 @@ implementation
InputError('Error reading import tag type index'); InputError('Error reading import tag type index');
exit; exit;
end; end;
if TagTypeIdx>high(FFuncTypes) then
begin
InputError('Type index in tag import exceeds bounds of the types table');
exit;
end;
end; end;
end; end;
else else
@ -3723,6 +3728,11 @@ implementation
InputError('Error reading tag type index'); InputError('Error reading tag type index');
exit; exit;
end; end;
if TagTypeIdx>high(FFuncTypes) then
begin
InputError('Type index in tag import exceeds bounds of the types table');
exit;
end;
end; end;
if AReader.Pos<>(SectionStart+SectionSize) then if AReader.Pos<>(SectionStart+SectionSize) then
begin begin