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 2fd2b044df..b12a7e987e 100644 --- a/tools/ocamlprof.ml +++ b/tools/ocamlprof.ml @@ -323,9 +323,9 @@ and rewrite_class_field iflag = function Pcf_inher (cexpr, _) -> rewrite_class_expr iflag cexpr | Pcf_val (_, _, sexp, _) -> rewrite_exp iflag sexp - | Pcf_meth (_, _, ({pexp_desc = Pexp_function _} as sexp), _) -> + | Pcf_meth (_, _, _, ({pexp_desc = Pexp_function _} as sexp), _) -> rewrite_exp iflag sexp - | Pcf_meth (_, _, sexp, loc) -> + | Pcf_meth (_, _, _, sexp, loc) -> if !instr_fun && not loc.loc_ghost then insert_profile rw_exp sexp else rewrite_exp iflag sexp | Pcf_let(_, spat_sexp_list, _) -> |