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

+ check bounds for SymIndex of SYMTAB_DATA symbols

Browse Source
This commit is contained in:
Nikolay Nikolov 2023-12-27 13:01:49 +02:00
parent 121e793c37
commit e569863a1a
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

@ -2422,6 +2422,11 @@ implementation
InputError('Error reading the data segment index of a SYMTAB_DATA symbol');
exit;
end;
if SymIndex>high(DataSegments) then
begin
InputError('Data segment index of SYMTAB_DATA symbol out of bounds');
exit;
end;
if not ReadUleb32(SymOffset) then
begin
InputError('Error reading the offset of a SYMTAB_DATA symbol');