From 5c6a50d6ec1d04bacd3e41ffbb88453fef92cd5d Mon Sep 17 00:00:00 2001
From: Benjamin Gregoire
Date: Thu, 26 Mar 2015 14:24:54 +0100
Subject: Fix bug 4157, change the representation of inductive constructor when
 there is too many non constant constructors in the inductive type Conflicts: 
 kernel/cbytegen.ml

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

(limited to 'kernel/vm.mli')

diff --git a/kernel/vm.mli b/kernel/vm.mli
index 295ea83c49..139202f090 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 vblock
+  | Vconstr_block of int * vblock
   | Vatom_stk of atom * stack
 
 (** Constructors *)
@@ -94,7 +94,6 @@ 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