diff options
Diffstat (limited to 'tools')
| -rw-r--r-- | tools/depend.ml | 2 | ||||
| -rw-r--r-- | tools/ocamlprof.ml | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/tools/depend.ml b/tools/depend.ml index 4d24070adb..fa907ea036 100644 --- a/tools/depend.ml +++ b/tools/depend.ml @@ -291,7 +291,7 @@ and add_class_field bv = function | Pcf_val(_, _, e, _) -> add_expr bv e | Pcf_valvirt(_, _, ty, _) | Pcf_virt(_, _, ty, _) -> add_type bv ty - | Pcf_meth(_, _, e, _) -> add_expr bv e + | Pcf_meth(_, _, _, e, _) -> add_expr bv e | Pcf_cstr(ty1, ty2, _) -> add_type bv ty1; add_type bv ty2 | Pcf_let(_, pel, _) -> add_pat_expr_list bv pel | Pcf_init e -> add_expr bv e 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, _) -> |