paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-09 22:19:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazbuild: nicer output running tool

Browse Source 
git-svn-id: trunk@50406 -
This commit is contained in:
mattias 2015-11-18 22:19:00 +00:00
parent 7d5805e49b
commit 0b7a5c0c34
1 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/exttools.pas
View File

@ -761,7 +761,7 @@ end;
procedure TExternalTool.DoStart;
var
s: String;
i: Integer;
begin
// set Stage to etsStarting
EnterCriticalSection;
@ -786,13 +786,11 @@ begin
FThread.FreeOnTerminate:=true;
end;
if ConsoleVerbosity>=-1 then begin
if ExtToolConsole=nil then
s:=''
else
s:='"'+CmdLineParams+'"';
debugln(['Hint: (lazarus) Execute Title="',Title,'", Working Directory="',Process.CurrentDirectory,'", Executable="',Process.Executable,'" Params:',s]);
if ExtToolConsole=nil then
debugln(Process.Parameters.Text);
debugln(['Info: (lazarus) Execute Title="',Title,'"']);
debugln(['Info: (lazarus) Working Directory="',Process.CurrentDirectory,'"']);
debugln(['Info: (lazarus) Executable="',Process.Executable,'"']);
for i:=0 to Process.Parameters.Count-1 do
debugln(['Info: (lazarus) Param[',i,']="',Process.Parameters[i],'"']);
end;
Thread.Start;
end;