mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 20:00:19 +02:00
Code Activity

* numbers.c (scm_logtest): Fixed argument bug in the call to

Browse source 
mpz_and, which showed up when compiling with SCM_DEBUG defined.
This commit is contained in:
Dirk Herrmann 2003-04-20 08:55:50 +00:00
parent f96460ce84
commit aec16f9972
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
2003-04-20 Dirk Herrmann <D.Herrmann@tu-bs.de>
* numbers.c (scm_logtest): Fixed argument bug in the call to
mpz_and, which showed up when compiling with SCM_DEBUG defined.
2003-04-20 Dirk Herrmann <D.Herrmann@tu-bs.de>
* gc-card.c (scm_i_sweep_card, scm_i_init_card_freelist): Fixed

2
libguile/numbers.c
View file

@ -1073,7 +1073,7 @@ SCM_DEFINE (scm_logtest, "logtest", 2, 0, 0,
SCM result;
mpz_t result_z;
mpz_init (result_z);
mpz_and (SCM_I_BIG_MPZ (result_z),
mpz_and (result_z,
SCM_I_BIG_MPZ (j),
SCM_I_BIG_MPZ (k));
scm_remember_upto_here_2 (j, k);