From 924a6e99f85aa0d70d42e753d6901b067ebf8f1d Mon Sep 17 00:00:00 2001
From: Benjamin Gregoire <Benjamin.Gregoire@inria.fr>
Date: Fri, 27 Mar 2015 06:44:02 +0100
Subject: 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

---
 kernel/vm.mli | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'kernel/vm.mli')

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
 
-- 
cgit v1.2.3