Changeset 44 for trunk/Compiler/UCompiler.pas

Timestamp:

Mar 4, 2012, 9:43:53 AM (12 years ago)

Author:

chronos

Message:

• Fixed: Selection of target.

File:

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

trunk/Compiler/UCompiler.pas

@@ -48 +48 @@
 
 uses
-  UTargets;
+  UTargets, UAnalyzerPascal;
 
 resourcestring
@@ -63 +63 @@
 constructor TCompiler.Create;
 begin
+  Analyzer := TAnalyzerPascal.Create;
   Targets := TListTarget.Create;
   SourceFiles := TListString.Create;
@@ -148 +149 @@
   TargetFileName: string;
 begin
+  if Assigned(Target.Producer) then
   try
     ProducedCode := TStringList.Create;
@@ -155 +157 @@
       Target.Producer.AssignToStringList(ProducedCode);
       TargetFileName := TargetFolder + DirectorySeparator +
-        CompiledFolder + DirectorySeparator + Target.Producer.Name +
+        CompiledFolder + DirectorySeparator + Target.Name +
         DirectorySeparator + TModule(Modules[I]).TargetFile;
       ForceDirectoriesUTF8(ExtractFileDir(TargetFileName));