Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : newcg

http://hackage.haskell.org/trac/ghc/changeset/2e2297dfb4ebd2615195d8062bcea801ea1e393d

>---------------------------------------------------------------

commit 2e2297dfb4ebd2615195d8062bcea801ea1e393d
Author: Simon Marlow <[email protected]>
Date:   Mon Jan 23 13:38:41 2012 +0000

    deepBwdRw3 -> mkBRewrite3

>---------------------------------------------------------------

 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 d927dfe..9258d98 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



_______________________________________________
Cvs-ghc mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/cvs-ghc

Reply via email to