diff options
| author | Jérôme Vouillon <Jerome.Vouillon@pps.jussieu.fr> | 1996-11-16 15:47:34 +0000 |
|---|---|---|
| committer | Jérôme Vouillon <Jerome.Vouillon@pps.jussieu.fr> | 1996-11-16 15:47:34 +0000 |
| commit | 7b0728e36f044e12eaa30f74a71462d7aa2ee4b3 (patch) | |
| tree | 86e0090917d9d674f6c355aa8eacf91e3bf75ef2 /tools/ocamlprof.ml | |
| parent | 2be462ae0345ca7186adbe2694cdef6e62761ce6 (diff) | |
Instrumente correctement `let f x : t = ...'.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1195 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'tools/ocamlprof.ml')
| -rw-r--r-- | tools/ocamlprof.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/tools/ocamlprof.ml b/tools/ocamlprof.ml index 5c22884e8..aa71db3b1 100644 --- a/tools/ocamlprof.ml +++ b/tools/ocamlprof.ml @@ -239,6 +239,9 @@ and rewrite_annotate_exp_list l = rewrite_exp scond; insert_profile sbody.pexp_loc; rewrite_exp sbody + | {pexp_desc = Pexp_constraint(sbody, _, _)} -> (* let f x : t = e *) + insert_profile sbody.pexp_loc; + rewrite_exp sbody | sexp -> insert_profile sexp.pexp_loc; rewrite_exp sexp) |