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

+ wasm internal object reader: validate that relocations that should point to a SYMTAB_FUNCTION entry, actually point to such entry

Browse Source
This commit is contained in:
Nikolay Nikolov 2024-01-06 20:30:20 +02:00
parent baf9681684
commit 3071ae231a
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/ogwasm.pas
View File

@ -2678,6 +2678,15 @@ implementation
InputError('R_WASM_SECTION_OFFSET_I32 must point to a SYMTAB_SECTION symbol'); InputError('R_WASM_SECTION_OFFSET_I32 must point to a SYMTAB_SECTION symbol');
exit; exit;
end; end;
if (RelocType in [
R_WASM_FUNCTION_INDEX_LEB,
R_WASM_TABLE_INDEX_SLEB,
R_WASM_TABLE_INDEX_I32,
R_WASM_FUNCTION_OFFSET_I32]) and (SymbolTable[RelocIndex].SymKind<>SYMTAB_FUNCTION) then
begin
InputError('Relocation must point to a SYMTAB_FUNCTION symbol');
exit;
end;
end; end;
if AReader.Pos<>(SectionStart+SectionSize) then if AReader.Pos<>(SectionStart+SectionSize) then
begin begin