Repository : ssh://darcs.haskell.org//srv/darcs/packages/integer-gmp

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/8c5a74fb612654b1459b4fee8d64d9f4427c704c

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

commit 8c5a74fb612654b1459b4fee8d64d9f4427c704c
Author: Simon Marlow <[email protected]>
Date:   Mon Oct 22 15:39:39 2012 +0100

    fix type mismatch in result of integer_cmm_testBitIntegerzh

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

 cbits/gmp-wrappers.cmm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/cbits/gmp-wrappers.cmm b/cbits/gmp-wrappers.cmm
index 9868434..0390eb5 100644
--- a/cbits/gmp-wrappers.cmm
+++ b/cbits/gmp-wrappers.cmm
@@ -299,7 +299,7 @@ again:                                                      
    \
   /* Perform the operation */                                   \
   (res) = ccall mp_fun(mp_tmp "ptr", ul);                       \
                                                                 \
-  return (res);                                                 \
+  return (TO_W_(res));                                          \
 }
 
 #define GMP_TAKE1_RET1(name,mp_fun)                             \



_______________________________________________
Cvs-libraries mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/cvs-libraries

Reply via email to