Changeset 70 for trunk/Compiler/UCompiler.pas

Timestamp:

Jul 31, 2012, 4:06:07 PM (13 years ago)

Author:

chronos

Message:

• Modified: Code related to pascal language in compiler moved to module.

File:

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

trunk/Compiler/UCompiler.pas

@@ -6 +6 @@
 
 uses
-  SysUtils, Variants, Classes, Contnrs, FileUtil,
+  SysUtils, Variants, Classes, Contnrs, FileUtil, UModularSystem,
   Dialogs, USourceCode, UProducer, UAnalyzer, SpecializedList, UTarget;
 
@@ -49 +49 @@
     TargetFolder: string;
     Targets: TListTarget;
+    Analyzers: TListAnalyzer;
     MainSource: string;
+    ModuleManager: TModuleManager;
     procedure ErrorMessage(Text: string; Position: TPoint; FileName: string);
     constructor Create; virtual;
@@ -162 +164 @@
 constructor TCompiler.Create;
 begin
-  Analyzer := TAnalyzerPascal.Create;
   Targets := TListTarget.Create;
-
-  RegisterTargets(Self);
-
   AbstractCode := TProgram.Create;
   ErrorMessages := TListObject.Create;
   CompiledFolder := 'Compiled';
+  ModuleManager := TModuleManager.Create(nil);
 end;
 
@@ -180 +179 @@
 destructor TCompiler.Destroy;
 begin
+  ModuleManager.Free;
   Analyzer.Free;
   AbstractCode.Free;