diff options
| author | Matthieu Sozeau | 2013-11-14 11:50:04 +0100 |
|---|---|---|
| committer | Matthieu Sozeau | 2014-05-06 09:58:55 +0200 |
| commit | c1cd47d5dff18f12af063d2c8defbd985c97dec6 (patch) | |
| tree | e459818ae127339883bb124a525191215a3b38f2 /kernel/fast_typeops.ml | |
| parent | 28e5f4def8bebdaf3bd75b6662bbd4fd88594689 (diff) | |
- Fix comparison of universes.
- Shortcut for Set <= x checks, assuming that this is always true except when
x (or rather its canonical representative) is Prop. Invariant to check.
- Uncomment the profiling code and make it depend on a (statically known) boolean.
Diffstat (limited to 'kernel/fast_typeops.ml')
| -rw-r--r-- | kernel/fast_typeops.ml | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/kernel/fast_typeops.ml b/kernel/fast_typeops.ml index e03720997c..bb56958851 100644 --- a/kernel/fast_typeops.ml +++ b/kernel/fast_typeops.ml @@ -478,8 +478,11 @@ let infer env constr = let t = execute env constr in make_judge constr t -(* let infer_key = Profile.declare_profile "Fast_infer" *) -(* let infer = Profile.profile2 infer_key infer *) +let infer = + if Flags.profile then + let infer_key = Profile.declare_profile "Fast_infer" in + Profile.profile2 infer_key infer + else infer let infer_type env constr = execute_type env constr |