diff options
| author | Ian Lynagh <ian@well-typed.com> | 2013-06-09 12:41:28 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2013-06-09 12:41:28 +0100 |
| commit | 86ca77ecb5d534efe6260bee6b7fc4c2e6a346cf (patch) | |
| tree | 93546291dcc5e521d7a6ceb982c467090cfa6b20 /compiler | |
| parent | 1c5b0511a89488f5280523569d45ee61c0d09ffa (diff) | |
| download | haskell-86ca77ecb5d534efe6260bee6b7fc4c2e6a346cf.tar.gz | |
Fix warnings
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/llvmGen/LlvmCodeGen/CodeGen.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/compiler/llvmGen/LlvmCodeGen/CodeGen.hs b/compiler/llvmGen/LlvmCodeGen/CodeGen.hs index e01870f7dd..bcc0109605 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 |