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

* wasm internal exe writer: set mempos for code sections to the offset within

Browse Source 
the code section. This does not affect the .wasm binary generation, only the
  linker map file.
This commit is contained in:
Nikolay Nikolov 2024-01-01 23:09:54 +02:00
parent c49ac16a19
commit dd1565c667
1 changed files with 44 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
compiler/ogwasm.pas
View File

@ -390,6 +390,20 @@ implementation
until Done; until Done;
end; end;
function UlebEncodingSize(v: uint64): Integer;
var
b: byte;
begin
Result:=0;
repeat
b:=byte(v) and 127;
v:=v shr 7;
if v<>0 then
b:=b or 128;
Inc(Result);
until v=0;
end;
{$ifdef FPC_LITTLE_ENDIAN} {$ifdef FPC_LITTLE_ENDIAN}
procedure WriteF32LE(d: tdynamicarray; v: Single); procedure WriteF32LE(d: tdynamicarray; v: Single);
begin begin
@ -4679,16 +4693,43 @@ implementation
end; end;
procedure TWasmExeOutput.MemPos_ExeSection(const aname: string); procedure TWasmExeOutput.MemPos_ExeSection(const aname: string);
var
ExeSec: TExeSection;
i: Integer;
objsec: TObjSection;
begin begin
{ WebAssembly is a Harvard architecture. { WebAssembly is a Harvard architecture.
Data lives in a separate address space, so start addressing back from 0 Data lives in a separate address space, so start addressing back from 0
(the LLVM leaves the first 1024 bytes in the data segment empty, so we (the LLVM leaves the first 1024 bytes in the data segment empty, so we
start at 1024). } start at 1024). }
if aname='.rodata' then if aname='.rodata' then
CurrMemPos:=1024 begin
CurrMemPos:=1024;
inherited;
end
else if aname='.text' then else if aname='.text' then
CurrMemPos:=0; begin
inherited MemPos_ExeSection(aname); CurrMemPos:=0;
ExeSec:=FindExeSection(aname);
if not assigned(ExeSec) then
exit;
exesec.MemPos:=CurrMemPos;
CurrMemPos:=CurrMemPos+UlebEncodingSize(exesec.ObjSectionList.Count);
{ set position of object ObjSections }
for i:=0 to exesec.ObjSectionList.Count-1 do
begin
objsec:=TObjSection(exesec.ObjSectionList[i]);
CurrMemPos:=CurrMemPos+UlebEncodingSize(objsec.Size);
CurrMemPos:=objsec.setmempos(CurrMemPos);
end;
{ calculate size of the section }
exesec.Size:=CurrMemPos-exesec.MemPos;
end
else
inherited;
end; end;
procedure TWasmExeOutput.Load_Symbol(const aname: string); procedure TWasmExeOutput.Load_Symbol(const aname: string);