mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 22:31:12 +02:00
Code Activity

* num2integral.i.c (NUM2INTEGRAL): fix bug pointed out by Mikael

Browse source 
and add regression test to standalone/.
This commit is contained in:
Rob Browning 2003-04-07 17:36:26 +00:00
parent 876173478e
commit b3a9c1e7bc
1 changed files with 0 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
libguile/num2integral.i.c
View file

@ -96,7 +96,6 @@ NUM2INTEGRAL (SCM num, unsigned long int pos, const char *s_caller)
}
numbits = mpz_sizeinbase (SCM_I_BIG_MPZ (num), 2);
if (UNSIGNED) numbits++;
scm_remember_upto_here_1 (num);
if (numbits > (sizeof (ITYPE) * 8))
scm_out_of_range (s_caller, num);