浏览代码

* flush std handlers at thread termination

git-svn-id: trunk@4752 -
florian 19 年之前
父节点
当前提交
262f60e67d
共有 1 个文件被更改,包括 5 次插入0 次删除
  1. 5 0
      rtl/inc/thread.inc

+ 5 - 0
rtl/inc/thread.inc

@@ -82,6 +82,11 @@ end;
 procedure EndThread(ExitCode : DWord);
 
 begin
+  { Make sure that all output is written to the redirected file }
+  Flush(Output);
+  Flush(ErrOutput);
+  Flush(StdOut);
+  Flush(StdErr);  
   CurrentTM.EndThread(ExitCode);
 end;