diff options
| author | Gaëtan Gilbert | 2020-04-16 23:06:35 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2020-04-20 13:19:17 +0200 |
| commit | 7a4e7dfbaa8dc3fa92931c4bfa39d268940e08f8 (patch) | |
| tree | 13c841f5e345bc11b4ed78af0f51b8a087890fbe /checker | |
| parent | e77b7aed145718b73ca58c75bc7ed01d2b55446f (diff) | |
Remove mod_constraints field of module body
Diffstat (limited to 'checker')
| -rw-r--r-- | checker/mod_checking.ml | 1 | ||||
| -rw-r--r-- | checker/safe_checking.ml | 2 | ||||
| -rw-r--r-- | checker/values.ml | 6 |
3 files changed, 4 insertions, 5 deletions
diff --git a/checker/mod_checking.ml b/checker/mod_checking.ml index 44b7089fd0..e3cca50f06 100644 --- a/checker/mod_checking.ml +++ b/checker/mod_checking.ml @@ -84,7 +84,6 @@ let mk_mtb mp sign delta = mod_expr = (); mod_type = sign; mod_type_alg = None; - mod_constraints = Univ.ContextSet.empty; mod_delta = delta; mod_retroknowledge = ModTypeRK; } diff --git a/checker/safe_checking.ml b/checker/safe_checking.ml index 524ffbc022..b5beab532e 100644 --- a/checker/safe_checking.ml +++ b/checker/safe_checking.ml @@ -14,7 +14,7 @@ open Environ let import senv clib univs digest = let mb = Safe_typing.module_of_library clib in let env = Safe_typing.env_of_safe_env senv in - let env = push_context_set ~strict:true mb.mod_constraints env in + let env = push_context_set ~strict:true (Safe_typing.univs_of_library clib) env in let env = push_context_set ~strict:true univs env in let env = Modops.add_retroknowledge mb.mod_retroknowledge env in Mod_checking.check_module env mb.mod_mp mb; diff --git a/checker/values.ml b/checker/values.ml index b9efce6948..2bd6a37d0b 100644 --- a/checker/values.ml +++ b/checker/values.ml @@ -356,17 +356,17 @@ and v_impl = and v_noimpl = v_unit and v_module = Tuple ("module_body", - [|v_mp;v_impl;v_sign;Opt v_mexpr;v_context_set;v_resolver;v_retroknowledge|]) + [|v_mp;v_impl;v_sign;Opt v_mexpr;v_resolver;v_retroknowledge|]) and v_modtype = Tuple ("module_type_body", - [|v_mp;v_noimpl;v_sign;Opt v_mexpr;v_context_set;v_resolver;v_unit|]) + [|v_mp;v_noimpl;v_sign;Opt v_mexpr;v_resolver;v_unit|]) (** kernel/safe_typing *) let v_vodigest = Sum ("module_impl",0, [| [|String|]; [|String;String|] |]) let v_deps = Array (v_tuple "dep" [|v_dp;v_vodigest|]) let v_compiled_lib = - v_tuple "compiled" [|v_dp;v_module;v_deps;v_engagement;Any|] + v_tuple "compiled" [|v_dp;v_module;v_context_set;v_deps;v_engagement;Any|] (** Library objects *) |