mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 13:30:26 +02:00
Code Activity

(NUM2INTEGRAL): Test BIGMPZ_FITSP with "!= 0" to

Browse source 
avoid warning from gcc 3.4.  Reported by Hyperdivision.
This commit is contained in:
Kevin Ryde 2004-04-27 22:16:12 +00:00
parent e45fb18618
commit 924532c8fd
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/num2integral.i.c
View file

@ -79,7 +79,7 @@ NUM2INTEGRAL (SCM num, unsigned long int pos, const char *s_caller)
else
{
/* make sure the result will fit */
if (BIGMPZ_FITSP)
if (BIGMPZ_FITSP != 0)
{
int fits_p = BIGMPZ_FITSP (SCM_I_BIG_MPZ (num));
scm_remember_upto_here_1 (num);