浏览代码

+ introduced private type TCustomSectionNameMap to class TWasmExeOutput

Nikolay Nikolov 1 年之前
父节点
当前提交
85143f515d
共有 1 个文件被更改,包括 2 次插入1 次删除
  1. 2 1
      compiler/ogwasm.pas

+ 2 - 1
compiler/ogwasm.pas

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