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

* wasm internal object reader: removed the warnings in case of missing symbol (this will now create an internal error, instead)

Browse Source
This commit is contained in:
Nikolay Nikolov 2024-01-06 20:18:14 +02:00
parent a2a85dc7af
commit d87a6c89d4
1 changed files with 21 additions and 63 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
compiler/ogwasm.pas
View File

@ -4238,80 +4238,43 @@ implementation
end; end;
case TWasmRelocationType(RelocType) of case TWasmRelocationType(RelocType) of
R_WASM_FUNCTION_INDEX_LEB: R_WASM_FUNCTION_INDEX_LEB:
begin ObjSec.ObjRelocations.Add(TWasmObjRelocation.CreateSymbol(RelocOffset-BaseSectionOffset,SymbolTable[RelocIndex].ObjSym,RELOC_FUNCTION_INDEX_LEB));
if Assigned(SymbolTable[RelocIndex].ObjSym) then
ObjSec.ObjRelocations.Add(TWasmObjRelocation.CreateSymbol(RelocOffset-BaseSectionOffset,SymbolTable[RelocIndex].ObjSym,RELOC_FUNCTION_INDEX_LEB))
else
Writeln('Warning! No object symbol created for ', SymbolTable[RelocIndex].SymName);
end;
R_WASM_TABLE_INDEX_SLEB: R_WASM_TABLE_INDEX_SLEB:
begin ObjSec.ObjRelocations.Add(TWasmObjRelocation.CreateSymbol(RelocOffset-BaseSectionOffset,SymbolTable[RelocIndex].ObjSym,RELOC_MEMORY_ADDR_OR_TABLE_INDEX_SLEB));
if Assigned(SymbolTable[RelocIndex].ObjSym) then
ObjSec.ObjRelocations.Add(TWasmObjRelocation.CreateSymbol(RelocOffset-BaseSectionOffset,SymbolTable[RelocIndex].ObjSym,RELOC_MEMORY_ADDR_OR_TABLE_INDEX_SLEB))
else
Writeln('Warning! No object symbol created for ', SymbolTable[RelocIndex].SymName);
end;
R_WASM_TABLE_INDEX_I32: R_WASM_TABLE_INDEX_I32:
begin
if Assigned(SymbolTable[RelocIndex].ObjSym) then
begin begin
if SymbolTable[RelocIndex].ObjSym.typ<>AT_FUNCTION then if SymbolTable[RelocIndex].ObjSym.typ<>AT_FUNCTION then
begin begin
InputError('R_WASM_TABLE_INDEX_I32 relocation must point to a function symbol'); InputError('R_WASM_TABLE_INDEX_I32 relocation must point to a function symbol');
exit; exit;
end; end;
ObjSec.ObjRelocations.Add(TWasmObjRelocation.CreateSymbol(RelocOffset-BaseSectionOffset,SymbolTable[RelocIndex].ObjSym,RELOC_ABSOLUTE)) ObjSec.ObjRelocations.Add(TWasmObjRelocation.CreateSymbol(RelocOffset-BaseSectionOffset,SymbolTable[RelocIndex].ObjSym,RELOC_ABSOLUTE));
end
else
Writeln('Warning! No object symbol created for ', SymbolTable[RelocIndex].SymName);
end; end;
R_WASM_MEMORY_ADDR_LEB: R_WASM_MEMORY_ADDR_LEB:
begin
if Assigned(SymbolTable[RelocIndex].ObjSym) then
begin begin
ObjReloc:=TWasmObjRelocation.CreateSymbol(RelocOffset-BaseSectionOffset,SymbolTable[RelocIndex].ObjSym,RELOC_MEMORY_ADDR_LEB); ObjReloc:=TWasmObjRelocation.CreateSymbol(RelocOffset-BaseSectionOffset,SymbolTable[RelocIndex].ObjSym,RELOC_MEMORY_ADDR_LEB);
ObjReloc.Addend:=RelocAddend; ObjReloc.Addend:=RelocAddend;
ObjSec.ObjRelocations.Add(ObjReloc); ObjSec.ObjRelocations.Add(ObjReloc);
end
else
Writeln('Warning! No object symbol created for ', SymbolTable[RelocIndex].SymName);
end; end;
R_WASM_MEMORY_ADDR_SLEB: R_WASM_MEMORY_ADDR_SLEB:
begin
if Assigned(SymbolTable[RelocIndex].ObjSym) then
begin begin
ObjReloc:=TWasmObjRelocation.CreateSymbol(RelocOffset-BaseSectionOffset,SymbolTable[RelocIndex].ObjSym,RELOC_MEMORY_ADDR_OR_TABLE_INDEX_SLEB); ObjReloc:=TWasmObjRelocation.CreateSymbol(RelocOffset-BaseSectionOffset,SymbolTable[RelocIndex].ObjSym,RELOC_MEMORY_ADDR_OR_TABLE_INDEX_SLEB);
ObjReloc.Addend:=RelocAddend; ObjReloc.Addend:=RelocAddend;
ObjSec.ObjRelocations.Add(ObjReloc); ObjSec.ObjRelocations.Add(ObjReloc);
end
else
Writeln('Warning! No object symbol created for ', SymbolTable[RelocIndex].SymName);
end; end;
R_WASM_MEMORY_ADDR_I32: R_WASM_MEMORY_ADDR_I32:
begin
if Assigned(SymbolTable[RelocIndex].ObjSym) then
begin begin
ObjReloc:=TWasmObjRelocation.CreateSymbol(RelocOffset-BaseSectionOffset,SymbolTable[RelocIndex].ObjSym,RELOC_ABSOLUTE); ObjReloc:=TWasmObjRelocation.CreateSymbol(RelocOffset-BaseSectionOffset,SymbolTable[RelocIndex].ObjSym,RELOC_ABSOLUTE);
ObjReloc.Addend:=RelocAddend; ObjReloc.Addend:=RelocAddend;
ObjSec.ObjRelocations.Add(ObjReloc); ObjSec.ObjRelocations.Add(ObjReloc);
end
else
Writeln('Warning! No object symbol created for ', SymbolTable[RelocIndex].SymName);
end; end;
R_WASM_TYPE_INDEX_LEB: R_WASM_TYPE_INDEX_LEB:
begin
ObjSec.ObjRelocations.Add(TWasmObjRelocation.CreateFuncType(RelocOffset-BaseSectionOffset,FFuncTypes[RelocIndex])); ObjSec.ObjRelocations.Add(TWasmObjRelocation.CreateFuncType(RelocOffset-BaseSectionOffset,FFuncTypes[RelocIndex]));
end;
R_WASM_FUNCTION_OFFSET_I32: R_WASM_FUNCTION_OFFSET_I32:
begin
if Assigned(SymbolTable[RelocIndex].ObjSym) then
begin begin
ObjReloc:=TWasmObjRelocation.CreateSymbol(RelocOffset-BaseSectionOffset,SymbolTable[RelocIndex].ObjSym,RELOC_ABSOLUTE); ObjReloc:=TWasmObjRelocation.CreateSymbol(RelocOffset-BaseSectionOffset,SymbolTable[RelocIndex].ObjSym,RELOC_ABSOLUTE);
ObjReloc.Addend:=RelocAddend; ObjReloc.Addend:=RelocAddend;
ObjSec.ObjRelocations.Add(ObjReloc); ObjSec.ObjRelocations.Add(ObjReloc);
end
else
Writeln('Warning! No object symbol created for ', SymbolTable[RelocIndex].SymName);
end; end;
R_WASM_SECTION_OFFSET_I32: R_WASM_SECTION_OFFSET_I32:
begin begin
@ -4320,12 +4283,7 @@ implementation
ObjSec.ObjRelocations.Add(ObjReloc); ObjSec.ObjRelocations.Add(ObjReloc);
end; end;
R_WASM_GLOBAL_INDEX_LEB: R_WASM_GLOBAL_INDEX_LEB:
begin ObjSec.ObjRelocations.Add(TWasmObjRelocation.CreateSymbol(RelocOffset-BaseSectionOffset,SymbolTable[RelocIndex].ObjSym,RELOC_GLOBAL_INDEX_LEB));
if Assigned(SymbolTable[RelocIndex].ObjSym) then
ObjSec.ObjRelocations.Add(TWasmObjRelocation.CreateSymbol(RelocOffset-BaseSectionOffset,SymbolTable[RelocIndex].ObjSym,RELOC_GLOBAL_INDEX_LEB))
else
Writeln('Warning! No object symbol created for ', SymbolTable[RelocIndex].SymName);
end;
R_WASM_TAG_INDEX_LEB: R_WASM_TAG_INDEX_LEB:
begin begin
InputError('R_WASM_TAG_INDEX_LEB relocations not yet implemented'); InputError('R_WASM_TAG_INDEX_LEB relocations not yet implemented');