Commit 6c969e22 authored by Simon Marlow's avatar Simon Marlow
Browse files

add an SCC

parent c6d557e8
...@@ -438,7 +438,7 @@ foldGraphBlocks :: (CmmBlock -> a -> a) -> a -> CmmGraph -> a ...@@ -438,7 +438,7 @@ foldGraphBlocks :: (CmmBlock -> a -> a) -> a -> CmmGraph -> a
foldGraphBlocks k z g = mapFold k z $ toBlockMap g foldGraphBlocks k z g = mapFold k z $ toBlockMap g
postorderDfs :: CmmGraph -> [CmmBlock] 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 ----- Splicing between blocks
......
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