diff options
| author | Leo White <leo@lpw25.net> | 2018-07-29 22:29:01 +0100 |
|---|---|---|
| committer | Leo White <leo@lpw25.net> | 2018-11-27 13:30:55 +0000 |
| commit | 403003cad57fe1b9515dbe0a1bae4012d9132270 (patch) | |
| tree | 067c8c2d089638ebaabcfa03969ba17e8734836e /tools | |
| parent | 0ae2da110a9e05536df6f8ce8296ce4b6c254788 (diff) | |
| download | ocaml-403003cad57fe1b9515dbe0a1bae4012d9132270.tar.gz | |
Add support for "let" operators
Diffstat (limited to 'tools')
| -rw-r--r-- | tools/ocamlprof.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/tools/ocamlprof.ml b/tools/ocamlprof.ml index f8f935db10..4ee1ef06e8 100644 --- a/tools/ocamlprof.ml +++ b/tools/ocamlprof.ml @@ -299,6 +299,10 @@ 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_letop {let_; ands; body; _} -> + rewrite_exp iflag let_.pbop_exp; + List.iter (fun {pbop_exp; _} -> rewrite_exp iflag pbop_exp) ands; + rewrite_exp iflag body | Pexp_extension _ -> () | Pexp_unreachable -> () |