Преглед на файлове

* Flush all StdIO output files

git-svn-id: trunk@2985 -
peter преди 19 години
родител
ревизия
9381c9360e
променени са 1 файла, в които са добавени 5 реда и са изтрити 0 реда
  1. 5 0
      rtl/inc/system.inc

+ 5 - 0
rtl/inc/system.inc

@@ -668,6 +668,11 @@ Begin
      dump_stack(stdout,ErrorBase);
      Writeln(stdout,'');
    End;
+  { Make sure that all output is written to the redirected file }
+  Flush(Output);
+  Flush(ErrOutput);
+  Flush(StdOut);
+  Flush(StdErr);
 End;