[commit: ghc] newcg: remove SCCs (88745c9)

[Simon Marlow]

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

On branch  : newcg

http://hackage.haskell.org/trac/ghc/changeset/88745c9120f408e53ad1de2489963ede2ac9a668

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

commit 88745c9120f408e53ad1de2489963ede2ac9a668
Author: Simon Marlow <marlowsd at gmail.com>
Date:   Thu Jan 26 14:58:21 2012 +0000

    remove SCCs

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

 compiler/cmm/Hoopl/Dataflow.hs |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/compiler/cmm/Hoopl/Dataflow.hs b/compiler/cmm/Hoopl/Dataflow.hs
index 5673de0..78d22cd 100644
--- a/compiler/cmm/Hoopl/Dataflow.hs
+++ b/compiler/cmm/Hoopl/Dataflow.hs
@@ -348,7 +348,7 @@ analyzeBwd BwdPass { bp_lattice = lattice,
          = fixpoint_anal Bwd lattice do_block entries blockmap f
          where
            do_block :: forall x . Block n C x -> Fact x f -> FactBase f
-           do_block b fb = {-# SCC do_block #-} mapSingleton (entryLabel b) ({-# SCC block #-} block b fb)
+           do_block b fb = mapSingleton (entryLabel b) (block b fb)
 
     -- NB. eta-expand block, GHC can't do this by itself.  See #5809.
     block :: forall e x . Block n e x -> Fact x f -> f