diff options
| author | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 2010-10-21 23:59:33 +0000 |
|---|---|---|
| committer | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 2010-10-21 23:59:33 +0000 |
| commit | ce605c042a5b19bacc0de87cf2469fca9463fd1d (patch) | |
| tree | 2a8153f65f54296ee32af01bfebcba023c85de3d /tools/ocamlprof.ml | |
| parent | 9498d009f0116ce057c7327a11a74692d3addc94 (diff) | |
| download | ocaml-ce605c042a5b19bacc0de87cf2469fca9463fd1d.tar.gz | |
merge branches/implicit-unpack + update camlp4
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@10738 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 e561f60e62..f58712ec51 100644 --- a/tools/ocamlprof.ml +++ b/tools/ocamlprof.ml @@ -287,7 +287,7 @@ and rw_exp iflag sexp = | Pexp_newtype (_, sexp) -> rewrite_exp iflag sexp | Pexp_open (_, e) -> rewrite_exp iflag e - | Pexp_pack (smod, _) -> rewrite_mod iflag smod + | Pexp_pack (smod) -> rewrite_mod iflag smod and rewrite_ifbody iflag ghost sifbody = if !instr_if && not ghost then @@ -362,7 +362,7 @@ and rewrite_mod iflag smod = | Pmod_functor(param, smty, sbody) -> rewrite_mod iflag sbody | Pmod_apply(smod1, smod2) -> rewrite_mod iflag smod1; rewrite_mod iflag smod2 | Pmod_constraint(smod, smty) -> rewrite_mod iflag smod - | Pmod_unpack(sexp, _) -> rewrite_exp iflag sexp + | Pmod_unpack(sexp) -> rewrite_exp iflag sexp and rewrite_str_item iflag item = match item.pstr_desc with |