diff options
| author |  Benjamin Gregoire <Benjamin.Gregoire@inria.fr> | 2015-03-30 10:47:12 +0200 |
|---|---|---|
| committer | Benjamin Gregoire <Benjamin.Gregoire@inria.fr> | 2015-03-30 10:49:27 +0200 |
| commit | 596a4a5251cc50f50bd6d25e36c81341bf65cfed (patch) | |
| tree | f656bd4e4aea17d79e9d86b7de7a6657de748df5 /kernel/cbytegen.ml | |
| parent | ab299ba2d7d9ff18d65cc999dca127d2ce5e9c5d (diff) | |
fix code and bound for SWITCH instruction.
Diffstat (limited to 'kernel/cbytegen.ml')
| -rw-r--r-- | kernel/cbytegen.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/cbytegen.ml b/kernel/cbytegen.ml index 45808b072..07fab06a4 100644 --- a/kernel/cbytegen.ml +++ b/kernel/cbytegen.ml @@ -335,8 +335,8 @@ let init_fun_code () = fun_code := [] exception TooLargeInductive of Id.t -let max_nb_const = 0x7FFFFF -let max_nb_block = 0x7FFFFF + last_variant_tag - 1 +let max_nb_const = 0x1000000 +let max_nb_block = 0x1000000 + last_variant_tag - 1 let str_max_constructors = Format.sprintf |