diff options
| author | Michael D. Adams <t-madams@microsoft.com> | 2007-05-21 11:29:12 +0000 |
|---|---|---|
| committer | Michael D. Adams <t-madams@microsoft.com> | 2007-05-21 11:29:12 +0000 |
| commit | 067d1b6c33cd8dd20f59551a8582899ba11c4831 (patch) | |
| tree | ad76b641715df55da9649466d648c0efae69f255 /compiler | |
| parent | 4a0d5a0d20818bd555299ebdf14296bf55749084 (diff) | |
| download | haskell-067d1b6c33cd8dd20f59551a8582899ba11c4831.tar.gz | |
Keep flattenCgStmts from emitting spurious 'goto' after CmmSwitch
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/codeGen/CgMonad.lhs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/codeGen/CgMonad.lhs b/compiler/codeGen/CgMonad.lhs index 3c596a6fb9..0e4a8a4c73 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 |