[commit: ghc] master: Fix warnings (86ca77e)

[Ian Lynagh]

Repository : http://darcs.haskell.org/ghc.git/

On branch  : master

https://github.com/ghc/ghc/commit/86ca77ecb5d534efe6260bee6b7fc4c2e6a346cf

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

commit 86ca77ecb5d534efe6260bee6b7fc4c2e6a346cf
Author: Ian Lynagh <ian at well-typed.com>
Date:   Sun Jun 9 12:41:28 2013 +0100

    Fix warnings

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

 compiler/llvmGen/LlvmCodeGen/CodeGen.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/compiler/llvmGen/LlvmCodeGen/CodeGen.hs b/compiler/llvmGen/LlvmCodeGen/CodeGen.hs
index e01870f..bcc0109 100644
--- a/compiler/llvmGen/LlvmCodeGen/CodeGen.hs
+++ b/compiler/llvmGen/LlvmCodeGen/CodeGen.hs
@@ -398,6 +398,9 @@ genCallSimpleCast env w t [dst] args = do
                 s1 `appOL` toOL [stmts5] `snocOL` s2
     return (env3, stmts, top1 ++ top2 ++ top3)
 
+genCallSimpleCast _ _ _ dsts _ =
+    panic ("genCallSimpleCast: " ++ show (length dsts) ++ " dsts")
+
 -- | Create a function pointer from a target.
 getFunPtr :: LlvmEnv -> (LMString -> LlvmType) -> ForeignTarget
           -> UniqSM ExprData