diff options
| author | Pierre-Marie Pédrot | 2021-03-30 21:48:03 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2021-03-30 21:48:03 +0200 |
| commit | 4eb219067baa0f9ea806794d242de13c3a3a2826 (patch) | |
| tree | 4306352ac9163de2562ed3600ac468d26284d05a /kernel/typeops.ml | |
| parent | 6effcc263beded0d530d724fab8edae86815adf8 (diff) | |
| parent | 5d3c0a0326af68e85f1f1cfc6bfa2214b0052de8 (diff) | |
Merge PR #11791: [flags] [profile] Remove bitrotten CProfile calls.
Ack-by: gares
Reviewed-by: ppedrot
Diffstat (limited to 'kernel/typeops.ml')
| -rw-r--r-- | kernel/typeops.ml | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/kernel/typeops.ml b/kernel/typeops.ml index 1b1aa84e6b..3a946fc03a 100644 --- a/kernel/typeops.ml +++ b/kernel/typeops.ml @@ -644,12 +644,6 @@ let infer env constr = let constr, t = execute env constr in make_judge constr t -let infer = - if Flags.profile then - let infer_key = CProfile.declare_profile "Fast_infer" in - CProfile.profile2 infer_key (fun b c -> infer b c) - else (fun b c -> infer b c) - let assumption_of_judgment env {uj_val=c; uj_type=t} = infer_assumption env c t |