diff options
author | Mark Shinwell <mshinwell@gmail.com> | 2016-07-01 15:16:03 +0100 |
---|---|---|
committer | GitHub <noreply@github.com> | 2016-07-01 15:16:03 +0100 |
commit | 432f87f077338a446b794c4f560d85a9a537d5e0 (patch) | |
tree | c21bd3c265f9b7756daa06f2f5cbb225a48397b0 /asmcomp/deadcode.ml | |
parent | 2f9081e4e97677ff317b2aa6cb3978c30dc77c11 (diff) | |
download | ocaml-432f87f077338a446b794c4f560d85a9a537d5e0.tar.gz |
Labels after calls, call GC points and checkbound points (#644)
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 b86ee96697..abff69e01a 100644 --- a/asmcomp/deadcode.ml +++ b/asmcomp/deadcode.ml @@ -23,7 +23,7 @@ open Mach let rec deadcode i = match i.desc with - | Iend | Ireturn | Iop(Itailcall_ind) | Iop(Itailcall_imm _) | Iraise _ -> + | Iend | Ireturn | Iop(Itailcall_ind _) | Iop(Itailcall_imm _) | Iraise _ -> (i, Reg.add_set_array i.live i.arg) | Iop op -> let (s, before) = deadcode i.next in |