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

* WebAssembly threads internal linker: implement memory initialization in TWasmExeOutput.GenerateCode_InitSharedMemory

Browse Source
This commit is contained in:
Nikolay Nikolov 2024-08-11 02:24:02 +03:00
parent cfa7d6a0c6
commit b985cd0ea5
1 changed files with 24 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
compiler/ogwasm.pas
View File

@ -5569,6 +5569,9 @@ implementation
InitFlagOfs=256;
var
Sec: TObjSection;
DataSecName: string;
DataSecIdx: Integer;
ExeSec: TExeSection;
begin
if not (ts_wasm_threads in current_settings.targetswitches) then
exit;
@ -5599,7 +5602,27 @@ implementation
{ end }
Sec.writeUInt8($0B);
{ TODO: memory.init and memory.fill }
DataSecIdx:=-1;
for DataSecName in DataSections do
begin
ExeSec:=FindExeSection(DataSecName);
if Assigned(ExeSec) and (ExeSec.Size>0) then
begin
Inc(DataSecIdx);
{ i32.const $memPos }
Sec.writeUInt8($41);
WriteUleb5(sec,ExeSec.MemPos);
{ i32.const 0 }
Sec.writeUInt16BE($4100);
{ i32.const size }
Sec.writeUInt8($41);
WriteUleb5(sec,ExeSec.Size);
{ memory.init $DataSecIdx 0 }
Sec.writeUInt16BE($fc08);
WriteUleb5(sec,DataSecIdx);
Sec.writeUInt8(0);
end;
end;
{ i32.const $InitFlag }
Sec.writeUInt8($41);