1berry/ruby
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

bignum.c: unified int_pow_tmp2

Browse Source 
* bignum.c (int_pow_tmp2): unified DLONG and none DLONG code.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@61018 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
nobu 2017-12-05 00:09:58 +00:00
parent 984759ef98
commit 02b7d4c544
1 changed files with 10 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
bignum.c
View File

@ -6992,40 +6992,31 @@ int_pow_tmp2(VALUE x, VALUE y, long mm, int nega_flg)
long tmp = 1L; long tmp = 1L;
long yy; long yy;
#ifdef DLONG #ifdef DLONG
DLONG const mmm = mm; const DLONG m = mm;
long tmp2 = tmp;
long xx = FIX2LONG(x); long xx = FIX2LONG(x);
# define MUL_MODULO(a, b, c) (long)(((DLONG)(a) * (DLONG)(b)) % (c)) # define MUL_MODULO(a, b, c) (long)(((DLONG)(a) * (DLONG)(b)) % (c))
for (/*NOP*/; ! FIXNUM_P(y); y = rb_funcall(y, idGTGT, 1, LONG2FIX(1L))) {
if (RTEST(rb_int_odd_p(y))) {
tmp = MUL_MODULO(tmp, xx, mmm);
}
xx = MUL_MODULO(xx, xx, mmm);
}
for (yy = FIX2LONG(y); yy; yy >>= 1L) {
if (yy & 1L) {
tmp = MUL_MODULO(tmp, xx, mmm);
}
xx = MUL_MODULO(xx, xx, mmm);
}
#else #else
VALUE const m = LONG2FIX(mm); const VALUE m = LONG2FIX(mm);
VALUE tmp2 = LONG2FIX(tmp); VALUE tmp2 = LONG2FIX(tmp);
VALUE xx = x;
# define MUL_MODULO(a, b, c) rb_int_modulo(rb_fix_mul_fix((a), (b)), (c)) # define MUL_MODULO(a, b, c) rb_int_modulo(rb_fix_mul_fix((a), (b)), (c))
#endif
for (/*NOP*/; ! FIXNUM_P(y); y = rb_funcall(y, idGTGT, 1, LONG2FIX(1L))) { for (/*NOP*/; ! FIXNUM_P(y); y = rb_funcall(y, idGTGT, 1, LONG2FIX(1L))) {
if (RTEST(rb_int_odd_p(y))) { if (RTEST(rb_int_odd_p(y))) {
tmp2 = MUL_MODULO(tmp2, x, m); tmp2 = MUL_MODULO(tmp2, xx, m);
} }
x = MUL_MODULO(x, x, m); xx = MUL_MODULO(xx, xx, m);
} }
for (yy = FIX2LONG(y); yy; yy >>= 1L) { for (yy = FIX2LONG(y); yy; yy >>= 1L) {
if (yy & 1L) { if (yy & 1L) {
tmp2 = MUL_MODULO(tmp2, x, m); tmp2 = MUL_MODULO(tmp2, xx, m);
} }
x = MUL_MODULO(x, x, m); xx = MUL_MODULO(xx, xx, m);
} }
#ifndef DLONG
tmp = FIX2LONG(tmp2); tmp = FIX2LONG(tmp2);
#endif #endif
if (nega_flg && tmp) { if (nega_flg && tmp) {