Commit 86ca77ec authored by ian@well-typed.com's avatar ian@well-typed.com

Fix warnings

parent 1c5b0511
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment