add an SCC

6c969e22 · Simon Marlow · c6d557e8 · 6c969e22
Commit 6c969e22 authored Jan 19, 2012 by Simon Marlow
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

compiler/cmm/CmmUtils.hs compiler/cmm/CmmUtils.hs +1 -1

No files found.
--- 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