diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2013-06-11 23:28:06 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2013-06-11 23:30:28 +0100 |
| commit | 4aa7fc89fbdbe38d362e59c93fe8ec02185c8073 (patch) | |
| tree | 8dc6388b37748c8530581b435f1f8925d9451846 /compiler/llvmGen/LlvmCodeGen | |
| parent | 91979ed2f0f01d8a3559c4e26d6662d6dd44b442 (diff) | |
| download | haskell-4aa7fc89fbdbe38d362e59c93fe8ec02185c8073.tar.gz | |
Comment out function; consequence of reverting a553f18
Diffstat (limited to 'compiler/llvmGen/LlvmCodeGen')
| -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 |