Changeset 68 for trunk/Compiler/Analyze/UAnalyzerPascal.pas

Timestamp:

Jul 30, 2012, 3:52:56 PM (12 years ago)

Author:

chronos

Message:

• Added: Addon modules support.
• Modified: Restored usage of URegistry unit.

File:

• trunk/Compiler/Analyze/UAnalyzerPascal.pas (modified) (4 diffs)

trunk/Compiler/Analyze/UAnalyzerPascal.pas

@@ -29 +29 @@
     function ParseUses(SourceCode: TUsedModuleList; AExported: Boolean): Boolean;
     function ParseUsesItem(SourceCode: TUsedModuleList; AExported: Boolean): Boolean;
-    function ParseModule(ProgramCode: TProgram): TModule; override;
+    function ParseModule(ProgramCode: TProgram): TSourceModule; override;
     function ParseUnit(var SourceCode: TModuleUnit; ProgramCode: TProgram): Boolean;
     function ParseUnitInterface(SourceCode: TModuleUnit): Boolean;
@@ -106 +106 @@
 var
   Parser: TAnalyzerPascal;
-  NewModule: TModule;
+  NewModule: TSourceModule;
 begin
   try
@@ -420 +420 @@
 { TParserModule }
 
-function TAnalyzerPascal.ParseModule(ProgramCode: TProgram): TModule;
+function TAnalyzerPascal.ParseModule(ProgramCode: TProgram): TSourceModule;
 begin
   Self.ProgramCode := ProgramCode;
@@ -454 +454 @@
 function TAnalyzerPascal.ParseUnit(var SourceCode: TModuleUnit; ProgramCode: TProgram): Boolean;
 var
-  NewModule: TModule;
+  NewModule: TSourceModule;
   NewCommand: TCommand;
 begin