diff options
| -rw-r--r-- | compiler/llvmGen/LlvmCodeGen/CodeGen.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/llvmGen/LlvmCodeGen/CodeGen.hs b/compiler/llvmGen/LlvmCodeGen/CodeGen.hs index b426cc5414..d7ddbdd027 100644 --- a/compiler/llvmGen/LlvmCodeGen/CodeGen.hs +++ b/compiler/llvmGen/LlvmCodeGen/CodeGen.hs @@ -387,8 +387,8 @@ genCall env target res args = do `appOL` retStmt, top1 ++ top2 ++ top3) -genCallSimpleCast _ _ _ dsts _ = - panic ("genCallSimpleCast: " ++ show (length dsts) ++ " dsts") +-- genCallSimpleCast _ _ _ dsts _ = +-- panic ("genCallSimpleCast: " ++ show (length dsts) ++ " dsts") -- | Create a function pointer from a target. getFunPtr :: LlvmEnv -> (LMString -> LlvmType) -> ForeignTarget |