paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 09:49:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix interactive information log error

Browse Source
This commit is contained in:
Pierre Muller 2023-03-20 14:51:18 +01:00
parent 33071fd179
commit 4ed8182c75
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fpmkunit/src/fpmkunit.pp
View File

@ -6252,7 +6252,7 @@ begin
ConsoleOutput := TMemoryStream.Create; ConsoleOutput := TMemoryStream.Create;
try try
if Interactive then if Interactive then
Log(vlInfo,'Starting "%s" "%s" interactively',[Cmd,Args]); Log(vlInfo,'Starting "%s" "%s" interactively',[Cmd,CmdLine]);
{$ifdef HAS_UNIT_PROCESS} {$ifdef HAS_UNIT_PROCESS}
E:=ExecuteFPC(Verbose, Interactive, cmd, args, env, ConsoleOutput); E:=ExecuteFPC(Verbose, Interactive, cmd, args, env, ConsoleOutput);
{$else} {$else}