소스 검색

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