Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : newcg
http://hackage.haskell.org/trac/ghc/changeset/6c969e2283bcea55ea4805b14096bf8b518604fc >--------------------------------------------------------------- commit 6c969e2283bcea55ea4805b14096bf8b518604fc Author: Simon Marlow <[email protected]> Date: Thu Jan 19 13:02:37 2012 +0000 add an SCC >--------------------------------------------------------------- compiler/cmm/CmmUtils.hs | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/compiler/cmm/CmmUtils.hs b/compiler/cmm/CmmUtils.hs index cb90462..4caa29f 100644 --- a/compiler/cmm/CmmUtils.hs +++ b/compiler/cmm/CmmUtils.hs @@ -438,7 +438,7 @@ foldGraphBlocks :: (CmmBlock -> a -> a) -> a -> CmmGraph -> a foldGraphBlocks k z g = mapFold k z $ toBlockMap g postorderDfs :: CmmGraph -> [CmmBlock] -postorderDfs g = postorder_dfs_from (toBlockMap g) (g_entry g) +postorderDfs g = {-# SCC "postorderDfs" #-} postorder_dfs_from (toBlockMap g) (g_entry g) ---------------------------------------------------------------------- ----- Splicing between blocks _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
