From 067d1b6c33cd8dd20f59551a8582899ba11c4831 Mon Sep 17 00:00:00 2001 From: "Michael D. Adams" Date: Mon, 21 May 2007 11:29:12 +0000 Subject: [PATCH] Keep flattenCgStmts from emitting spurious 'goto' after CmmSwitch --- compiler/codeGen/CgMonad.lhs | 1 + 1 file changed, 1 insertion(+) diff --git a/compiler/codeGen/CgMonad.lhs b/compiler/codeGen/CgMonad.lhs index 3c596a6..0e4a8a4 100644 --- a/compiler/codeGen/CgMonad.lhs +++ b/compiler/codeGen/CgMonad.lhs @@ -241,6 +241,7 @@ flattenCgStmts id stmts = isJump (CmmJump _ _) = True isJump (CmmBranch _) = True +isJump (CmmSwitch _ _) = True isJump _ = False isOrdinaryStmt (CgStmt _) = True -- 1.7.10.4