1 (***********************************************************************)
5 (* Jerome Vouillon, projet Cristal, INRIA Rocquencourt *)
6 (* Objective Caml port by John Malecki and Xavier Leroy *)
8 (* Copyright 1996 Institut National de Recherche en Informatique et *)
9 (* en Automatique. All rights reserved. This file is distributed *)
10 (* under the terms of the Q Public License version 1.0. *)
12 (***********************************************************************)
21 Instruct.debug_event
option -> Env.t
-> expression
->
22 Debugcom.Remote_value.t
* type_expr
25 | Unbound_identifier
of Ident.t
26 | Not_initialized_yet
of Path.t
27 | Unbound_long_identifier
of Longident.t
29 | Tuple_index
of type_expr
* int * int
30 | Array_index
of int * int
31 | List_index
of int * int
32 | String_index
of string * int * int
33 | Wrong_item_type
of type_expr
* int
34 | Wrong_label
of type_expr
* string
35 | Not_a_record
of type_expr
38 exception Error
of error
40 val report_error
: formatter
-> error
-> unit