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

+ implemented RELOC_TYPE_INDEX_LEB relocations in the wasm internal linker

Browse Source
This commit is contained in:
Nikolay Nikolov 2024-01-01 14:35:10 +02:00
parent 0b3238bcd3
commit 69ce966691
1 changed files with 35 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
compiler/ogwasm.pas
View File

@ -76,7 +76,14 @@ interface
public
TypeIndex: Integer;
Addend: LongInt;
{ used during linking }
FuncType: TWasmFuncType;
ExeTypeIndex: Integer;
constructor CreateTypeIndex(ADataOffset:TObjSectionOfs; ATypeIndex: Integer);
constructor CreateFuncType(ADataOffset:TObjSectionOfs; AFuncType: TWasmFuncType);
destructor Destroy;override;
end;
{ TWasmObjSymbolExtraData }
@ -518,6 +525,27 @@ implementation
ObjSection:=nil;
ftype:=ord(RELOC_TYPE_INDEX_LEB);
TypeIndex:=ATypeIndex;
FuncType:=nil;
ExeTypeIndex:=-1;
end;
constructor TWasmObjRelocation.CreateFuncType(ADataOffset: TObjSectionOfs; AFuncType: TWasmFuncType);
begin
DataOffset:=ADataOffset;
Symbol:=nil;
OrgSize:=0;
Group:=nil;
ObjSection:=nil;
ftype:=ord(RELOC_TYPE_INDEX_LEB);
TypeIndex:=-1;
ExeTypeIndex:=-1;
FuncType:=TWasmFuncType.Create(AFuncType);
end;
destructor TWasmObjRelocation.Destroy;
begin
FuncType.Free;
inherited Destroy;
end;
{****************************************************************************
@ -4017,7 +4045,7 @@ implementation
InputError('Type index in relocation too high');
exit;
end;
ObjSec.ObjRelocations.Add(TWasmObjRelocation.CreateTypeIndex(RelocOffset-BaseSectionOffset,RelocIndex));
ObjSec.ObjRelocations.Add(TWasmObjRelocation.CreateFuncType(RelocOffset-BaseSectionOffset,FFuncTypes[RelocIndex]));
end;
R_WASM_FUNCTION_OFFSET_I32:
begin
@ -4157,6 +4185,12 @@ implementation
Writeln('Symbol relocation not yet implemented! ', objreloc.typ);
end;
end
else if objreloc.typ=RELOC_TYPE_INDEX_LEB then
begin
objreloc.ExeTypeIndex:=FFuncTypes.AddOrGetFuncType(objreloc.FuncType);
objsec.Data.seek(objreloc.DataOffset);
WriteUleb5(objsec.Data,objreloc.ExeTypeIndex);
end
else
Writeln('Non-symbol relocation not yet implemented! ', objreloc.typ);
end;