From de9e40dc84d1e4cfc201eb196659d6b04a7012ec Mon Sep 17 00:00:00 2001
From: ppedrot
Date: Sat, 2 Jun 2012 13:52:31 +0000
Subject: Flushing formatters before program exit.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15415 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 lib/pp.ml4 | 4 +++-
 lib/pp.mli | 1 +
 2 files changed, 4 insertions(+), 1 deletion(-)

(limited to 'lib')

diff --git a/lib/pp.ml4 b/lib/pp.ml4
index 0ec4ea4c91..f64f932e24 100644
--- a/lib/pp.ml4
+++ b/lib/pp.ml4
@@ -322,7 +322,9 @@ let pperrnl   x = ppnl_with !err_ft x
 let message   s = ppnl      (str s)
 let warning   x = warning_with !err_ft x
 let pp_flush  x = Format.pp_print_flush !std_ft x
-let flush_all() = flush stderr; flush stdout; pp_flush()
+let pperr_flush x = Format.pp_print_flush !err_ft x
+let flush_all () =
+  flush stderr; flush stdout; pp_flush (); pperr_flush ()
 
 (* pretty printing functions WITH FLUSH *)
 let msg x = msg_with !std_ft x
diff --git a/lib/pp.mli b/lib/pp.mli
index 58a5171d31..6dcbc0411c 100644
--- a/lib/pp.mli
+++ b/lib/pp.mli
@@ -149,6 +149,7 @@ val pp : std_ppcmds -> unit
 val ppnl : std_ppcmds -> unit
 val pperr : std_ppcmds -> unit
 val pperrnl : std_ppcmds -> unit
+val pperr_flush : unit -> unit
 val pp_flush : unit -> unit
 val flush_all: unit -> unit
 
-- 
cgit v1.2.3