Changeset 74 for trunk/Compiler/Modules

Timestamp:

Jan 18, 2018, 11:54:13 PM (7 years ago)

Author:

chronos

Message:

• Fixed: Build under Lazarus 1.8.0.

Location:

trunk/Compiler/Modules

Files:

• GCC/UModuleGCC.pas (modified) (3 diffs)
• Pascal/UAnalyzerPascal.pas (modified) (1 diff)

trunk/Compiler/Modules/GCC/UModuleGCC.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UModularSystem, UProducerGCC, UTargetGCC;
+  Classes, SysUtils, UModularSystem, UProducerGCC, UTargetGCC, UCompilerAPI;
 
 type
@@ -43 +43 @@
 begin
   Target := TTargetGCC.Create;
+  with TCompilerAPI(API) do begin
+    RegisterTarget(TTargetGCC);
+  end;
   inherited;
 end;
@@ -48 +51 @@
 procedure TModuleGCC.DoUninstall;
 begin
+  with TCompilerAPI(API) do begin
+    UnregisterTarget(TTargetGCC);
+  end;
   inherited;
 end;

trunk/Compiler/Modules/Pascal/UAnalyzerPascal.pas

@@ -1471 +1471 @@
 { TParserUsedModuleList }
 
-function TAnalyzerPascal.ParseUses(SourceCode: TUsedModuleList; AExported: Boolean = False): Boolean;
+function TAnalyzerPascal.ParseUses(SourceCode: TUsedModuleList; AExported: Boolean): Boolean;
 var
   NewUsedModule: TUsedModule;