Browse Source

+ introduced private type TCustomSectionNameMap to class TWasmExeOutput

Nikolay Nikolov 10 months ago
parent
commit
85143f515d
1 changed files with 2 additions and 1 deletions
  1. 2 1
      compiler/ogwasm.pas

+ 2 - 1
compiler/ogwasm.pas

@@ -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);