Changeset 7 for trunk/UInstance.pas

Timestamp:

Feb 4, 2011, 1:16:43 PM (13 years ago)

Author:

chronos

Message:

 

File:

• trunk/UInstance.pas (modified) (2 diffs)

trunk/UInstance.pas

@@ -78 +78 @@
 procedure TInstance.Build;
 begin
-  (*OperationProgressForm.Environment := 'path=' + MainForm.GetBinUtilsDir;
+  OperationProgressForm.Environment := 'path=' + MainForm.GetBinUtilsDir;
   OperationProgressForm.Path := GetPath + DirectorySeparator + FPCSource.ProjectShortName;
-  OperationProgressForm.CommandLine := 'make all PP="' +
+  OperationProgressForm.CommandLine := 'make clean all PP="' +
     MainForm.GetBinUtilsDir + DirectorySeparator + 'fpc"';
   OperationProgressForm.ShowModal;
@@ -90 +90 @@
     ' PP="' + MainForm.GetBinUtilsDir + DirectorySeparator + 'fpc"';
   OperationProgressForm.ShowModal;
-  *)
 
   if Assigned(IDESource) then begin