Skip to content

Commit b366afb

Browse files
tompngtompng
committed
Use DECDIG=uint64_t if uint128_t is available
1 parent 34e4715 commit b366afb

7 files changed

Lines changed: 119 additions & 45 deletions

File tree

‎.github/workflows/ci.yml‎

Lines changed: 7 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -20,7 +20,7 @@ jobs:
2020

2121
host:
2222
needs: ruby-versions
23-
name: ${{ matrix.os }} ${{ matrix.ruby }}
23+
name: ${{ matrix.os }} ${{ matrix.ruby }} decdig_bits=${{ matrix.decdig_bits }}
2424
runs-on: ${{ matrix.os }}
2525
strategy:
2626
fail-fast: false
@@ -31,14 +31,20 @@ jobs:
3131
- macos-14
3232
- windows-latest
3333
ruby: ${{ fromJson(needs.ruby-versions.outputs.versions) }}
34+
decdig_bits: ['auto']
3435
include:
36+
- { os: ubuntu-latest, ruby: "4.0", decdig_bits: 32 }
37+
- { os: ubuntu-latest, ruby: "4.0", decdig_bits: 64 }
38+
- { os: windows-latest, ruby: "4.0", decdig_bits: 32 }
39+
- { os: windows-latest, ruby: "4.0", decdig_bits: 64 }
3540
- { os: windows-latest , ruby: mingw }
3641
- { os: windows-latest , ruby: mswin }
3742
exclude:
3843
- { os: windows-latest , ruby: debug }
3944
- { os: windows-latest , ruby: truffleruby }
4045
- { os: windows-latest , ruby: truffleruby-head }
4146
env:
47+
BIGDECIMAL_DECDIG_BITS: ${{ matrix.decdig_bits }}
4248
BIGDECIMAL_USE_VP_TEST_METHODS: true
4349
BUNDLE_WITHOUT: sig
4450

‎ext/bigdecimal/bigdecimal.c‎

Lines changed: 46 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -1084,7 +1084,12 @@ BigDecimal_to_i(VALUE self)
10841084

10851085
if (v.real->exponent <= 0) return INT2FIX(0);
10861086
if (v.real->exponent == 1) {
1087-
ret = LONG2NUM((long)(VpGetSign(v.real) * (DECDIG_DBL_SIGNED)v.real->frac[0]));
1087+
DECDIG_SIGNED value = VpGetSign(v.real) * (DECDIG_SIGNED)v.real->frac[0];
1088+
#if SIZEOF_DECDIG == 4
1089+
ret = LONG2NUM((long)value);
1090+
#elif SIZEOF_DECDIG == 8
1091+
ret = LL2NUM((long long)value);
1092+
#endif
10881093
}
10891094
else {
10901095
VALUE fix = (ssize_t)v.real->Prec > v.real->exponent ? BigDecimal_fix(self) : self;
@@ -3228,6 +3233,40 @@ BigDecimal_literal(const char *str)
32283233

32293234
#define BIGDECIMAL_LITERAL(var, val) (BIGDECIMAL_ ## var = BigDecimal_literal(#val))
32303235

3236+
#if SIZEOF_DECDIG == 4
3237+
# define ntt_multiply ntt_multiply32
3238+
#elif SIZEOF_DECDIG == 8 && BASE_FIG == 18
3239+
static void
3240+
ntt_multiply(size_t a_size, size_t b_size, uint64_t *a, uint64_t *b, uint64_t *c) {
3241+
size_t c_size = a_size + b_size;
3242+
BDVALUE bd_a = NewZeroWrap(1, a_size * BASE_FIG);
3243+
BDVALUE bd_b = NewZeroWrap(1, b_size * BASE_FIG);
3244+
BDVALUE bd_c = NewZeroWrap(1, c_size * BASE_FIG);
3245+
uint32_t *a32 = (uint32_t*)bd_a.real->frac;
3246+
uint32_t *b32 = (uint32_t*)bd_b.real->frac;
3247+
uint32_t *c32 = (uint32_t*)bd_c.real->frac;
3248+
3249+
// Pack to 64-bit (BASE_FIG=18) to 32-bit digits(BASE_FIG=9) and call ntt_multiply32
3250+
for (uint32_t i = 0; i < a_size; i++) {
3251+
uint64_t v = a[i];
3252+
a32[i * 2] = (uint32_t)(v / NTT_DECDIG_BASE);
3253+
a32[i * 2 + 1] = (uint32_t)(v % NTT_DECDIG_BASE);
3254+
}
3255+
for (uint32_t i = 0; i < b_size; i++) {
3256+
uint64_t v = b[i];
3257+
b32[i * 2] = (uint32_t)(v / NTT_DECDIG_BASE);
3258+
b32[i * 2 + 1] = (uint32_t)(v % NTT_DECDIG_BASE);
3259+
}
3260+
ntt_multiply32(a_size * 2, b_size * 2, a32, b32, c32);
3261+
for (uint32_t i = 0; i < c_size; i++) {
3262+
c[i] = (uint64_t)c32[i * 2] * NTT_DECDIG_BASE + c32[i * 2 + 1];
3263+
}
3264+
RB_GC_GUARD(bd_a.bigdecimal);
3265+
RB_GC_GUARD(bd_b.bigdecimal);
3266+
RB_GC_GUARD(bd_c.bigdecimal);
3267+
}
3268+
#endif
3269+
32313270
#ifdef BIGDECIMAL_USE_VP_TEST_METHODS
32323271
VALUE
32333272
BigDecimal_vpdivd_generic(VALUE self, VALUE r, VALUE cprec, void (*vpdivd_func)(Real*, Real*, Real*, Real*)) {
@@ -3486,13 +3525,15 @@ Init_bigdecimal(void)
34863525
rb_define_const(rb_cBigDecimal, "VERSION", rb_str_new2(BIGDECIMAL_VERSION));
34873526

34883527
/*
3489-
* Base value used in internal calculations. On a 32 bit system, BASE
3490-
* is 10000, indicating that calculation is done in groups of 4 digits.
3491-
* (If it were larger, BASE**2 wouldn't fit in 32 bits, so you couldn't
3528+
* Base value used in internal calculations.
3529+
* If uint128_t is available, BASE is (uint64_t)1000000000000000000ULL.
3530+
* Otherswise, BASE is 1000000000, indicating that calculation is done
3531+
* in groups of 9 digits.
3532+
* (If it were larger, BASE**2 wouldn't fit in 64 bits, so you couldn't
34923533
* guarantee that two groups could always be multiplied together without
34933534
* overflow.)
34943535
*/
3495-
rb_define_const(rb_cBigDecimal, "BASE", INT2FIX((SIGNED_VALUE)BASE));
3536+
rb_define_const(rb_cBigDecimal, "BASE", ULL2NUM(BASE));
34963537

34973538
/* Exceptions */
34983539

‎ext/bigdecimal/bigdecimal.h‎

Lines changed: 36 additions & 26 deletions
Original file line numberDiff line numberDiff line change
@@ -17,40 +17,50 @@
1717
# include <float.h>
1818
#endif
1919

20-
#define DECDIG uint32_t
21-
#define DECDIG_DBL uint64_t
22-
#define DECDIG_DBL_SIGNED int64_t
23-
#define SIZEOF_DECDIG 4
24-
#define PRI_DECDIG_PREFIX ""
25-
#ifdef PRI_LL_PREFIX
26-
# define PRI_DECDIG_DBL_PREFIX PRI_LL_PREFIX
27-
#else
28-
# define PRI_DECDIG_DBL_PREFIX "l"
20+
#ifndef BIGDECIMAL_DECDIG_BITS
21+
# ifdef HAVE_INT128_T
22+
# define BIGDECIMAL_DECDIG_BITS 64
23+
# else
24+
# define BIGDECIMAL_DECDIG_BITS 32
25+
# endif
26+
#endif
27+
28+
#if BIGDECIMAL_DECDIG_BITS == 64
29+
# define DECDIG uint64_t
30+
# define DECDIG_DBL uint128_t
31+
# define DECDIG_SIGNED int64_t
32+
# define SIZEOF_DECDIG 8
33+
# define PRIuDECDIG PRIu64
34+
#elif BIGDECIMAL_DECDIG_BITS == 32
35+
# define DECDIG uint32_t
36+
# define DECDIG_DBL uint64_t
37+
# define DECDIG_SIGNED int32_t
38+
# define SIZEOF_DECDIG 4
39+
# define PRIuDECDIG PRIu32
2940
#endif
3041

31-
#define PRIdDECDIG PRI_DECDIG_PREFIX"d"
32-
#define PRIiDECDIG PRI_DECDIG_PREFIX"i"
33-
#define PRIoDECDIG PRI_DECDIG_PREFIX"o"
34-
#define PRIuDECDIG PRI_DECDIG_PREFIX"u"
35-
#define PRIxDECDIG PRI_DECDIG_PREFIX"x"
36-
#define PRIXDECDIG PRI_DECDIG_PREFIX"X"
37-
38-
#define PRIdDECDIG_DBL PRI_DECDIG_DBL_PREFIX"d"
39-
#define PRIiDECDIG_DBL PRI_DECDIG_DBL_PREFIX"i"
40-
#define PRIoDECDIG_DBL PRI_DECDIG_DBL_PREFIX"o"
41-
#define PRIuDECDIG_DBL PRI_DECDIG_DBL_PREFIX"u"
42-
#define PRIxDECDIG_DBL PRI_DECDIG_DBL_PREFIX"x"
43-
#define PRIXDECDIG_DBL PRI_DECDIG_DBL_PREFIX"X"
44-
45-
#define BIGDECIMAL_BASE ((DECDIG)1000000000U)
46-
#define BIGDECIMAL_COMPONENT_FIGURES 9
42+
#if SIZEOF_DECDIG == 8
43+
# define BIGDECIMAL_BASE ((DECDIG)1000000000000000000ULL)
44+
# define BIGDECIMAL_COMPONENT_FIGURES 18
45+
/*
46+
* The number of components required for a 64-bit integer.
47+
*
48+
* INT64_MAX: 9_223372036854775807
49+
* UINT64_MAX: 18_446744073709551615
50+
*/
51+
# define BIGDECIMAL_INT64_MAX_LENGTH 2
52+
53+
#elif SIZEOF_DECDIG == 4
54+
# define BIGDECIMAL_BASE ((DECDIG)1000000000U)
55+
# define BIGDECIMAL_COMPONENT_FIGURES 9
4756
/*
4857
* The number of components required for a 64-bit integer.
4958
*
5059
* INT64_MAX: 9_223372036_854775807
5160
* UINT64_MAX: 18_446744073_709551615
5261
*/
53-
#define BIGDECIMAL_INT64_MAX_LENGTH 3
62+
# define BIGDECIMAL_INT64_MAX_LENGTH 3
63+
#endif
5464

5565
#define BIGDECIMAL_DOUBLE_FIGURES (1+DBL_DIG)
5666

‎ext/bigdecimal/extconf.rb‎

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -52,6 +52,9 @@ def have_builtin_func(name, check_expr, opt = "", &b)
5252
bigdecimal_rb = "$(srcdir)/../../lib/bigdecimal.rb"
5353
end
5454

55+
decdig_bits = ENV['BIGDECIMAL_DECDIG_BITS']
56+
$defs.push("-DBIGDECIMAL_DECDIG_BITS=#{decdig_bits}") if %w[32 64].include?(decdig_bits)
57+
5558
$defs.push '-DBIGDECIMAL_USE_VP_TEST_METHODS' if ENV['BIGDECIMAL_USE_VP_TEST_METHODS'] == 'true'
5659

5760
create_makefile('bigdecimal') {|mf|

‎ext/bigdecimal/ntt.h‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -117,9 +117,9 @@ mod_restore_prime_24_26_29_shift_27(uint32_t mod1, uint32_t mod2, uint32_t mod3,
117117
* Uses three NTTs with mod (24 << 27 | 1), (26 << 27 | 1), and (29 << 27 | 1)
118118
*/
119119
static void
120-
ntt_multiply(size_t a_size, size_t b_size, uint32_t *a, uint32_t *b, uint32_t *c) {
120+
ntt_multiply32(size_t a_size, size_t b_size, uint32_t *a, uint32_t *b, uint32_t *c) {
121121
if (a_size < b_size) {
122-
ntt_multiply(b_size, a_size, b, a, c);
122+
ntt_multiply32(b_size, a_size, b, a, c);
123123
return;
124124
}
125125

‎test/bigdecimal/helper.rb‎

Lines changed: 6 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -5,7 +5,12 @@
55

66
module TestBigDecimalBase
77
BASE = BigDecimal::BASE
8-
BASE_FIG = 9
8+
case BASE
9+
when (_avoid_jruby_crash = 1000000000000000000)
10+
BASE_FIG = 18
11+
when 1000000000
12+
BASE_FIG = 9
13+
end
914

1015
def setup
1116
@mode = BigDecimal.mode(BigDecimal::EXCEPTION_ALL)

‎test/bigdecimal/test_vp_operation.rb‎

Lines changed: 19 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -121,12 +121,13 @@ def test_vpdivd_large_quotient_prec
121121
end
122122

123123
def test_vpdivd_with_one
124-
x = BigDecimal('1234.2468000001234')
125-
assert_vpdivd_equal([BigDecimal('1234'), BigDecimal('0.2468000001234')], [x, BigDecimal(1), 1])
126-
assert_vpdivd_equal([BigDecimal('+1234.2468'), BigDecimal('+0.1234e-9')], [+x, BigDecimal(+1), 2])
127-
assert_vpdivd_equal([BigDecimal('-1234.2468'), BigDecimal('+0.1234e-9')], [+x, BigDecimal(-1), 2])
128-
assert_vpdivd_equal([BigDecimal('-1234.2468'), BigDecimal('-0.1234e-9')], [-x, BigDecimal(+1), 2])
129-
assert_vpdivd_equal([BigDecimal('+1234.2468'), BigDecimal('-0.1234e-9')], [-x, BigDecimal(-1), 2])
124+
rest = BigDecimal("0.1234e-#{BASE_FIG}")
125+
x = BigDecimal('1234.2468') + rest
126+
assert_vpdivd_equal([BigDecimal('1234'), BigDecimal('0.2468') + rest], [x, BigDecimal(1), 1])
127+
assert_vpdivd_equal([BigDecimal('+1234.2468'), +rest], [+x, BigDecimal(+1), 2])
128+
assert_vpdivd_equal([BigDecimal('-1234.2468'), +rest], [+x, BigDecimal(-1), 2])
129+
assert_vpdivd_equal([BigDecimal('-1234.2468'), -rest], [-x, BigDecimal(+1), 2])
130+
assert_vpdivd_equal([BigDecimal('+1234.2468'), -rest], [-x, BigDecimal(-1), 2])
130131
end
131132

132133
def test_vpdivd_precisions
@@ -169,9 +170,17 @@ def test_vpdivd_large_prec_divisor
169170
end
170171

171172
def test_vpdivd_intermediate_zero
172-
x = BigDecimal('123456789.246913578000000000123456789')
173-
y = BigDecimal('123456789')
174-
assert_vpdivd_equal([BigDecimal('1.000000002000000000000000001'), BigDecimal(0)], [x, y, 4])
175-
assert_vpdivd_equal([BigDecimal('1.000000000049999999'), BigDecimal('1e-18')], [BigDecimal("2.000000000099999999"), 2, 3])
173+
case BASE_FIG
174+
when 9
175+
x = BigDecimal('123456789.246913578000000000123456789')
176+
y = BigDecimal('123456789')
177+
assert_vpdivd_equal([BigDecimal('1.000000002000000000000000001'), BigDecimal(0)], [x, y, 4])
178+
assert_vpdivd_equal([BigDecimal('1.000000000049999999'), BigDecimal('1e-18')], [BigDecimal("2.000000000099999999"), 2, 3])
179+
when 18
180+
x = BigDecimal('123456789.246913578000000000000000000000000000123456789')
181+
y = BigDecimal('123456789')
182+
assert_vpdivd_equal([BigDecimal('1.000000002000000000000000000000000000000000001'), BigDecimal(0)], [x, y, 4])
183+
assert_vpdivd_equal([BigDecimal('1.000000000000000000049999999999999999'), BigDecimal('1e-36')], [BigDecimal("2.000000000000000000099999999999999999"), 2, 3])
184+
end
176185
end
177186
end

0 commit comments

Comments
 (0)