diff options
| author |  Benjamin Gregoire <Benjamin.Gregoire@inria.fr> | 2015-03-27 06:44:02 +0100 |
|---|---|---|
| committer | Benjamin Gregoire <Benjamin.Gregoire@inria.fr> | 2015-03-27 06:46:08 +0100 |
| commit | 924a6e99f85aa0d70d42e753d6901b067ebf8f1d (patch) | |
| tree | bc6d71b35edbd645394aa441722f7a2a14741ec5 /kernel/vm.mli | |
| parent | 00894adf6fc11f4336a3ece0c347676bbf0b4c11 (diff) | |
use a more compact representation of non-constant constructors
for which there corresponding tag are greater than max_variant_tag.
The code is a merge with the patch proposed by Bruno on
github barras/coq
commit/504c753d7bb104ff4453fa0ede21c870ae2bb00c
Diffstat (limited to 'kernel/vm.mli')
| -rw-r--r-- | kernel/vm.mli | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/kernel/vm.mli b/kernel/vm.mli index 139202f09..519035682 100644 --- a/kernel/vm.mli +++ b/kernel/vm.mli @@ -46,7 +46,7 @@ type whd = | Vfix of vfix * arguments option | Vcofix of vcofix * to_up * arguments option | Vconstr_const of int - | Vconstr_block of int * vblock + | Vconstr_block of vblock | Vatom_stk of atom * stack (** Constructors *) @@ -94,6 +94,7 @@ val reduce_cofix : int -> vcofix -> values array * values array (** Block *) +val btag : vblock -> int val bsize : vblock -> int val bfield : vblock -> int -> values |