diff options
Diffstat (limited to 'tools/ocamlprof.ml')
| -rw-r--r-- | tools/ocamlprof.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tools/ocamlprof.ml b/tools/ocamlprof.ml index 7467f645a0..43de3b4cd3 100644 --- a/tools/ocamlprof.ml +++ b/tools/ocamlprof.ml @@ -264,9 +264,9 @@ let rewrite_class_field = Pcf_inher (_, _, l, _, _) -> List.iter rewrite_exp l | Pcf_val (_, _, _, Some sexp, _) -> rewrite_exp sexp | Pcf_val (_, _, _, None, _) | Pcf_virt _ -> () - | Pcf_meth (_, ({pexp_desc = Pexp_function _} as sexp), _) -> + | Pcf_meth (_, _, ({pexp_desc = Pexp_function _} as sexp), _) -> rewrite_exp sexp - | Pcf_meth (_, sexp, _) -> + | Pcf_meth (_, _, sexp, _) -> if !instr_fun then insert_profile sexp.pexp_loc; rewrite_exp sexp |