diff options
| author |  Benjamin Gregoire <Benjamin.Gregoire@inria.fr> | 2015-03-26 14:24:54 +0100 |
|---|---|---|
| committer | Benjamin Gregoire <Benjamin.Gregoire@inria.fr> | 2015-03-26 15:43:41 +0100 |
| commit | 5c6a50d6ec1d04bacd3e41ffbb88453fef92cd5d (patch) | |
| tree | e6ad09fca44ec6c848448c1d6be261897eecbf75 /kernel/cbytecodes.ml | |
| parent | c9074aa238e73bb932be67c67479b11bc95cd47a (diff) | |
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
Diffstat (limited to 'kernel/cbytecodes.ml')
| -rw-r--r-- | kernel/cbytecodes.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/kernel/cbytecodes.ml b/kernel/cbytecodes.ml index ae679027d..91b701e0e 100644 --- a/kernel/cbytecodes.ml +++ b/kernel/cbytecodes.ml @@ -24,6 +24,7 @@ let fix_tag = 3 let switch_tag = 4 let cofix_tag = 5 let cofix_evaluated_tag = 6 +let max_tag = Obj.lazy_tag - 1 type structured_constant = | Const_sorts of sorts |