Vmemitcodestype reloc_info = | Reloc_annot of Vmvalues.annot_switch |
| Reloc_const of Vmvalues.structured_constant |
| Reloc_getglobal of Names.Constant.t |
| Reloc_caml_prim of Vmbytecodes.caml_prim |
val patch : (to_patch * patches) -> (reloc_info -> int) -> Vmvalues.tcode * Vmbytecodes.fvtype 'a pbody_code = | BCdefined of bool array * 'a * patches |
| BCalias of Names.Constant.t |
| BCconstant |
type body_code = to_patch pbody_codeval subst_body_code : Mod_subst.substitution -> 'a pbody_code -> 'a pbody_codeval to_memory : Vmbytecodes.fv -> Vmbytecodes.bytecodes -> to_patch * patches