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 -> ( reloc_info -> int ) -> Vmvalues.tcodeval subst_body_code : Mod_subst.substitution -> body_code -> body_codeval to_memory : Vmbytecodes.bytecodes -> to_patch