Преглед на файлове

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