paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 10:19:30 +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;
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}
procedure WriteF32LE(d: tdynamicarray; v: Single);
begin
@ -4679,16 +4693,43 @@ implementation
end;
procedure TWasmExeOutput.MemPos_ExeSection(const aname: string);
var
ExeSec: TExeSection;
i: Integer;
objsec: TObjSection;
begin
{ WebAssembly is a Harvard architecture.
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
start at 1024). }
if aname='.rodata' then
CurrMemPos:=1024
begin
CurrMemPos:=1024;
inherited;
end
else if aname='.text' then
CurrMemPos:=0;
inherited MemPos_ExeSection(aname);
begin
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;
procedure TWasmExeOutput.Load_Symbol(const aname: string);