Changeset 71 for trunk/Compiler/UCompiler.pas

Timestamp:

Aug 1, 2012, 6:20:01 AM (12 years ago)

Author:

chronos

Message:

• Modified: Modules should use modularsystem API object.

File:

• trunk/Compiler/UCompiler.pas (modified) (5 diffs)

trunk/Compiler/UCompiler.pas

@@ -6 +6 @@
 
 uses
-  SysUtils, Variants, Classes, Contnrs, FileUtil, UModularSystem,
+  SysUtils, Variants, Classes, Contnrs, FileUtil, UModularSystem, UCompilerAPI,
   Dialogs, USourceCode, UProducer, UAnalyzer, SpecializedList, UTarget;
 
@@ -47 +47 @@
     CompiledFolder: string;
 
+    API: TCompilerAPI;
     TargetFolder: string;
-    Targets: TListTarget;
-    Analyzers: TListAnalyzer;
     MainSource: string;
     ModuleManager: TModuleManager;
@@ -69 +68 @@
 
 uses
-  UTargets, UAnalyzerPascal;
+  UAnalyzerPascal;
 
 resourcestring
@@ -164 +163 @@
 constructor TCompiler.Create;
 begin
-  Targets := TListTarget.Create;
+  API := TCompilerAPI.Create;
   AbstractCode := TProgram.Create;
   ErrorMessages := TListObject.Create;
   CompiledFolder := 'Compiled';
   ModuleManager := TModuleManager.Create(nil);
+  ModuleManager.API := API;
 end;
 
@@ -179 +179 @@
 destructor TCompiler.Destroy;
 begin
-  ModuleManager.Free;
-  Analyzer.Free;
-  AbstractCode.Free;
-  Targets.Free;
-  ErrorMessages.Free;
+  FreeAndNil(ModuleManager);
+  FreeAndNil(AbstractCode);
+  FreeAndNil(ErrorMessages);
 end;