[commit: ghc] wip/js-hoopl-cleanup: Remove dead code (00c6e03)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/js-hoopl-cleanup
Link       : http://ghc.haskell.org/trac/ghc/changeset/00c6e03ca16bdbf3ee8ad70854960a7a8ab95dbe/ghc

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

commit 00c6e03ca16bdbf3ee8ad70854960a7a8ab95dbe
Author: Jan Stolarek <jan.stolarek at p.lodz.pl>
Date:   Tue Jan 19 17:56:08 2016 +0100

    Remove dead code


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

00c6e03ca16bdbf3ee8ad70854960a7a8ab95dbe
 compiler/cmm/Hoopl/Dataflow.hs | 7 -------
 1 file changed, 7 deletions(-)

diff --git a/compiler/cmm/Hoopl/Dataflow.hs b/compiler/cmm/Hoopl/Dataflow.hs
index 6a75efa..1517c68 100644
--- a/compiler/cmm/Hoopl/Dataflow.hs
+++ b/compiler/cmm/Hoopl/Dataflow.hs
@@ -514,9 +514,7 @@ fixpoint :: forall n f. NonLocal n
 
 fixpoint direction join do_block entries blockmap init_fbase
   = do
-        -- trace ("fixpoint: " ++ show (case direction of Fwd -> True; Bwd -> False) ++ " " ++ show (mapKeys blockmap) ++ show entries ++ " " ++ show (mapKeys init_fbase)) $ return()
         (fbase, newblocks) <- loop start init_fbase mapEmpty
-        -- trace ("fixpoint DONE: " ++ show (mapKeys fbase) ++ show (mapKeys newblocks)) $ return()
         return (GMany NothingO newblocks NothingO,
                 mapDeleteList (mapKeys blockmap) fbase)
     -- The successors of the Graph are the the Labels
@@ -539,16 +537,11 @@ fixpoint direction join do_block entries blockmap init_fbase
     loop (ix:todo) fbase !newblocks = do
            let blk = block_arr ! ix
 
-           -- trace ("analysing: " ++ show (entryLabel blk)) $ return ()
            (rg, out_facts) <- do_block blk fbase
            let !(todo', fbase') =
                   mapFoldWithKey (updateFact join dep_blocks)
                                  (todo,fbase) out_facts
 
-           -- trace ("fbase': " ++ show (mapKeys fbase')) $ return ()
-           -- trace ("changed: " ++ show changed) $ return ()
-           -- trace ("to analyse: " ++ show to_analyse) $ return ()
-
            let newblocks' = case rg of
                               GMany _ blks _ -> mapUnion blks newblocks