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

+ wasm object reader: range check the symbol indices of SYMTAB_FUNCTION entries

Browse Source
This commit is contained in:
Nikolay Nikolov 2023-12-27 14:52:37 +02:00
parent efc4ab7928
commit a6d4374f10
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

@ -2438,6 +2438,11 @@ implementation
InputError('Error reading the index of a ' + SymKindName + ' symbol'); InputError('Error reading the index of a ' + SymKindName + ' symbol');
exit; exit;
end; end;
if ((SymKind=byte(SYMTAB_FUNCTION)) and (SymIndex>high(FuncTypes))) then
begin
InputError('Symbol index too high');
exit;
end;
if ((SymFlags and WASM_SYM_EXPLICIT_NAME)<>0) or if ((SymFlags and WASM_SYM_EXPLICIT_NAME)<>0) or
((SymFlags and WASM_SYM_UNDEFINED)=0) then ((SymFlags and WASM_SYM_UNDEFINED)=0) then
begin begin