cmm/CBE: Use foldLocalRegsDefd
[ghc.git] / compiler / cmm / CmmPipeline.hs
index 4d109a4..b90b92a 100644 (file)
@@ -68,7 +68,7 @@ cpsTop hsc_env proc =
 
        ----------- Eliminate common blocks -------------------------------------
        g <- {-# SCC "elimCommonBlocks" #-}
-            condPass Opt_CmmElimCommonBlocks elimCommonBlocks g
+            condPass Opt_CmmElimCommonBlocks (elimCommonBlocks dflags) g
                           Opt_D_dump_cmm_cbe "Post common block elimination"
 
        -- Any work storing block Labels must be performed _after_