Module Vmemitcodes

type reloc_info =
  1. | Reloc_annot of Vmvalues.annot_switch
  2. | Reloc_const of Vmvalues.structured_constant
  3. | Reloc_getglobal of Names.Constant.t
  4. | 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 =
  1. | BCdefined of bool array * 'a * patches
  2. | BCalias of Names.Constant.t
  3. | BCconstant
  4. | BCuncompiled
type body_code = to_patch pbody_code
val subst_body_code : Mod_subst.substitution -> 'a pbody_code -> 'a pbody_code