[commit: ghc] wip/T14373: cleanup (caef043)

[git at git.haskell.org]

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

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

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

commit caef043501b844352236e3e319e3ab904984e5bb
Author: Gabor Greif <ggreif at gmail.com>
Date:   Mon Dec 18 18:34:00 2017 +0100

    cleanup


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

caef043501b844352236e3e319e3ab904984e5bb
 compiler/codeGen/StgCmmUtils.hs              | 1 -
 testsuite/tests/codeGen/should_compile/all.T | 4 +---
 2 files changed, 1 insertion(+), 4 deletions(-)

diff --git a/compiler/codeGen/StgCmmUtils.hs b/compiler/codeGen/StgCmmUtils.hs
index 0b77bc9..1c527d6 100644
--- a/compiler/codeGen/StgCmmUtils.hs
+++ b/compiler/codeGen/StgCmmUtils.hs
@@ -459,7 +459,6 @@ emitSwitch :: CmmExpr                      -- Tag to switch on
 -- First, three rather common cases in which there is no work to do
 emitSwitch _ []         (Just code) _ _ pj = emit (fst code) >> pj
 emitSwitch _ [(_,code)] Nothing     _ _ pj = emit (fst code) >> pj
-emitSwitch _ []         Nothing     _ _ pj = pj
 
 -- Right, off we go
 emitSwitch tag_expr branches mb_deflt lo_tag hi_tag pj = do
diff --git a/testsuite/tests/codeGen/should_compile/all.T b/testsuite/tests/codeGen/should_compile/all.T
index 4ee2dbf..60140f3 100644
--- a/testsuite/tests/codeGen/should_compile/all.T
+++ b/testsuite/tests/codeGen/should_compile/all.T
@@ -35,7 +35,5 @@ test('T10667', [ when((arch('powerpc64') or arch('powerpc64le')),
      compile, ['-g'])
 test('T12115', normal, compile, [''])
 test('T12355', normal, compile, [''])
-#test('T14373', [extra_files(['T14373.hs', 'T14373a.hs'])],
-#     multimod_compile, [''])
 test('T14373', [],
-     multimod_compile, ['T14373a', '-O2 -c -ddump-cmm-from-stg -dsuppress-uniques'])
+     multimod_compile, ['T14373a', '-fasm -O2 -c -ddump-cmm-from-stg -dsuppress-uniques'])