소스 검색

+ added a TWasmFuncTypeTable instance to TWasmExeOutput

Nikolay Nikolov 1 년 전
부모
커밋
f30a41359d
1개의 변경된 파일10개의 추가작업 그리고 0개의 파일을 삭제
  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;