diff options
| author | Maxime Dénès | 2018-03-01 14:43:07 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2018-09-17 09:33:27 +0200 |
| commit | f02e6260f1cf1f49121860cfd95b6adb97db48ee (patch) | |
| tree | 68e18977a37c01f4353f51cb2f4986c3d5ceeed5 /kernel/cbytecodes.mli | |
| parent | d1da0509fe8c26a7e5c41b610866a7d00e635e77 (diff) | |
[VM] Move structured_constant to Vmvalues
Diffstat (limited to 'kernel/cbytecodes.mli')
| -rw-r--r-- | kernel/cbytecodes.mli | 36 |
1 files changed, 1 insertions, 35 deletions
diff --git a/kernel/cbytecodes.mli b/kernel/cbytecodes.mli index f17a1e657e..9c04c166a2 100644 --- a/kernel/cbytecodes.mli +++ b/kernel/cbytecodes.mli @@ -11,41 +11,7 @@ (* $Id$ *) open Names -open Constr - -type tag = int - -val accu_tag : tag - -val type_atom_tag : tag -val max_atom_tag : tag -val proj_tag : tag -val fix_app_tag : tag -val switch_tag : tag -val cofix_tag : tag -val cofix_evaluated_tag : tag - -val last_variant_tag : tag - -type structured_constant = - | Const_sort of Sorts.t - | Const_ind of inductive - | Const_b0 of tag - | Const_bn of tag * structured_constant array - | Const_univ_level of Univ.Level.t - -val pp_struct_const : structured_constant -> Pp.t - -type reloc_table = (tag * int) array - -type annot_switch = - {ci : case_info; rtbl : reloc_table; tailcall : bool; max_stack_size : int} - -val eq_structured_constant : structured_constant -> structured_constant -> bool -val hash_structured_constant : structured_constant -> int - -val eq_annot_switch : annot_switch -> annot_switch -> bool -val hash_annot_switch : annot_switch -> int +open Vmvalues module Label : sig |