Changeset 93 for branches/dcomp/CmdLine/Compiler

Timestamp:

Nov 4, 2016, 9:17:57 PM (8 years ago)

Author:

chronos

Message:

• Modified: Use generic lists in supported analyzers and parsers.
• Fixed: Build under Delphi.

Location:

branches/dcomp/CmdLine/Compiler

Files:

• UAnalyzerPascal.pas (modified) (1 diff)
• UCompiler.pas (modified) (3 diffs)

branches/dcomp/CmdLine/Compiler/UAnalyzerPascal.pas

@@ -1 +1 @@
 unit UAnalyzerPascal;
-
-{$mode delphi}
 
 interface

branches/dcomp/CmdLine/Compiler/UCompiler.pas

@@ -4 +4 @@
 
 uses
-  SysUtils, UAnalyzer, UTarget;
+  SysUtils, Generics.Collections, UAnalyzer, UTarget;
 
 type
@@ -11 +11 @@
 
   TCompiler = class
-    Analyzers: array of TAnalyzer;
-    Targets: array of TTarget;
+    SupportedAnalyzers: TObjectList<TAnalyzer>;
+    SupportedTargets: TObjectList<TTarget>;
     Analyzer: TAnalyzer;
     Target: TTarget;
+    MainSourceFile: string;
     procedure Compile;
     procedure RegisterTarget(TargetClass: TTargetClass);
     procedure RegisterAnalyzer(AnalyzerClass: TAnalyzerClass);
+    constructor Create;
+    destructor Destroy; override;
   end;
 
@@ -33 +36 @@
 procedure TCompiler.RegisterTarget(TargetClass: TTargetClass);
 begin
-  SetLength(Targets, Length(Targets) + 1);
-  Targets[Length(Targets) - 1] := TargetClass.Create;
+  SupportedTargets.Add(TargetClass.Create);
   if not Assigned(Target) then
-    Target := Targets[Length(Targets) - 1];
+    Target := SupportedTargets.Last;
+end;
+
+constructor TCompiler.Create;
+begin
+  SupportedTargets := TObjectList<TTarget>.Create;
+  SupportedAnalyzers := TObjectList<TAnalyzer>.Create;
+end;
+
+destructor TCompiler.Destroy;
+begin
+  SupportedTargets.Free;
+  SupportedAnalyzers.Free;
+  inherited;
 end;
 
 procedure TCompiler.RegisterAnalyzer(AnalyzerClass: TAnalyzerClass);
 begin
-  SetLength(Analyzers, Length(Analyzers) + 1);
-  Analyzers[Length(Analyzers) - 1] := AnalyzerClass.Create;
+  SupportedAnalyzers.Add(AnalyzerClass.Create);
   if not Assigned(Analyzer) then
-    Analyzer := Analyzers[Length(Analyzers) - 1];
+    Analyzer := SupportedAnalyzers.Last;
 end;