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 parse_error : string -> unit
17 val msvcMode : bool ref
18 val add_identifier : (string -> unit) ref
19 val add_type : (string -> unit) ref
20 val push_context : (unit -> unit) ref
21 val pop_context : (unit -> unit) ref
22 val currentPattern : string ref