add an SCC
authorSimon Marlow <marlowsd@gmail.com>
Thu, 19 Jan 2012 13:02:37 +0000 (13:02 +0000)
committerSimon Marlow <marlowsd@gmail.com>
Thu, 19 Jan 2012 13:02:37 +0000 (13:02 +0000)
compiler/cmm/CmmUtils.hs

index cb90462..4caa29f 100644 (file)
@@ -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