1 (* *********************************************************************)
3 (* The Compcert verified compiler *)
5 (* Xavier Leroy, INRIA Paris-Rocquencourt *)
7 (* Copyright Institut National de Recherche en Informatique et en *)
8 (* Automatique. All rights reserved. This file is distributed *)
9 (* under the terms of the GNU General Public License as published by *)
10 (* the Free Software Foundation, either version 2 of the License, or *)
11 (* (at your option) any later version. This file is also distributed *)
12 (* under the terms of the INRIA Non-Commercial License Agreement. *)
14 (* *********************************************************************)
16 val warn_error : bool ref
17 val reset : unit -> unit
19 val fatal_error : ('a, Format.formatter, unit, unit, unit, 'b) format6 -> 'a
20 val error : ('a, Format.formatter, unit, unit, unit, unit) format6 -> 'a
21 val warning : ('a, Format.formatter, unit, unit, unit, unit) format6 -> 'a
22 val check_errors : unit -> bool