[commit: ghc] wip/T14373: WIP: clean up (4bf7922)

[git at git.haskell.org]

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

On branch  : wip/T14373
Link       : http://ghc.haskell.org/trac/ghc/changeset/4bf792264681119d3e55bc2c1116b7f4d6e5417b/ghc

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

commit 4bf792264681119d3e55bc2c1116b7f4d6e5417b
Author: Gabor Greif <ggreif at gmail.com>
Date:   Fri Dec 15 12:07:20 2017 +0100

    WIP: clean up


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

4bf792264681119d3e55bc2c1116b7f4d6e5417b
 compiler/codeGen/StgCmmExpr.hs | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/compiler/codeGen/StgCmmExpr.hs b/compiler/codeGen/StgCmmExpr.hs
index b53dfe5..5bb2528 100644
--- a/compiler/codeGen/StgCmmExpr.hs
+++ b/compiler/codeGen/StgCmmExpr.hs
@@ -637,15 +637,12 @@ cgAlts gc_plan bndr (AlgAlt tycon) alts
 
                 (mb_deflt, mb_branch) <- prelabel mb_deflt
                 emitSwitch tag_expr (catchall : ptr) mb_deflt 1 maxpt
-                --join_lbl <- newBlockId
-                --emit (mkBranch join_lbl)
                   (do emitLabel infos_lbl
                       let untagged_ptr = cmmUntag dflags (CmmReg bndr_reg)
                           tag_expr = getConstrTag dflags untagged_ptr
                           info0 = first pred <$> info
                       emitSwitch tag_expr info0 mb_branch
                         (maxpt - 1) (fam_sz - 1) (pure ()))
-                --emitLabel join_lbl
 
         ; return AssignedDirectly }