Parent Directory | Revision Log | Patch
revision 1.183 by kryde, Mon May 5 22:55:46 2003 UTC | revision 1.184 by kryde, Mon May 5 23:01:30 2003 UTC | |
---|---|---|
# | Line 1387 SCM_DEFINE (scm_logcount, "logcount", 1, | Line 1387 SCM_DEFINE (scm_logcount, "logcount", 1, |
1387 | { | { |
1388 | mpz_t z_n; | mpz_t z_n; |
1389 | mpz_init (z_n); | mpz_init (z_n); |
1390 | mpz_neg (z_n, SCM_I_BIG_MPZ (n)); | mpz_com (z_n, SCM_I_BIG_MPZ (n)); |
1391 | scm_remember_upto_here_1 (n); | scm_remember_upto_here_1 (n); |
1392 | count = mpz_popcount (z_n); | count = mpz_popcount (z_n); |
1393 | mpz_clear (z_n); | mpz_clear (z_n); |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |