Changeset 66 for trunk/Compiler/UCompiler.pas

Timestamp:

Jul 19, 2012, 8:16:57 AM (12 years ago)

Author:

chronos

Message:

• Added: Information text about completion of build process including elapsed time.

File:

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

trunk/Compiler/UCompiler.pas

@@ -38 +38 @@
     FTarget: TTarget;
     FOnErrorMessage: TErrorMessageEvent;
-    procedure ErrorMessage(Text: string; Position: TPoint; FileName: string);
     procedure SetAnalyzer(const AValue: TAnalyzer);
     procedure AnalyzeAll;
@@ -45 +44 @@
   public
     AbstractCode: TProgram;
-    ErrorMessages: TListObject;
+    ErrorMessages: TListObject; // TListObject<TErrorMessage>
     CompiledFolder: string;
 
@@ -51 +50 @@
     Targets: TListTarget;
     MainSource: string;
+    procedure ErrorMessage(Text: string; Position: TPoint; FileName: string);
     constructor Create; virtual;
     destructor Destroy; override;
-    procedure Init;
+    procedure Init; virtual;
     procedure Compile;
     property OnErrorMessage: TErrorMessageEvent read FOnErrorMessage
@@ -246 +246 @@
   if FTarget = AValue then Exit;
   FTarget := AValue;
-  FTarget.Compiler := Self;
-  if Assigned(FTarget.Producer) then
-    FTarget.Producer.OnWriteTarget := OnSaveTarget;
+  if Assigned(FTarget) then begin
+    FTarget.Compiler := Self;
+    if Assigned(FTarget.Producer) then
+      FTarget.Producer.OnWriteTarget := OnSaveTarget;
+  end;
 end;