diff options
| author | Michael D. Adams <t-madams@microsoft.com> | 2007-07-05 09:47:02 +0000 |
|---|---|---|
| committer | Michael D. Adams <t-madams@microsoft.com> | 2007-07-05 09:47:02 +0000 |
| commit | 5f00461a637a25a6facecda2d9b0a2c0a44e9008 (patch) | |
| tree | 038b715a1270a4f6d582830c3814f0f5f20434d2 /compiler/codeGen/CgMonad.lhs | |
| parent | e85fc273bafab43692ee4e33a2e77144e170dca9 (diff) | |
| download | haskell-5f00461a637a25a6facecda2d9b0a2c0a44e9008.tar.gz | |
Ensure no statements after CmmReturn are emitted
Diffstat (limited to 'compiler/codeGen/CgMonad.lhs')
| -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 8723e46d2a..b96db8022e 100644 --- a/compiler/codeGen/CgMonad.lhs +++ b/compiler/codeGen/CgMonad.lhs @@ -247,6 +247,7 @@ flattenCgStmts id stmts = isJump (CmmJump _ _) = True isJump (CmmBranch _) = True isJump (CmmSwitch _ _) = True +isJump (CmmReturn _) = True isJump _ = False isOrdinaryStmt (CgStmt _) = True |