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

- wasm internal object reader: removed redundant check for R_WASM_TABLE_INDEX_I32 pointing to a SYMTAB_FUNCTION entry (we now do this check earlier)

Browse Source
This commit is contained in:
Nikolay Nikolov 2024-01-06 21:39:31 +02:00
parent e3b6d70f93
commit b679f8bc06
1 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/ogwasm.pas
View File

@ -4269,14 +4269,7 @@ implementation
R_WASM_TABLE_INDEX_SLEB:
ObjSec.ObjRelocations.Add(TWasmObjRelocation.CreateSymbol(RelocOffset-BaseSectionOffset,SymbolTable[RelocIndex].ObjSym,RELOC_MEMORY_ADDR_OR_TABLE_INDEX_SLEB));
R_WASM_TABLE_INDEX_I32:
begin
if SymbolTable[RelocIndex].ObjSym.typ<>AT_FUNCTION then
begin
InputError('R_WASM_TABLE_INDEX_I32 relocation must point to a function symbol');
exit;
end;
ObjSec.ObjRelocations.Add(TWasmObjRelocation.CreateSymbol(RelocOffset-BaseSectionOffset,SymbolTable[RelocIndex].ObjSym,RELOC_ABSOLUTE));
end;
ObjSec.ObjRelocations.Add(TWasmObjRelocation.CreateSymbol(RelocOffset-BaseSectionOffset,SymbolTable[RelocIndex].ObjSym,RELOC_ABSOLUTE));
R_WASM_MEMORY_ADDR_LEB:
begin
ObjReloc:=TWasmObjRelocation.CreateSymbol(RelocOffset-BaseSectionOffset,SymbolTable[RelocIndex].ObjSym,RELOC_MEMORY_ADDR_LEB);