[commit: integer-gmp] master: Use CLong, not CInt, for mp_bitcnt_t value; fixes #5965 (5dfb7d3)
Ian Lynagh <[email protected]>
| Newsgroups | gmane.comp.lang.haskell.cvs.libraries |
|---|---|
| Message-ID | <[email protected]> |
Repository : ssh://darcs.haskell.org//srv/darcs/packages/integer-gmp On branch : master http://hackage.haskell.org/trac/ghc/changeset/5dfb7d3ca63790dd4b5947b2abc30cfa8b7c5a57 >--------------------------------------------------------------- commit 5dfb7d3ca63790dd4b5947b2abc30cfa8b7c5a57 Author: Ian Lynagh <[email protected]> Date: Wed Jun 20 14:28:36 2012 +0100 Use CLong, not CInt, for mp_bitcnt_t value; fixes #5965 The GMP docs say: Counts of bits of a multi-precision number are represented in the C type mp_bitcnt_t. Currently this is always an unsigned long, but on some systems it will be an unsigned long long in the future. >--------------------------------------------------------------- cbits/gmp-wrappers.cmm | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/cbits/gmp-wrappers.cmm b/cbits/gmp-wrappers.cmm index 145e6de..9ea19c1 100644 --- a/cbits/gmp-wrappers.cmm +++ b/cbits/gmp-wrappers.cmm @@ -269,7 +269,7 @@ name \ { \ CInt s1; \ W_ d1; \ - CInt ul; \ + CLong ul; \ W_ mp_tmp; \ W_ mp_result; \ \ @@ -280,7 +280,7 @@ name \ \ s1 = W_TO_INT(R1); \ d1 = R2; \ - ul = W_TO_INT(R3); \ + ul = W_TO_LONG(R3); \ \ mp_tmp = Sp - 1 * SIZEOF_MP_INT; \ mp_result = Sp - 2 * SIZEOF_MP_INT; \