Changeset 71 for trunk/Compiler/Modules/Pascal/UModulePascal.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/Modules/Pascal/UModulePascal.pas (modified) (5 diffs)

trunk/Compiler/Modules/Pascal/UModulePascal.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UModularSystem;
+  Classes, SysUtils, UModularSystem, UAnalyzerPascal;
 
 type
@@ -13 +13 @@
 
   TModulePascal = class(TModule)
+    Analyzer: TAnalyzerPascal;
     constructor Create; override;
     destructor Destroy; override;
@@ -21 +22 @@
 
 implementation
+
+uses
+  UCompilerAPI;
 
 { TModulePascal }
@@ -39 +43 @@
 procedure TModulePascal.Install;
 begin
+  with TCompilerAPI(API) do begin
+    Analyzer := TAnalyzerPascal.Create;
+    Analyzers.Add(Analyzer);
+  end;
   inherited Install;
 end;
@@ -45 +53 @@
 begin
   inherited Uninstall;
+  with TCompilerAPI(API) do begin
+    Analyzers.Remove(Analyzer);
+  end;
 end;