diff options
| author | mrkn <mrkn@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2016-11-11 14:39:16 +0000 |
|---|---|---|
| committer | mrkn <mrkn@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2016-11-11 14:39:16 +0000 |
| commit | 859813e134428656d51b21a06fc05d16e945451b (patch) | |
| tree | b26f076a8e9cf9cc4d2a9cc2dc8dd6df35c62a3e /rational.c | |
| parent | 30bc06d80677e9ec3afae24436138eb49a3888b6 (diff) | |
| download | ruby-859813e134428656d51b21a06fc05d16e945451b.tar.gz | |
rational.c: optimize Integer#gcd.
* rational.c (f_gcd_normal): optimize Integer#gcd.
Author: Tadashi Saito <tad.a.digger@gmail.com>
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@56706 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'rational.c')
| -rw-r--r-- | rational.c | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/rational.c b/rational.c index 0e06eedfd0..e612ab225c 100644 --- a/rational.c +++ b/rational.c @@ -27,6 +27,9 @@ #define GMP_GCD_DIGITS 1 +#define INT_NEGATIVE_P(x) (FIXNUM_P(x) ? ((SIGNED_VALUE)(x) < 0) : BIGNUM_NEGATIVE_P(x)) +#define INT_ZERO_P(x) (FIXNUM_P(x) ? (FIX2LONG(x) == 0) : rb_bigzero_p(x)) + VALUE rb_cRational; static ID id_abs, id_cmp, id_convert, id_eqeq_p, id_expt, id_fdiv, @@ -318,14 +321,14 @@ f_gcd_normal(VALUE x, VALUE y) if (FIXNUM_P(x) && FIXNUM_P(y)) return LONG2NUM(i_gcd(FIX2LONG(x), FIX2LONG(y))); - if (f_negative_p(x)) - x = f_negate(x); - if (f_negative_p(y)) - y = f_negate(y); + if (INT_NEGATIVE_P(x)) + x = rb_int_uminus(x); + if (INT_NEGATIVE_P(y)) + y = rb_int_uminus(y); - if (f_zero_p(x)) + if (INT_ZERO_P(x)) return y; - if (f_zero_p(y)) + if (INT_ZERO_P(y)) return x; for (;;) { @@ -336,7 +339,7 @@ f_gcd_normal(VALUE x, VALUE y) return LONG2NUM(i_gcd(FIX2LONG(x), FIX2LONG(y))); } z = x; - x = f_mod(y, x); + x = rb_int_modulo(y, x); y = z; } /* NOTREACHED */ |