wider mpz_bitlength and mpz_bitcount - gcl.git - GNU Common Lisp

index : gcl.git
GNU Common Lisp
summary refs log tree commit diff
diff options
context:
space:
mode:
authorCamm Maguire <camm@debian.org>2015年02月05日 10:40:13 -0500
committerCamm Maguire <camm@debian.org>2015年02月05日 10:40:13 -0500
commitef2e6e30b951d44cc9b5d6c32962a5458195a0cf (patch)
tree1100e63df2ab80e294517548df617e938de24549
parent0c4b768afdacf5147222883f9c5858e85288a544 (diff)
downloadgcl-ef2e6e30b951d44cc9b5d6c32962a5458195a0cf.tar.gz
wider mpz_bitlength and mpz_bitcount
Diffstat
-rw-r--r--gcl/o/gmp_num_log.c 4
1 files changed, 2 insertions, 2 deletions
diff --git a/gcl/o/gmp_num_log.c b/gcl/o/gmp_num_log.c
index f611c712b..c794d0354 100644
--- a/gcl/o/gmp_num_log.c
+++ b/gcl/o/gmp_num_log.c
@@ -88,7 +88,7 @@ big_bitp(object x, ufixnum p)
return mpz_tstbit(MP(x),p);
}
-static int
+static fixnum
mpz_bitcount(__mpz_struct *x)
{
if (mpz_sgn(x) >= 0) {
@@ -101,7 +101,7 @@ mpz_bitcount(__mpz_struct *x)
}
-static int
+static fixnum
mpz_bitlength(__mpz_struct *x)
{
if (mpz_sgn(x) >= 0) {
generated by cgit v1.2.3 (git 2.39.1) at 2025年09月02日 04:54:54 +0000

AltStyle によって変換されたページ (->オリジナル) /