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

* Call SysFlushStdio from FlushThread, instead of duplicating its functionality.

Browse Source 
* Don't call FlushThread from EndThread, since r17798 it is called from DoneThread.

git-svn-id: trunk@18018 -
This commit is contained in:
sergei 2011-07-25 06:03:40 +00:00
parent 4d0e8ca896
commit 24c3a43b35
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/thread.inc
View File

@ -124,18 +124,13 @@ procedure FlushThread;
begin begin
{$ifdef FPC_HAS_FEATURE_CONSOLEIO} {$ifdef FPC_HAS_FEATURE_CONSOLEIO}
{ Make sure that all output is written to the redirected file } SysFlushStdio;
Flush(Output);
Flush(ErrOutput);
Flush(StdOut);
Flush(StdErr);
{$endif FPC_HAS_FEATURE_CONSOLEIO} {$endif FPC_HAS_FEATURE_CONSOLEIO}
end; end;
procedure EndThread(ExitCode : DWord); procedure EndThread(ExitCode : DWord);
begin begin
FlushThread;
CurrentTM.EndThread(ExitCode); CurrentTM.EndThread(ExitCode);
end; end;