diff options
| author | Alain Frisch <alain@frisch.fr> | 2013-05-16 13:34:53 +0000 |
|---|---|---|
| committer | Alain Frisch <alain@frisch.fr> | 2013-05-16 13:34:53 +0000 |
| commit | a3b1c67fffd7de640ee9a0791f1fd0fad965b867 (patch) | |
| tree | c858e0cb4ebdd42a648b25e620a19a53fc1fa6e6 /tools/ocamlprof.ml | |
| parent | e4098f9f42000fbf2381a96115142a4aa3ba4a34 (diff) | |
| download | ocaml-a3b1c67fffd7de640ee9a0791f1fd0fad965b867.tar.gz | |
#5980: explicit way to silence the new warning (open! X).
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@13685 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'tools/ocamlprof.ml')
| -rw-r--r-- | tools/ocamlprof.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tools/ocamlprof.ml b/tools/ocamlprof.ml index 16f9def1fc..72c9900993 100644 --- a/tools/ocamlprof.ml +++ b/tools/ocamlprof.ml @@ -281,7 +281,7 @@ and rw_exp iflag sexp = List.iter (rewrite_class_field iflag) cl.pcstr_fields | Pexp_newtype (_, sexp) -> rewrite_exp iflag sexp - | Pexp_open (_, e) -> rewrite_exp iflag e + | Pexp_open (_ovf, _, e) -> rewrite_exp iflag e | Pexp_pack (smod) -> rewrite_mod iflag smod and rewrite_ifbody iflag ghost sifbody = |