Răsfoiți Sursa

+ added a section array to the wasm exe writer

Nikolay Nikolov 1 an în urmă
părinte
comite
b2f31c4112
1 a modificat fișierele cu 5 adăugiri și 0 ștergeri
  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;