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 /pretyping/unification.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 'pretyping/unification.ml')
| -rw-r--r-- | pretyping/unification.ml | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/pretyping/unification.ml b/pretyping/unification.ml index 18db75eed5..43d562f77d 100644 --- a/pretyping/unification.ml +++ b/pretyping/unification.ml @@ -2069,11 +2069,5 @@ let w_unify env evd cv_pb ?(flags=default_unify_flags ()) ty1 ty2 = let w_unify env evd cv_pb flags ty1 ty2 = w_unify env evd cv_pb ~flags:flags ty1 ty2 -let w_unify = - if Flags.profile then - let wunifkey = CProfile.declare_profile "w_unify" in - CProfile.profile6 wunifkey w_unify - else w_unify - let w_unify env evd cv_pb ?(flags=default_unify_flags ()) ty1 ty2 = w_unify env evd cv_pb flags ty1 ty2 |