Module Vmbytecodes

module Label : sig ... end
type caml_prim =
| CAML_Arraymake
| CAML_Arrayget
| CAML_Arraydefault
| CAML_Arrayset
| CAML_Arraycopy
| CAML_Arraylength
| CAML_Stringmake
| CAML_Stringlength
| CAML_Stringget
| CAML_Stringsub
| CAML_Stringcat
| CAML_Stringcompare
type instruction =
| Klabel of Label.t
| Kacc of int(*

accu = spn

*)
| Kenvacc of int(*

accu = rocq_envn

*)
| Koffsetclosure of int(*

accu = &rocq_envn

*)
| Kpush(*

sp = accu :: sp

*)
| Kpop of int(*

sp = skipn n sp

*)
| Kpush_retaddr of Label.t(*

sp = pc :: rocq_env :: rocq_extra_args :: sp ; rocq_extra_args = 0

*)
| Kshort_apply of int(*

number of arguments (arguments on top of stack)

*)
| Kapply of int(*

number of arguments (arguments on top of stack)

*)
| Kappterm of int * int(*

number of arguments, slot size

*)
| Kreturn of int(*

slot size

*)
| Kjump
| Krestart
| Kgrab of int(*

number of arguments

*)
| Kgrabrec of int(*

rec arg

*)
| Kclosure of Label.t * int(*

label, number of free variables

*)
| Kclosurerec of int * int * Label.t array * Label.t array(*

nb fv, init, lbl types, lbl bodies

*)
| Kclosurecofix of int * int * Label.t array * Label.t array(*

nb fv, init, lbl types, lbl bodies

*)
| Kgetglobal of Names.Constant.t
| Ksubstinstance of UVars.Instance.t
| Kconst of Vmvalues.structured_constant
| Kmakeblock of int * Vmvalues.tag(*

allocate an ocaml block. Index 0 ** is accu, all others are popped from ** the top of the stack

*)
| Kmakeswitchblock of Label.t * Label.t * Vmvalues.annot_switch * int
| Kswitch of Label.t array * Label.t array(*

consts,blocks

*)
| Kpushfields of int
| Kfield of int(*

accu = accun

*)
| Ksetfield of int(*

accun = sp0 ; sp = pop sp

*)
| Kstop
| Ksequence of bytecodes
| Kproj of int
| Kensurestackcapacity of int
| Kbranch of Label.t(*

jump to label, is it needed ?

*)
| Kprim of CPrimitives.t * Constr.pconstant
| Kcamlprim of caml_prim * Label.t
and bytecodes = instruction list
val pp_bytecodes : bytecodes -> Pp.t
type fv_elem =
| FVnamed of Names.Id.t
| FVrel of int
type fv = fv_elem array
val pp_fv_elem : fv_elem -> Pp.t
val caml_prim_to_prim : caml_prim -> CPrimitives.t