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

Add internalerror if ogwasm tries to write unset Func/Global or TagIndex of TWasmObjSymbol

Browse Source
This commit is contained in:
Pierre Muller 2022-01-26 12:23:18 +00:00
parent 38706a1713
commit c9e8bfd118
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/ogwasm.pas
View File

@ -1025,7 +1025,10 @@ implementation
if not assigned(objrel.symbol) then
internalerror(2021092509);
objsec.Data.seek(objrel.DataOffset);
WriteUleb5(objsec.Data,TWasmObjSymbol(objrel.symbol).FuncIndex);
if TWasmObjSymbol(objrel.symbol).FuncIndex<0 then
internalerror(2022012401)
else
WriteUleb5(objsec.Data,TWasmObjSymbol(objrel.symbol).FuncIndex);
end;
RELOC_MEMORY_ADDR_OR_TABLE_INDEX_SLEB:
begin
@ -1064,14 +1067,20 @@ implementation
if not assigned(objrel.symbol) then
internalerror(2021092509);
objsec.Data.seek(objrel.DataOffset);
WriteUleb5(objsec.Data,TWasmObjSymbol(objrel.symbol).GlobalIndex);
if TWasmObjSymbol(objrel.symbol).GlobalIndex<0 then
internalerror(2022012402)
else
WriteUleb5(objsec.Data,TWasmObjSymbol(objrel.symbol).GlobalIndex);
end;
RELOC_TAG_INDEX_LEB:
begin
if not assigned(objrel.symbol) then
internalerror(2021092716);
objsec.Data.seek(objrel.DataOffset);
WriteSleb5(objsec.Data,TWasmObjSymbol(objrel.symbol).TagIndex);
if TWasmObjSymbol(objrel.symbol).TagIndex<0 then
internalerror(2022012403)
else
WriteSleb5(objsec.Data,TWasmObjSymbol(objrel.symbol).TagIndex);
end;
else
internalerror(2021092510);