diff options
author | Simon Marlow <marlowsd@gmail.com> | 2012-01-23 13:38:41 +0000 |
---|---|---|
committer | Simon Marlow <marlowsd@gmail.com> | 2012-01-23 13:38:41 +0000 |
commit | 2e2297dfb4ebd2615195d8062bcea801ea1e393d (patch) | |
tree | df9898d86dd97d13fec2734265fe3685c0193b93 /compiler/cmm/CmmLive.hs | |
parent | 3751cdcd817b5a65bdb5750fb2793babce2fd241 (diff) | |
download | haskell-2e2297dfb4ebd2615195d8062bcea801ea1e393d.tar.gz |
deepBwdRw3 -> mkBRewrite3
Diffstat (limited to 'compiler/cmm/CmmLive.hs')
-rw-r--r-- | compiler/cmm/CmmLive.hs | 3 |
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 |