Subject: [commit: ghc] master: Comment out function; consequence of reverting a553f18 (4aa7fc8)
From: Simon Peyton-Jones <[email-masked]>
To: "[email-masked]" <[email-masked]>
Date: Tue, 11 Jun 2013 22:30:39 +0000
List-Id: commit messages for ghc and related projects <ghc-commits.haskell.org>

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

On branch  : master

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

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

commit 4aa7fc89fbdbe38d362e59c93fe8ec02185c8073
Author: Simon Peyton Jones <[email-masked]>
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

_______________________________________________
ghc-commits mailing list
[email-masked]
http://www.haskell.org/mailman/listinfo/ghc-commits