Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/0eb6439ecb6c5759f4e82e18442050b263f0c1e2 >--------------------------------------------------------------- commit 0eb6439ecb6c5759f4e82e18442050b263f0c1e2 Author: Simon Marlow <[email protected]> Date: Thu Aug 25 11:11:50 2011 +0100 disable a debug trace >--------------------------------------------------------------- compiler/cmm/CmmContFlowOpt.hs | 3 ++- 1 files changed, 2 insertions(+), 1 deletions(-) diff --git a/compiler/cmm/CmmContFlowOpt.hs b/compiler/cmm/CmmContFlowOpt.hs index 0019213..73ce57e 100644 --- a/compiler/cmm/CmmContFlowOpt.hs +++ b/compiler/cmm/CmmContFlowOpt.hs @@ -56,7 +56,8 @@ optProc _ top = top branchChainElim :: CmmGraph -> CmmGraph branchChainElim g | null lone_branch_blocks = g -- No blocks to remove - | otherwise = pprTrace "branchChainElim" (ppr forest) $ replaceLabels (mapFromList edges) g + | otherwise = {- pprTrace "branchChainElim" (ppr forest) $ -} + replaceLabels (mapFromList edges) g where blocks = toBlockList g _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
