Ne pas virer le setglobal qd on elimine le code mort

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@480 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
bmeurer · Nov 28, 1995 · 5e0f79b · 5e0f79b
1 parent d3397b6
commit 5e0f79b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/bytecomp/bytegen.ml b/bytecomp/bytegen.ml
@@ -78,7 +78,7 @@ let make_branch cont =
 
 let rec discard_dead_code = function
     [] -> []
-  | (Klabel _ | Krestart) :: _ as cont -> cont
+  | (Klabel _ | Krestart | Ksetglobal _) :: _ as cont -> cont
   | _ :: cont -> discard_dead_code cont
 
 (* Check if we're in tailcall position *)