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

* writing of the type wasm object section extracted to a method TWasmFuncTypeTable.WriteTo, so it can be reused in the exe writer

Browse Source
This commit is contained in:
Nikolay Nikolov 2023-12-31 22:43:44 +02:00
parent a387accf81
commit 3c4a1087f3
1 changed files with 17 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
compiler/ogwasm.pas
View File

@ -119,6 +119,7 @@ interface
destructor Destroy; override;
function AddOrGetFuncType(wft: TWasmFuncType): integer;
procedure WriteTo(d: tdynamicarray);
property Count: Integer read GetCount;
property Items[Index: Integer]: TWasmFuncType read GetItem; default;
end;
@ -616,6 +617,21 @@ implementation
FFuncTypes[result]:=TWasmFuncType.Create(wft);
end;
procedure TWasmFuncTypeTable.WriteTo(d: tdynamicarray);
var
types_count, i: Integer;
begin
types_count:=Count;
WriteUleb(d,types_count);
for i:=0 to types_count-1 do
with Items[i] do
begin
WriteByte(d,$60);
WriteWasmResultType(d,params);
WriteWasmResultType(d,results);
end;
end;
{****************************************************************************
TWasmObjData
****************************************************************************}
@ -1527,7 +1543,6 @@ implementation
objsec: TWasmObjSection;
segment_count: Integer = 0;
cur_seg_ofs: qword = 0;
types_count,
imports_count, NextImportFunctionIndex, NextFunctionIndex,
code_section_nr, data_section_nr,
debug_abbrev_section_nr,debug_info_section_nr,debug_str_section_nr,
@ -1579,15 +1594,7 @@ implementation
Inc(export_functions_count);
end;
types_count:=FData.FFuncTypes.Count;
WriteUleb(FWasmSections[wsiType],types_count);
for i:=0 to types_count-1 do
with FData.FFuncTypes[i] do
begin
WriteByte(FWasmSections[wsiType],$60);
WriteWasmResultType(FWasmSections[wsiType],params);
WriteWasmResultType(FWasmSections[wsiType],results);
end;
FData.FFuncTypes.WriteTo(FWasmSections[wsiType]);
for i:=0 to Data.ObjSectionList.Count-1 do
begin