Browse Source

+ added a TWasmFuncTypeTable instance to TWasmExeOutput

Nikolay Nikolov 1 year ago
parent
commit
f30a41359d
1 changed files with 10 additions and 0 deletions
  1. 10 0
      compiler/ogwasm.pas

+ 10 - 0
compiler/ogwasm.pas

@@ -210,11 +210,14 @@ interface
       { TWasmExeOutput }
 
       TWasmExeOutput = class(TExeOutput)
+      private
+        FFuncTypes: TWasmFuncTypeTable;
       protected
         function writeData:boolean;override;
         procedure DoRelocationFixup(objsec:TObjSection);override;
       public
         constructor create;override;
+        destructor destroy;override;
       end;
 
       { TWasmAssembler }
@@ -4000,6 +4003,13 @@ implementation
         inherited create;
         CObjData:=TWasmObjData;
         MaxMemPos:=$FFFFFFFF;
+        FFuncTypes:=TWasmFuncTypeTable.Create;
+      end;
+
+    destructor TWasmExeOutput.destroy;
+      begin
+        FFuncTypes.Free;
+        inherited destroy;
       end;