Forráskód Böngészése

+ introduced private type TCustomSectionNameMap to class TWasmExeOutput

Nikolay Nikolov 10 hónapja
szülő
commit
85143f515d
1 módosított fájl, 2 hozzáadás és 1 törlés
  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);