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

* wasm internal object reader: validate that R_WASM_TAG_INDEX_LEB relocations point to a SYMTAB_EVENT symbol

Browse Source
This commit is contained in:
Nikolay Nikolov 2024-01-07 01:43:47 +02:00
parent 962b36a6e8
commit 3121f3f8a0
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

@ -2697,6 +2697,11 @@ implementation
InputError('Relocation must point to a SYMTAB_GLOBAL symbol');
exit;
end;
if (RelocType=R_WASM_TAG_INDEX_LEB) and (SymbolTable[RelocIndex].SymKind<>SYMTAB_EVENT) then
begin
InputError('Relocation must point to a SYMTAB_EVENT symbol');
exit;
end;
if (RelocType in [
R_WASM_FUNCTION_INDEX_LEB,
R_WASM_TABLE_INDEX_SLEB,