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

+ wasm internal linker: implemented RELOC_TAG_INDEX_LEB relocations

Browse Source
This commit is contained in:
Nikolay Nikolov 2024-01-07 02:39:57 +02:00
parent 4084da63ab
commit cd72a8910e
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ogwasm.pas
View File

@ -4956,6 +4956,13 @@ implementation
objsec.Data.seek(objreloc.DataOffset);
WriteUleb5(objsec.Data,UInt32(objsym.offset+objsym.objsection.MemPos));
end;
RELOC_TAG_INDEX_LEB:
begin
if objsym.typ<>AT_WASM_EXCEPTION_TAG then
internalerror(2024010708);
objsec.Data.seek(objreloc.DataOffset);
WriteUleb5(objsec.Data,UInt32(objsym.offset+objsym.objsection.MemPos));
end;
else
Writeln('Symbol relocation not yet implemented! ', objreloc.typ);
end;