diff options
| author | ppedrot | 2012-06-02 13:52:31 +0000 |
|---|---|---|
| committer | ppedrot | 2012-06-02 13:52:31 +0000 |
| commit | de9e40dc84d1e4cfc201eb196659d6b04a7012ec (patch) | |
| tree | 6a24553f3391adeb45a9c7e839711226faed4c1a /lib | |
| parent | a92a0d051b987ba996905ccd4ce7ee3a5feb41c1 (diff) | |
Flushing formatters before program exit.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15415 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/pp.ml4 | 4 | ||||
| -rw-r--r-- | lib/pp.mli | 1 |
2 files changed, 4 insertions, 1 deletions
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 |