+ introduced TWasmCustomDebugSectionType

compiler/ogwasm.pas

@@ -1382,7 +1382,7 @@ implementation
       var
         section_nr: Integer;
 
-        procedure MaybeAddDebugSectionToSymbolTable(const sn: string; st: TWasmCustomSectionType; var debug_section_nr: Integer);
+        procedure MaybeAddDebugSectionToSymbolTable(const sn: string; st: TWasmCustomDebugSectionType; var debug_section_nr: Integer);
           var
             objsec: TWasmObjSection;
           begin
@@ -1399,7 +1399,7 @@ implementation
               end;
           end;
 
-        procedure MaybeWriteDebugSection(const sn: string; st: TWasmCustomSectionType);
+        procedure MaybeWriteDebugSection(const sn: string; st: TWasmCustomDebugSectionType);
           var
             objsec: TWasmObjSection;
           begin

compiler/wasmbase.pas

@@ -69,6 +69,8 @@ type
     wcstRelocDebugRanges,
     wcstRelocDebugStr);
 
+  TWasmCustomDebugSectionType = wcstDebugFrame..wcstDebugStr;
+
 const
   WasmCustomSectionName: array [TWasmCustomSectionType] of string =
     ('linking',