diff options
| author |  Stephane Glondu <steph@glondu.net> | 2012-01-12 16:04:54 +0100 |
|---|---|---|
| committer | Stephane Glondu <steph@glondu.net> | 2012-01-12 16:04:54 +0100 |
| commit | 39efc41237ec906226a3a53d7396d51173495204 (patch) | |
| tree | 87cd58d72d43469d2a2a0a127c1060d7c9e0206b /kernel/cemitcodes.mli | |
| parent | 5fe4ac437bed43547b3695664974f492b55cb553 (diff) | |
| parent | 97fefe1fcca363a1317e066e7f4b99b9c1e9987b (diff) | |
Remove non-DFSG contentsupstream/8.4_beta+dfsg
Diffstat (limited to 'kernel/cemitcodes.mli')
| -rw-r--r-- | kernel/cemitcodes.mli | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/kernel/cemitcodes.mli b/kernel/cemitcodes.mli index 384146d2..287c3930 100644 --- a/kernel/cemitcodes.mli +++ b/kernel/cemitcodes.mli @@ -7,6 +7,7 @@ type reloc_info = | Reloc_getglobal of constant type patch = reloc_info * int + (* A virer *) val subst_patch : Mod_subst.substitution -> patch -> patch @@ -23,7 +24,7 @@ type to_patch = emitcodes * (patch list) * fv val subst_to_patch : Mod_subst.substitution -> to_patch -> to_patch type body_code = - | BCdefined of bool*to_patch + | BCdefined of to_patch | BCallias of constant | BCconstant @@ -34,12 +35,10 @@ val from_val : body_code -> to_patch_substituted val force : to_patch_substituted -> body_code -val is_boxed : to_patch_substituted -> bool - val subst_to_patch_subst : Mod_subst.substitution -> to_patch_substituted -> to_patch_substituted val repr_body_code : to_patch_substituted -> Mod_subst.substitution list option * body_code val to_memory : bytecodes * bytecodes * fv -> to_patch - (* init code, fun code, fv *) + (** init code, fun code, fv *) |