diff options
Diffstat (limited to 'tools')
| -rw-r--r-- | tools/depend.ml | 4 | ||||
| -rw-r--r-- | tools/ocamlprof.ml | 1 |
2 files changed, 0 insertions, 5 deletions
diff --git a/tools/depend.ml b/tools/depend.ml index 0edaaa3113..cb00ca98cb 100644 --- a/tools/depend.ml +++ b/tools/depend.ml @@ -160,10 +160,6 @@ let rec add_expr bv exp = add_pattern bv pat; List.iter (add_class_field bv) fieldl | Pexp_newtype (_, e) -> add_expr bv e | Pexp_pack (m, _) -> add_module bv m - | Pexp_unpack (e1, id, (lid, l), e2) -> - add bv lid; - List.iter (fun (_, ty) -> add_type bv ty) l; - add_expr bv e1; add_expr (StringSet.add id bv) e2 and add_pat_expr_list bv pel = List.iter (fun (p, e) -> add_pattern bv p; add_expr bv e) pel diff --git a/tools/ocamlprof.ml b/tools/ocamlprof.ml index e2b1c2f787..bfecc07879 100644 --- a/tools/ocamlprof.ml +++ b/tools/ocamlprof.ml @@ -288,7 +288,6 @@ and rw_exp iflag sexp = | Pexp_newtype (_, sexp) -> rewrite_exp iflag sexp | Pexp_pack (smod, _) -> rewrite_mod iflag smod - | Pexp_unpack (sexp1, _, _, sexp2) -> rewrite_exp iflag sexp1; rewrite_exp iflag sexp2 and rewrite_ifbody iflag ghost sifbody = if !instr_if && not ghost then |