diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-01-19 13:02:37 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-01-19 13:02:37 +0000 |
| commit | 6c969e2283bcea55ea4805b14096bf8b518604fc (patch) | |
| tree | 4f10d1e8030261c6ecf11bfedb7a70a6b1434d70 /compiler/cmm | |
| parent | c6d557e8ee41bfd910d6fe439c91179bbb2cc030 (diff) | |
| download | haskell-6c969e2283bcea55ea4805b14096bf8b518604fc.tar.gz | |
add an SCC
Diffstat (limited to 'compiler/cmm')
| -rw-r--r-- | 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 cb904624c4..4caa29fd10 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 |