summaryrefslogtreecommitdiff
path: root/compiler/cmm/CmmLive.hs
diff options
context:
space:
mode:
authorSimon Marlow <marlowsd@gmail.com>2012-01-23 13:38:41 +0000
committerSimon Marlow <marlowsd@gmail.com>2012-01-23 13:38:41 +0000
commit2e2297dfb4ebd2615195d8062bcea801ea1e393d (patch)
treedf9898d86dd97d13fec2734265fe3685c0193b93 /compiler/cmm/CmmLive.hs
parent3751cdcd817b5a65bdb5750fb2793babce2fd241 (diff)
downloadhaskell-2e2297dfb4ebd2615195d8062bcea801ea1e393d.tar.gz
deepBwdRw3 -> mkBRewrite3
Diffstat (limited to 'compiler/cmm/CmmLive.hs')
-rw-r--r--compiler/cmm/CmmLive.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/cmm/CmmLive.hs b/compiler/cmm/CmmLive.hs
index d927dfe12f..9258d986ad 100644
--- a/compiler/cmm/CmmLive.hs
+++ b/compiler/cmm/CmmLive.hs
@@ -90,7 +90,8 @@ xferLive = mkBTransfer3 fst mid lst
removeDeadAssignments :: CmmGraph -> FuelUniqSM CmmGraph
removeDeadAssignments g =
liftM fst $ dataflowPassBwd g [] $ analRewBwd liveLattice xferLive rewrites
- where rewrites = deepBwdRw3 nothing middle nothing
+ where rewrites = mkBRewrite3 nothing middle nothing
+ -- SDM: no need for deepBwdRw here, we only rewrite to empty
-- Beware: deepBwdRw with one polymorphic function seems more reasonable here,
-- but GHC panics while compiling, see bug #4045.
middle :: CmmNode O O -> Fact O CmmLive -> CmmReplGraph O O