diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-08-29 12:50:46 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-08-31 16:43:59 +0100 |
| commit | 08042a51b677b4f5c611e7fdacb8a1c18922fef7 (patch) | |
| tree | 797302c90aa39b2c0a57a4d0445d38452f7ee573 | |
| parent | 7eff3046bad95df02edca1276d53e710cb2b5206 (diff) | |
| download | haskell-08042a51b677b4f5c611e7fdacb8a1c18922fef7.tar.gz | |
fix the name of an SCC
| -rw-r--r-- | compiler/cmm/CmmPipeline.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/cmm/CmmPipeline.hs b/compiler/cmm/CmmPipeline.hs index da161835a1..0c075b8476 100644 --- a/compiler/cmm/CmmPipeline.hs +++ b/compiler/cmm/CmmPipeline.hs @@ -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) |