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

* wasm internal linker: perform R_WASM_SECTION_OFFSET_I32 relocations

Browse Source
This commit is contained in:
Nikolay Nikolov 2024-01-06 21:12:22 +02:00
parent 1061965ea5
commit baee5b9fd4
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

@ -4727,6 +4727,13 @@ implementation
Writeln('Symbol relocation not yet implemented! ', objreloc.typ);
end;
end
else if assigned(objreloc.objsection) then
begin
if objreloc.typ<>RELOC_ABSOLUTE then
internalerror(2024010601);
objsec.Data.seek(objreloc.DataOffset);
writeUInt32LE(UInt32((objreloc.objsection.MemPos)+objreloc.Addend));
end
else if objreloc.typ=RELOC_TYPE_INDEX_LEB then
begin
objreloc.ExeTypeIndex:=FFuncTypes.AddOrGetFuncType(objreloc.FuncType);