[commit: ghc] newcg: add an SCC (01903eb)

[Simon Marlow]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : newcg

http://hackage.haskell.org/trac/ghc/changeset/01903ebf23b0041dec721aec9a6d6ff168d2b804

>---------------------------------------------------------------

commit 01903ebf23b0041dec721aec9a6d6ff168d2b804
Author: Simon Marlow <marlowsd at gmail.com>
Date:   Wed Jan 25 13:16:52 2012 +0000

    add an SCC

>---------------------------------------------------------------

 compiler/main/HscMain.hs |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/compiler/main/HscMain.hs b/compiler/main/HscMain.hs
index 79e5902..d3441e8 100644
--- a/compiler/main/HscMain.hs
+++ b/compiler/main/HscMain.hs
@@ -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'