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

bignum.c: NAIVE_MUL_DIGITS

Browse Source 
* bignum.c (NAIVE_MUL_DIGITS): share threshold for bary_sq_fast
  between bary_mul and bigsq.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@57696 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
nobu 2017-02-23 06:55:42 +00:00
parent 532bbd4ebf
commit 6feeda594e
1 changed files with 8 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
bignum.c
View File

@ -138,6 +138,11 @@ STATIC_ASSERT(sizeof_long_and_sizeof_bdigit, SIZEOF_BDIGIT % SIZEOF_LONG == 0);
#define GMP_DIV_DIGITS 20 #define GMP_DIV_DIGITS 20
#define GMP_BIG2STR_DIGITS 20 #define GMP_BIG2STR_DIGITS 20
#define GMP_STR2BIG_DIGITS 20 #define GMP_STR2BIG_DIGITS 20
#ifdef USE_GMP
# define NAIVE_MUL_DIGITS GMP_MUL_DIGITS
#else
# define NAIVE_MUL_DIGITS KARATSUBA_MUL_DIGITS
#endif
typedef void (mulfunc_t)(BDIGIT *zds, size_t zn, const BDIGIT *xds, size_t xn, const BDIGIT *yds, size_t yn, BDIGIT *wds, size_t wn); typedef void (mulfunc_t)(BDIGIT *zds, size_t zn, const BDIGIT *xds, size_t xn, const BDIGIT *yds, size_t yn, BDIGIT *wds, size_t wn);
@ -2487,13 +2492,8 @@ bary_mul_toom3_start(BDIGIT *zds, size_t zn, const BDIGIT *xds, size_t xn, const
static void static void
bary_mul(BDIGIT *zds, size_t zn, const BDIGIT *xds, size_t xn, const BDIGIT *yds, size_t yn) bary_mul(BDIGIT *zds, size_t zn, const BDIGIT *xds, size_t xn, const BDIGIT *yds, size_t yn)
{ {
#ifdef USE_GMP
const size_t naive_threshold = GMP_MUL_DIGITS;
#else
const size_t naive_threshold = KARATSUBA_MUL_DIGITS;
#endif
if (xn <= yn) { if (xn <= yn) {
if (xn < naive_threshold) { if (xn < NAIVE_MUL_DIGITS) {
if (xds == yds && xn == yn) if (xds == yds && xn == yn)
bary_sq_fast(zds, zn, xds, xn); bary_sq_fast(zds, zn, xds, xn);
else else
@ -2502,7 +2502,7 @@ bary_mul(BDIGIT *zds, size_t zn, const BDIGIT *xds, size_t xn, const BDIGIT *yds
} }
} }
else { else {
if (yn < naive_threshold) { if (yn < NAIVE_MUL_DIGITS) {
bary_short_mul(zds, zn, yds, yn, xds, xn); bary_short_mul(zds, zn, yds, yn, xds, xn);
return; return;
} }
@ -5820,17 +5820,10 @@ bigsq(VALUE x)
xds = BDIGITS(x); xds = BDIGITS(x);
zds = BDIGITS(z); zds = BDIGITS(z);
#ifdef USE_GMP if (xn < NAIVE_MUL_DIGITS)
if (xn < GMP_MUL_DIGITS)
bary_sq_fast(zds, zn, xds, xn); bary_sq_fast(zds, zn, xds, xn);
else else
bary_mul(zds, zn, xds, xn, xds, xn); bary_mul(zds, zn, xds, xn, xds, xn);
#else
if (xn < KARATSUBA_MUL_DIGITS)
bary_sq_fast(zds, zn, xds, xn);
else
bary_mul(zds, zn, xds, xn, xds, xn);
#endif
RB_GC_GUARD(x); RB_GC_GUARD(x);
return z; return z;