Commit 0eb6439e authored by Simon Marlow's avatar Simon Marlow

disable a debug trace

parent ad7f1292
...@@ -56,7 +56,8 @@ optProc _ top = top ...@@ -56,7 +56,8 @@ optProc _ top = top
branchChainElim :: CmmGraph -> CmmGraph branchChainElim :: CmmGraph -> CmmGraph
branchChainElim g branchChainElim g
| null lone_branch_blocks = g -- No blocks to remove | 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 where
blocks = toBlockList g blocks = toBlockList g
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment