|
@@ -266,6 +266,7 @@ interface
|
|
idx: UInt32;
|
|
idx: UInt32;
|
|
name: string;
|
|
name: string;
|
|
end;
|
|
end;
|
|
|
|
+ TCustomSectionNameMap = array of TCustomSectionNameMapEntry;
|
|
private
|
|
private
|
|
FImports: TFPHashObjectList;
|
|
FImports: TFPHashObjectList;
|
|
FFuncTypes: TWasmFuncTypeTable;
|
|
FFuncTypes: TWasmFuncTypeTable;
|
|
@@ -295,7 +296,7 @@ interface
|
|
FMinMemoryPages,
|
|
FMinMemoryPages,
|
|
FMaxMemoryPages: Integer;
|
|
FMaxMemoryPages: Integer;
|
|
{ use for the Name section }
|
|
{ use for the Name section }
|
|
- FFunctionNameMap: array of TCustomSectionNameMapEntry;
|
|
|
|
|
|
+ FFunctionNameMap: TCustomSectionNameMap;
|
|
procedure AddToFunctionNameMap(aidx: UInt32; const aname: string);
|
|
procedure AddToFunctionNameMap(aidx: UInt32; const aname: string);
|
|
procedure WriteWasmSection(wsid: TWasmSectionID);
|
|
procedure WriteWasmSection(wsid: TWasmSectionID);
|
|
procedure WriteWasmSectionIfNotEmpty(wsid: TWasmSectionID);
|
|
procedure WriteWasmSectionIfNotEmpty(wsid: TWasmSectionID);
|