paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 11:06:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ WebAssembly exe writer: write the code section

Browse Source
This commit is contained in:
Nikolay Nikolov 2023-12-31 23:29:33 +02:00
parent d9a67bb16d
commit ac0c187b56
1 changed files with 47 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

65
compiler/ogwasm.pas
View File

@ -183,7 +183,6 @@ interface
FWasmLinkingSubsections: array [low(TWasmLinkingSubsectionType)..high(TWasmLinkingSubsectionType)] of tdynamicarray; FWasmLinkingSubsections: array [low(TWasmLinkingSubsectionType)..high(TWasmLinkingSubsectionType)] of tdynamicarray;
procedure WriteWasmSection(wsid: TWasmSectionID); procedure WriteWasmSection(wsid: TWasmSectionID);
procedure WriteWasmCustomSection(wcst: TWasmCustomSectionType); procedure WriteWasmCustomSection(wcst: TWasmCustomSectionType);
procedure CopyDynamicArray(src, dest: tdynamicarray; size: QWord);
procedure WriteZeros(dest: tdynamicarray; size: QWord); procedure WriteZeros(dest: tdynamicarray; size: QWord);
function IsExternalFunction(sym: TObjSymbol): Boolean; function IsExternalFunction(sym: TObjSymbol): Boolean;
function IsExportedFunction(sym: TWasmObjSymbol): Boolean; function IsExportedFunction(sym: TWasmObjSymbol): Boolean;
@ -470,6 +469,23 @@ implementation
d.write(q,4); d.write(q,4);
end; end;
procedure CopyDynamicArray(src, dest: tdynamicarray; size: QWord);
var
buf: array [0..4095] of byte;
bs: Integer;
begin
while size>0 do
begin
if size<SizeOf(buf) then
bs:=Integer(size)
else
bs:=SizeOf(buf);
src.read(buf,bs);
dest.write(buf,bs);
dec(size,bs);
end;
end;
{**************************************************************************** {****************************************************************************
TWasmObjSymbolLinkingData TWasmObjSymbolLinkingData
****************************************************************************} ****************************************************************************}
@ -1042,23 +1058,6 @@ implementation
Writer.writearray(FWasmCustomSections[wcst]); Writer.writearray(FWasmCustomSections[wcst]);
end; end;
procedure TWasmObjOutput.CopyDynamicArray(src, dest: tdynamicarray; size: QWord);
var
buf: array [0..4095] of byte;
bs: Integer;
begin
while size>0 do
begin
if size<SizeOf(buf) then
bs:=Integer(size)
else
bs:=SizeOf(buf);
src.read(buf,bs);
dest.write(buf,bs);
dec(size,bs);
end;
end;
procedure TWasmObjOutput.WriteZeros(dest: tdynamicarray; size: QWord); procedure TWasmObjOutput.WriteZeros(dest: tdynamicarray; size: QWord);
var var
buf : array[0..1023] of byte; buf : array[0..1023] of byte;
@ -4067,11 +4066,39 @@ implementation
end; end;
end; end;
procedure WriteCodeSegments;
var
i: Integer;
exesec: TExeSection;
objsec: TObjSection;
begin
exesec:=FindExeSection('.text');
if not assigned(exesec) then
internalerror(2023123102);
if not (oso_Data in exesec.SecOptions) then
internalerror(2023123103);
WriteUleb(FWasmSections[wsiFunction],exesec.ObjSectionList.Count);
WriteUleb(FWasmSections[wsiCode],exesec.ObjSectionList.Count);
for i:=0 to exesec.ObjSectionList.Count-1 do
begin
objsec:=TObjSection(exesec.ObjSectionList[i]);
if not (oso_data in objsec.secoptions) then
internalerror(2023123104);
if not assigned(objsec.data) then
internalerror(2023123105);
WriteUleb(FWasmSections[wsiFunction],0); { todo: TypIdx }
WriteUleb(FWasmSections[wsiCode],objsec.Data.size);
objsec.Data.seek(0);
CopyDynamicArray(objsec.Data,FWasmSections[wsiCode],objsec.Data.size);
end;
end;
begin begin
result:=false; result:=false;
FFuncTypes.WriteTo(FWasmSections[wsiType]); FFuncTypes.WriteTo(FWasmSections[wsiType]);
WriteImportSection; WriteImportSection;
WriteCodeSegments;
{...} {...}
@ -4079,6 +4106,8 @@ implementation
Writer.write(WasmVersion,SizeOf(WasmVersion)); Writer.write(WasmVersion,SizeOf(WasmVersion));
WriteWasmSection(wsiType); WriteWasmSection(wsiType);
WriteWasmSection(wsiImport); WriteWasmSection(wsiImport);
WriteWasmSection(wsiFunction);
WriteWasmSection(wsiCode);
result := true; result := true;
end; end;