diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-01-26 14:58:21 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-01-26 14:58:21 +0000 |
| commit | 88745c9120f408e53ad1de2489963ede2ac9a668 (patch) | |
| tree | 60ab10fbe432cb4d63a3f88f5c187fd2cffa420d | |
| parent | 91eadd51108b6d03493bf57cea83dd9ceb02c353 (diff) | |
| download | haskell-88745c9120f408e53ad1de2489963ede2ac9a668.tar.gz | |
remove SCCs
| -rw-r--r-- | 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 5673de0845..78d22cd718 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 |