diff options
| author | Jérôme Vouillon <Jerome.Vouillon@pps.jussieu.fr> | 1997-05-11 21:48:21 +0000 |
|---|---|---|
| committer | Jérôme Vouillon <Jerome.Vouillon@pps.jussieu.fr> | 1997-05-11 21:48:21 +0000 |
| commit | 874f21a083749d8a41f4347542a1fdb8854bf51c (patch) | |
| tree | 06d4c7e167587dede71b41d02b76fb3452ff809e /tools/ocamlprof.ml | |
| parent | cc1afe62cd4407d35604e9823aeacd8ee1540e45 (diff) | |
| download | ocaml-874f21a083749d8a41f4347542a1fdb8854bf51c.tar.gz | |
Methodes privees.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1523 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
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 |