浏览代码

* Flush output in case of redir

Michaël Van Canneyt 2 月之前
父节点
当前提交
cd1251bf00
共有 1 个文件被更改,包括 4 次插入1 次删除
  1. 4 1
      compiler/comphook.pas

+ 4 - 1
compiler/comphook.pas

@@ -397,7 +397,10 @@ begin
      else
      else
        begin
        begin
          if status.use_redir then
          if status.use_redir then
-           writeln(status.redirfile,MsgTimeStr+MsgLocStr+MsgTypeStr+s)
+           begin
+           writeln(status.redirfile,MsgTimeStr+MsgLocStr+MsgTypeStr+s);
+           flush(status.redirfile);
+           end
          else
          else
            begin
            begin
              write(MsgTimeStr+MsgLocStr);
              write(MsgTimeStr+MsgLocStr);