Skip to content

Commit dcf6e19

Browse files
committed
fixup! Single deadcode pass per round
1 parent 540acd9 commit dcf6e19

File tree

1 file changed

+7
-4
lines changed

1 file changed

+7
-4
lines changed

compiler/lib/driver.ml

Lines changed: 7 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -50,11 +50,14 @@ let deadcode p =
5050
p
5151

5252
let inline profile p =
53-
if Config.Flag.inline () && Config.Flag.deadcode ()
54-
then (
53+
if Config.Flag.deadcode ()
54+
then
5555
let p, live_vars = deadcode' p in
56-
if debug () then Format.eprintf "Inlining...@.";
57-
Inline.f ~profile p live_vars)
56+
if Config.Flag.inline ()
57+
then (
58+
if debug () then Format.eprintf "Inlining...@.";
59+
Inline.f ~profile p live_vars)
60+
else p
5861
else p
5962

6063
let specialize_1 (p, info) =

0 commit comments

Comments
 (0)