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

+ support generating R_WASM_TABLE_INDEX_I32 relocations

Browse Source
This commit is contained in:
Nikolay Nikolov 2021-09-26 04:46:46 +03:00
parent acdb65c2a3
commit bf5048cb5e
1 changed files with 24 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
compiler/ogwasm.pas
View File

@ -548,7 +548,14 @@ implementation
end;
RELOC_ABSOLUTE:
begin
{ todo... }
if len<>4 then
internalerror(2021092607);
if not assigned(p) then
internalerror(2021092608);
objreloc:=TWasmObjRelocation.CreateSymbol(CurrObjSec.Size,p,Reloctype);
CurrObjSec.ObjRelocations.Add(objreloc);
Data:=NtoLE(Data);
writebytes(Data,4);
end;
else
internalerror(2021092501);
@ -893,6 +900,8 @@ implementation
AddUleb5(objsec.Data,objrel.symbol.offset+TWasmObjSection(objrel.symbol.objsection).SegOfs);
end;
end;
RELOC_ABSOLUTE:
;
else
internalerror(2021092510);
end;
@ -954,6 +963,20 @@ implementation
WriteUleb(relout,TWasmObjSymbol(objrel.symbol).SymbolIndex);
WriteUleb(relout,0); { addend to add to the address }
end;
RELOC_ABSOLUTE:
begin
if not assigned(objrel.symbol) then
internalerror(2021092604);
if IsExternalFunction(objrel.symbol) or (objrel.symbol.typ=AT_FUNCTION) then
begin
Inc(relcount^);
WriteByte(relout,Ord(R_WASM_TABLE_INDEX_I32));
WriteUleb(relout,objrel.DataOffset+objsec.FileSectionOfs);
WriteUleb(relout,TWasmObjSymbol(objrel.symbol).SymbolIndex);
end
else
internalerror(2021092609);
end;
else
internalerror(2021092507);
end;