Module Vmemitcodes

type 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
type to_patch
type patches
val patch : (to_patch * patches) -> (reloc_info -> int) -> Vmvalues.tcode * Vmbytecodes.fv
type 'a pbody_code =
| BCdefined of 'a * patches
| BCalias of Names.Constant.t
| BCconstant
type body_code = to_patch pbody_code
val subst_body_code : Mod_subst.substitution -> 'a pbody_code -> 'a pbody_code