Commit 01903ebf authored by Simon Marlow's avatar Simon Marlow
Browse files

add an SCC

parent 5a1a2633
......@@ -1300,7 +1300,8 @@ tryNewCodeGen hsc_env this_mod data_tycons
(topSRT, prog) <- {-# SCC "cmmPipeline" #-}
foldM (cmmPipeline hsc_env) (initTopSRT, []) prog
let prog' = map cmmOfZgraph (srtToData topSRT : prog)
let prog' = {-# SCC "cmmOfZgraph" #-}
map cmmOfZgraph (srtToData topSRT : prog)
dumpIfSet_dyn dflags Opt_D_dump_cmmz "Output Cmm" (pprPlatform platform prog')
return prog'
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