Module Instruct
type structured_constant = Lambda.structured_constanttype raise_kind = Lambda.raise_kindtype closure_env = Debug_event.closure_env = | Not_in_closure| In_closure of {entries : Instruct.closure_entry Ident.tbl;env_pos : int;
}
type compilation_env = Debug_event.compilation_env = {ce_stack : int Ident.tbl;ce_closure : Instruct.closure_env;
}type debug_event = Debug_event.debug_event = {mutable ev_pos : int;ev_module : string;ev_loc : Location.t;ev_kind : Instruct.debug_event_kind;ev_defname : string;ev_info : Instruct.debug_event_info;ev_typenv : Env.summary;ev_typsubst : Subst.t;ev_compenv : Instruct.compilation_env;ev_stacksize : int;ev_repr : Instruct.debug_event_repr;
}and debug_event_kind = Debug_event.debug_event_kind = | Event_before| Event_after of Types.type_expr| Event_pseudo
and debug_event_info = Debug_event.debug_event_info = and debug_event_repr = Debug_event.debug_event_repr = | Event_none| Event_parent of int Stdlib.ref| Event_child of int Stdlib.ref
type instruction = | Klabel of Instruct.label| Kacc of int| Kenvacc of int| Kpush| Kpop of int| Kassign of int| Kpush_retaddr of Instruct.label| Kapply of int| Kappterm of int * int| Kreturn of int| Krestart| Kgrab of int| Kclosure of Instruct.label * int| Kclosurerec of Instruct.label list * int| Koffsetclosure of int| Kgetglobal of Compilation_unit.t| Ksetglobal of Compilation_unit.t| Kgetpredef of Ident.t| Kconst of Instruct.structured_constant| Kmakeblock of int * int| Kmake_faux_mixedblock of int * int| Kmakefloatblock of int| Kgetfield of int| Ksetfield of int| Kgetfloatfield of int| Ksetfloatfield of int| Kvectlength| Kgetvectitem| Ksetvectitem| Kgetstringchar| Kgetbyteschar| Ksetbyteschar| Kbranch of Instruct.label| Kbranchif of Instruct.label| Kbranchifnot of Instruct.label| Kstrictbranchif of Instruct.label| Kstrictbranchifnot of Instruct.label| Kswitch of Instruct.label array * Instruct.label array| Kboolnot| Kpushtrap of Instruct.label| Kpoptrap| Kraise of Instruct.raise_kind| Kcheck_signals| Kccall of string * int| Knegint| Kaddint| Ksubint| Kmulint| Kdivint| Kmodint| Kandint| Korint| Kxorint| Klslint| Klsrint| Kasrint| Kintcomp of Instruct.comparison| Koffsetint of int| Koffsetref of int| Kisint| Kgetmethod| Kgetpubmet of int| Kgetdynmet| Kevent of Instruct.debug_event| Kperform| Kresume| Kresumeterm of int| Kreperformterm of int| Kstop