paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 06:49:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ create relocation objects for R_WASM_TABLE_INDEX_I32 relocations in the wasm object reader

Browse Source
This commit is contained in:
Nikolay Nikolov 2023-12-28 20:59:32 +02:00
parent c605da6ab3
commit 118e093c97
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/ogwasm.pas
View File

@ -3837,6 +3837,18 @@ implementation
else else
Writeln('Warning! No object symbol created for ', SymbolTable[RelocIndex].SymName); Writeln('Warning! No object symbol created for ', SymbolTable[RelocIndex].SymName);
end; end;
R_WASM_TABLE_INDEX_I32:
begin
if RelocIndex>high(SymbolTable) then
begin
InputError('Symbol index in relocation too high');
exit;
end;
if Assigned(SymbolTable[RelocIndex].ObjSym) then
ObjSec.ObjRelocations.Add(TWasmObjRelocation.CreateSymbol(RelocOffset-BaseSectionOffset,SymbolTable[RelocIndex].ObjSym,RELOC_ABSOLUTE))
else
Writeln('Warning! No object symbol created for ', SymbolTable[RelocIndex].SymName);
end;
end; end;
end; end;