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

+ partial implementation of emitting RELOC_FUNCTION_INDEX_LEB relocations

Browse Source
This commit is contained in:
Nikolay Nikolov 2021-09-25 18:24:01 +03:00
parent a7ad65f884
commit a5d1ce26a0
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/ogwasm.pas
View File

@ -328,7 +328,25 @@ implementation
procedure TWasmObjData.writeReloc(Data: TRelocDataInt; len: aword;
p: TObjSymbol; Reloctype: TObjRelocationType);
const
leb_zero: array[0..4] of byte=($80,$80,$80,$80,$00);
begin
case Reloctype of
RELOC_FUNCTION_INDEX_LEB:
begin
if Data<>0 then
internalerror(2021092502);
if len<>5 then
internalerror(2021092503);
writebytes(leb_zero,5);
end;
RELOC_ABSOLUTE:
begin
{ todo... }
end;
else
internalerror(2021092501);
end;
end;
function TWasmObjData.AddOrCreateObjSymbolExtraData(const symname: TSymStr): TWasmObjSymbolExtraData;