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

+ implemented R_WASM_MEMORY_ADDR_SLEB and R_WASM_TABLE_INDEX_SLEB relocations in the wasm internal linker

Browse Source
This commit is contained in:
Nikolay Nikolov 2024-01-01 17:08:36 +02:00
parent b440f57739
commit 4208fc79c7
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/ogwasm.pas
View File

@ -4314,6 +4314,27 @@ implementation
objsec.Data.seek(objreloc.DataOffset); objsec.Data.seek(objreloc.DataOffset);
WriteUleb5(objsec.Data,UInt32((objsym.offset+objsym.objsection.MemPos)+objreloc.Addend)); WriteUleb5(objsec.Data,UInt32((objsym.offset+objsym.objsection.MemPos)+objreloc.Addend));
end; end;
RELOC_MEMORY_ADDR_OR_TABLE_INDEX_SLEB:
begin
case objsym.typ of
AT_FUNCTION:
begin
if objsym.LinkingData.ExeFunctionIndex=-1 then
internalerror(2024010103);
if objsym.LinkingData.ExeIndirectFunctionTableIndex=-1 then
objsym.LinkingData.ExeIndirectFunctionTableIndex:=AddOrGetIndirectFunctionTableIndex(objsym.LinkingData.ExeFunctionIndex);
objsec.Data.seek(objreloc.DataOffset);
WriteSleb5(objsec.Data,Int32(objsym.LinkingData.ExeIndirectFunctionTableIndex));
end;
AT_DATA:
begin
objsec.Data.seek(objreloc.DataOffset);
WriteSleb5(objsec.Data,Int32((objsym.offset+objsym.objsection.MemPos)+objreloc.Addend));
end;
else
internalerror(2024010110);
end;
end;
else else
Writeln('Symbol relocation not yet implemented! ', objreloc.typ); Writeln('Symbol relocation not yet implemented! ', objreloc.typ);
end; end;