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

(scm_gcd): In bignum/inum, don't pass yy==0 to mpz_gcd_ui

Browse source 
since we're only using the ulong return value, and x might not fit.
This commit is contained in:
Kevin Ryde 2003-05-10 00:20:05 +00:00
parent a04a3604c2
commit 8c5b0afcbf
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/numbers.c
View file

@ -708,6 +708,8 @@ scm_gcd (SCM x, SCM y)
{ {
unsigned long result; unsigned long result;
long yy = SCM_INUM (y); long yy = SCM_INUM (y);
if (yy == 0)
return scm_abs (x);
if (yy < 0) yy = -yy; if (yy < 0) yy = -yy;
result = mpz_gcd_ui (NULL, SCM_I_BIG_MPZ (x), yy); result = mpz_gcd_ui (NULL, SCM_I_BIG_MPZ (x), yy);
scm_remember_upto_here_1 (x); scm_remember_upto_here_1 (x);