Commit 08042a51 authored by Simon Marlow's avatar Simon Marlow
Browse files

fix the name of an SCC

parent 7eff3046
......@@ -43,7 +43,7 @@ cmmPipeline hsc_env topSRT prog =
tops <- {-# SCC "tops" #-} mapM (cpsTop hsc_env) prog
(topSRT, cmms) <- {-# SCC "toTops" #-} doSRTs topSRT tops
(topSRT, cmms) <- {-# SCC "doSRTs" #-} doSRTs topSRT tops
dumpIfSet_dyn dflags Opt_D_dump_cps_cmm "Post CPS Cmm" (ppr cmms)
return (topSRT, cmms)
......
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