|
@@ -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 }
|
|
|
|
- Flush(Output);
|
|
|
|
- Flush(ErrOutput);
|
|
|
|
- Flush(StdOut);
|
|
|
|
- Flush(StdErr);
|
|
|
|
|
|
+ SysFlushStdio;
|
|
{$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;
|
|
|
|
|