X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FcodeGen%2FCgMonad.lhs;h=61b358a6ba39b1d15559a6df5b9befe34062f7d1;hb=bd3a364da7956c269d31645995d0d775c52f6a84;hp=3c596a6fb97ab5f8a3e04609e99e89ba2abac957;hpb=9ff76535edb25ab7434284adddb5c64708ecb547;p=ghc-hetmet.git

diff --git a/compiler/codeGen/CgMonad.lhs b/compiler/codeGen/CgMonad.lhs
index 3c596a6..61b358a 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
@@ -729,7 +730,7 @@ emitData sect lits
   where
     data_block = CmmData sect lits
 
-emitProc :: [CmmLit] -> CLabel -> [LocalReg] -> [CmmBasicBlock] -> Code
+emitProc :: [CmmLit] -> CLabel -> CmmFormals -> [CmmBasicBlock] -> Code
 emitProc lits lbl args blocks
   = do  { let proc_block = CmmProc (map CmmStaticLit lits) lbl args blocks
 	; state <- getState