paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-05 12:47:27 +01:00
Code Issues Packages Projects Releases Wiki Activity

Call system.Flush only once within ReadFromStream nested in ExecuteFPC for interactve mode

Browse Source 
git-svn-id: trunk@33033 -
This commit is contained in:
pierre 2016-01-29 22:50:53 +00:00
parent 0ca95e99df
commit 987907d2a2
1 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1805,10 +1805,7 @@ var
if ch in [#10, #13] then
begin
if Interactive then
begin
System.Writeln(output);
System.Flush(output);
end
System.Writeln(output)
else if Verbose then
installer.log(vlInfo,sLine)
else
@ -1832,7 +1829,6 @@ var
if Interactive then
begin
System.Write(output,ch);
System.Flush(output);
end
else
sLine:=ch;
@ -1845,10 +1841,7 @@ var
else
begin
if Interactive then
begin
System.Write(output,ch);
System.Flush(output);
end
System.Write(output,ch)
else
sLine := sLine + ch;
end;
@ -1857,7 +1850,10 @@ var
// keep partial lines, unlessin interactive mode
if not Interactive then
ConsoleOutput.Position := BuffPos;
ConsoleOutput.Position := BuffPos
// Flush for interactive mode
else if n > 0 then
System.Flush(output);
end;
Result := n;