[commit: ghc] master: Comment out function; consequence of reverting a553f18 (4aa7fc8)

[Simon Peyton Jones]

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

On branch  : master

https://github.com/ghc/ghc/commit/4aa7fc89fbdbe38d362e59c93fe8ec02185c8073

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

commit 4aa7fc89fbdbe38d362e59c93fe8ec02185c8073
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Tue Jun 11 23:28:06 2013 +0100

    Comment out function; consequence of reverting a553f18

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

 compiler/llvmGen/LlvmCodeGen/CodeGen.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/llvmGen/LlvmCodeGen/CodeGen.hs b/compiler/llvmGen/LlvmCodeGen/CodeGen.hs
index b426cc5..d7ddbdd 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