diff options
| author | alainfrisch <alain@frisch.fr> | 2016-03-09 11:40:16 +0100 |
|---|---|---|
| committer | alainfrisch <alain@frisch.fr> | 2016-03-15 22:46:35 +0100 |
| commit | 502e4f9336c03e21442404fd1beba79df824d32d (patch) | |
| tree | 1345561a10eb5a93d5246676b9b1a26a7b9ddadc /asmcomp/deadcode.ml | |
| parent | f4a29c6ca2d926fa988e1bcd3a838247932beaf8 (diff) | |
| download | ocaml-502e4f9336c03e21442404fd1beba79df824d32d.tar.gz | |
More warnings when compiling the compiler.
Diffstat (limited to 'asmcomp/deadcode.ml')
| -rw-r--r-- | asmcomp/deadcode.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/asmcomp/deadcode.ml b/asmcomp/deadcode.ml index 4570d8efcc..b86ee96697 100644 --- a/asmcomp/deadcode.ml +++ b/asmcomp/deadcode.ml @@ -57,7 +57,7 @@ let rec deadcode i = let (handler', _) = deadcode handler in let (s, _) = deadcode i.next in ({i with desc = Icatch(nfail, body', handler'); next = s}, i.live) - | Iexit nfail -> + | Iexit _ -> (i, i.live) | Itrywith(body, handler) -> let (body', _) = deadcode body in |