Parent Directory | Revision Log | Patch
revision 1.186 by kryde, Sat May 10 00:05:51 2003 UTC | revision 1.187 by kryde, Sat May 10 00:20:05 2003 UTC | |
---|---|---|
# | Line 708 scm_gcd (SCM x, SCM y) | Line 708 scm_gcd (SCM x, SCM y) |
708 | { | { |
709 | unsigned long result; | unsigned long result; |
710 | long yy = SCM_INUM (y); | long yy = SCM_INUM (y); |
711 | if (yy == 0) | |
712 | return scm_abs (x); | |
713 | if (yy < 0) yy = -yy; | if (yy < 0) yy = -yy; |
714 | result = mpz_gcd_ui (NULL, SCM_I_BIG_MPZ (x), yy); | result = mpz_gcd_ui (NULL, SCM_I_BIG_MPZ (x), yy); |
715 | scm_remember_upto_here_1 (x); | scm_remember_upto_here_1 (x); |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |