瀏覽代碼

+ added a section array to the wasm exe writer

Nikolay Nikolov 1 年之前
父節點
當前提交
b2f31c4112
共有 1 個文件被更改,包括 5 次插入0 次删除
  1. 5 0
      compiler/ogwasm.pas

+ 5 - 0
compiler/ogwasm.pas

@@ -235,6 +235,7 @@ interface
           TypeIdx: uint32;
         end;
 
+        FWasmSections: array [TWasmSectionID] of tdynamicarray;
       protected
         function writeData:boolean;override;
         procedure DoRelocationFixup(objsec:TObjSection);override;
@@ -4063,7 +4064,11 @@ implementation
       end;
 
     destructor TWasmExeOutput.destroy;
+      var
+        i: TWasmSectionID;
       begin
+        for i in TWasmSectionID do
+          FWasmSections[i].Free;
         FFuncTypes.Free;
         inherited destroy;
       end;