From 874f21a083749d8a41f4347542a1fdb8854bf51c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?J=C3=A9r=C3=B4me=20Vouillon?= Date: Sun, 11 May 1997 21:48:21 +0000 Subject: Methodes privees. git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1523 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02 --- tools/ocamlprof.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'tools/ocamlprof.ml') 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 -- cgit v1.2.1