disable a debug trace
authorSimon Marlow <marlowsd@gmail.com>
Thu, 25 Aug 2011 10:11:50 +0000 (11:11 +0100)
committerSimon Marlow <marlowsd@gmail.com>
Thu, 25 Aug 2011 10:12:35 +0000 (11:12 +0100)
compiler/cmm/CmmContFlowOpt.hs

index 0019213..73ce57e 100644 (file)
@@ -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