diff options
| author |  Matthieu Sozeau <mattam@mattam.org> | 2015-03-25 19:06:16 +0100 |
|---|---|---|
| committer | Matthieu Sozeau <mattam@mattam.org> | 2015-03-25 19:11:45 +0100 |
| commit | 1bafb18f64ab1c929abfaf9c1b75f691914d9a46 (patch) | |
| tree | f62b8ec2d334d23f7214ec4805f05f748f04e0aa /kernel/modops.ml | |
| parent | 5047734648d83890eb4fc4e5cff7ab77d46b48eb (diff) | |
Fix vm compiler to refuse to compile code making use of inductives with
more than 245 constructors (unsupported by OCaml's runtime).
Diffstat (limited to 'kernel/modops.ml')
| -rw-r--r-- | kernel/modops.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/modops.ml b/kernel/modops.ml index d8f319fa7..d52fe611c 100644 --- a/kernel/modops.ml +++ b/kernel/modops.ml @@ -337,7 +337,7 @@ let strengthen_const mp_from l cb resolver = in { cb with const_body = Def (Mod_subst.from_val (mkConstU (con,u))); - const_body_code = Cemitcodes.from_val (Cbytegen.compile_alias (con,u)) } + const_body_code = Some (Cemitcodes.from_val (Cbytegen.compile_alias (con,u))) } let rec strengthen_mod mp_from mp_to mb = if mp_in_delta mb.mod_mp mb.mod_delta then mb |