diff options
| author | Maxime Dénès | 2018-04-20 17:17:04 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2018-04-20 17:17:04 +0200 |
| commit | 239e28f71192d7537bc6ea283c806ba28fa1c016 (patch) | |
| tree | 66332e6670c648a73284bc97ed36b6174a8002f6 /kernel/vmvalues.mli | |
| parent | 350ee43d73ee4d6c9b6c3fd24cae3aca8a2b5ce4 (diff) | |
| parent | 93c8e14d0c9bc233b2dcf213485b62a533b34580 (diff) | |
Merge PR #6908: Move VM global tables from C to ML
Diffstat (limited to 'kernel/vmvalues.mli')
| -rw-r--r-- | kernel/vmvalues.mli | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/kernel/vmvalues.mli b/kernel/vmvalues.mli index c6e342a965..550791b2c8 100644 --- a/kernel/vmvalues.mli +++ b/kernel/vmvalues.mli @@ -15,6 +15,7 @@ open Cbytecodes type values type vm_env +type vm_global type vprod type vfun type vfix @@ -33,6 +34,8 @@ val fix_env : vfix -> vm_env val cofix_env : vcofix -> vm_env val cofix_upd_env : to_update -> vm_env +val vm_global : values array -> vm_global + (** Cast a value known to be a function, unsafe in general *) val fun_of_val : values -> vfun @@ -69,6 +72,9 @@ type atom = | Aind of inductive | Asort of Sorts.t +val get_atom_rel : unit -> atom array +(** Global table of rels *) + (** Zippers *) type zipper = |