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

+ support writing R_WASM_GLOBAL_INDEX_I32 relocations in the WebAssembly internal object writer

Browse Source
This commit is contained in:
Nikolay Nikolov 2024-09-11 00:12:20 +03:00
parent ee98fa8e3f
commit 9799c6a5ec
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/ogwasm.pas
View File

@ -1609,6 +1609,16 @@ implementation
WriteUleb(relout,FuncSym.SymbolIndex); WriteUleb(relout,FuncSym.SymbolIndex);
WriteSleb(relout,objrel.Addend+objrel.symbol.address); { addend to add to the address } WriteSleb(relout,objrel.Addend+objrel.symbol.address); { addend to add to the address }
end end
else if assigned(objrel.symbol) and (objrel.symbol.typ=AT_WASM_GLOBAL) then
begin
Inc(relcount^);
WriteByte(relout,Ord(R_WASM_GLOBAL_INDEX_I32));
WriteUleb(relout,objrel.DataOffset+objsec.FileSectionOfs);
if (TWasmObjSymbol(objrel.symbol).SymbolIndex<0) then
message1(asmw_e_illegal_unset_index,objrel.symbol.name)
else
WriteUleb(relout,TWasmObjSymbol(objrel.symbol).SymbolIndex);
end
else else
begin begin
Inc(relcount^); Inc(relcount^);