Changeset 46 for trunk/Compiler

Timestamp:

Mar 4, 2012, 10:35:47 AM (13 years ago)

Author:

chronos

Message:

• Fixed: Memory leaks in TCompiler and TTarget.

Location:

trunk/Compiler

Files:

• Target/Interpretter/UTargetInterpretter.pas (modified) (3 diffs)
• UCompiler.pas (modified) (1 diff)
• UTarget.pas (modified) (2 diffs)

trunk/Compiler/Target/Interpretter/UTargetInterpretter.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UTarget;
+  Classes, SysUtils, UTarget, UExecutor;
 
 type
@@ -14 +14 @@
   TTargetInterpretter = class(TTarget)
     constructor Create; override;
+  end;
+
+  TExecutorInterpretter = class(TExecutor)
+
   end;
 
@@ -25 +29 @@
   SysName := 'Interpretter';
   Name := 'Interpretter';
+  Executor := TExecutorInterpretter.Create;
 end;
 

trunk/Compiler/UCompiler.pas

@@ -82 +82 @@
 destructor TCompiler.Destroy;
 begin
+  Analyzer.Free;
   AbstractCode.Free;
   Targets.Free;

trunk/Compiler/UTarget.pas

@@ -19 +19 @@
     Executor: TExecutor;
     constructor Create; virtual;
+    destructor Destroy; override;
   end;
 
@@ -37 +38 @@
 end;
 
+destructor TTarget.Destroy;
+begin
+  Producer.Free;
+  Executor.Free;
+  inherited Destroy;
+end;
+
 { TListTarget }