bigdecimal 3.2.3 → 4.0.1

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 1e0b80297731a8be5b2f5b04c5fab931a45aeee425f52a84afaca1bb34718913
-  data.tar.gz: 63bd3f047a4040d85ad410373b6355860c7445187199e5869e14d18f0bef3626
+  metadata.gz: 3779ec68890d9353aa7e8910445435ce636a4bee3c398d46ba37798612a8b19f
+  data.tar.gz: f0829fbe026a8b008beb81e2b79d5efdbb66ada64eaebb1f5ce70b6f80a45fc3
 SHA512:
-  metadata.gz: a5a4e43d1fd15f8992d2e670015ebd6c690a8ffad8de26c275f6540a09eb99579886d4b2c36b5ec5e04f4253f43990576545238927b78b884102a24b9cda562f
-  data.tar.gz: 983fbf6d37e69908d5a84406983373fd1113243554386ed2531cf3546ffa2e15e311721139da511e7e2db95839da5a062898073557553b4655b090eb29cc57d8
+  metadata.gz: 867235a805d627a8444b7029329e16b21c2702d421d59bacf2aae675b5d62cea9b517650ed1e5bc7e548c93b1b0310e5d382ae49dc61c94f8effe9fda9d26228
+  data.tar.gz: 36786ceef3f96ccd16e0c30c3a188c86f35b9e11d5c36587b62729b842eb37f49c6588b17b5c9f71c393016c08c90731b0f7b8a015188c2da1dc7156f988007e

data/ext/bigdecimal/bigdecimal.c

@@ -31,7 +31,7 @@
 #include "bits.h"
 #include "static_assert.h"
 
-#define BIGDECIMAL_VERSION "3.2.3"
+#define BIGDECIMAL_VERSION "4.0.1"
 
 /* #define ENABLE_NUMERIC_STRING */
 
@@ -252,10 +252,21 @@ static const rb_data_type_t BigDecimal_data_type = {
 #endif
 };
 
+// TypedData_Wrap_Struct may fail if there is no memory, or GC.add_stress_to_class(BigDecimal) is set.
+// We need to first allocate empty struct, allocate Real struct, and then set the data pointer.
+typedef struct { VALUE _obj; } NULL_WRAPPED_VALUE;
+static NULL_WRAPPED_VALUE
+BigDecimal_alloc_empty_struct(VALUE klass)
+{
+    return (NULL_WRAPPED_VALUE) { TypedData_Wrap_Struct(klass, &BigDecimal_data_type, NULL) };
+}
+
 static VALUE
-BigDecimal_wrap_struct(VALUE klass, Real *real)
+BigDecimal_wrap_struct(NULL_WRAPPED_VALUE v, Real *real)
 {
-    VALUE obj = TypedData_Wrap_Struct(klass, &BigDecimal_data_type, real);
+    VALUE obj = v._obj;
+    assert(RTYPEDDATA_DATA(obj) == NULL);
+    RTYPEDDATA_DATA(obj) = real;
     RB_OBJ_FREEZE(obj);
     return obj;
 }
@@ -265,8 +276,9 @@ MAYBE_UNUSED(static inline BDVALUE rbd_allocate_struct_zero_wrap(int sign, size_
 static BDVALUE
 rbd_allocate_struct_zero_wrap(int sign, size_t const digits)
 {
+    NULL_WRAPPED_VALUE null_wrapped = BigDecimal_alloc_empty_struct(rb_cBigDecimal);
     Real *real = rbd_allocate_struct_zero(sign, digits);
-    return (BDVALUE) { BigDecimal_wrap_struct(rb_cBigDecimal, real), real };
+    return (BDVALUE) { BigDecimal_wrap_struct(null_wrapped, real), real };
 }
 
 static inline int
@@ -388,37 +400,6 @@ BigDecimal_double_fig(VALUE self)
     return INT2FIX(BIGDECIMAL_DOUBLE_FIGURES);
 }
 
-/*  call-seq:
- *    precs -> array
- *
- *  Returns an Array of two Integer values that represent platform-dependent
- *  internal storage properties.
- *
- *  This method is deprecated and will be removed in the future.
- *  Instead, use BigDecimal#n_significant_digits for obtaining the number of
- *  significant digits in scientific notation, and BigDecimal#precision for
- *  obtaining the number of digits in decimal notation.
- *
- */
-
-static VALUE
-BigDecimal_prec(VALUE self)
-{
-    BDVALUE v;
-    VALUE obj;
-
-    rb_category_warn(RB_WARN_CATEGORY_DEPRECATED,
-                     "BigDecimal#precs is deprecated and will be removed in the future; "
-                     "use BigDecimal#precision instead.");
-
-    v = GetBDValueMust(self);
-    obj = rb_assoc_new(SIZET2NUM(v.real->Prec*VpBaseFig()),
-		       SIZET2NUM(v.real->MaxPrec*VpBaseFig()));
-
-    RB_GC_GUARD(v.bigdecimal);
-    return obj;
-}
-
 static void
 VpCountPrecisionAndScale(Real *p, ssize_t *out_precision, ssize_t *out_scale)
 {
@@ -1041,9 +1022,10 @@ check_int_precision(VALUE v)
 static NULLABLE_BDVALUE
 CreateFromString(const char *str, VALUE klass, bool strict_p, bool raise_exception)
 {
+    NULL_WRAPPED_VALUE null_wrapped = BigDecimal_alloc_empty_struct(klass);
     Real *pv = VpAlloc(str, strict_p, raise_exception);
     if (!pv) return (NULLABLE_BDVALUE) { Qnil, NULL };
-    return (NULLABLE_BDVALUE) { BigDecimal_wrap_struct(klass, pv), pv };
+    return (NULLABLE_BDVALUE) { BigDecimal_wrap_struct(null_wrapped, pv), pv };
 }
 
 static Real *
@@ -1720,15 +1702,25 @@ BigDecimal_DoDivmod(VALUE self, VALUE r, NULLABLE_BDVALUE *div, NULLABLE_BDVALUE
         *mod = (NULLABLE_BDVALUE) { nan, DATA_PTR(nan) };
         goto Done;
     }
-    if (VpIsInf(b.real)) {
+    if (VpIsZero(a.real)) {
         VALUE zero = BigDecimal_positive_zero();
         *div = (NULLABLE_BDVALUE) { zero, DATA_PTR(zero) };
         *mod = bdvalue_nullable(a);
         goto Done;
     }
-    if (VpIsZero(a.real)) {
-        VALUE zero = BigDecimal_positive_zero();
-        *div = *mod = (NULLABLE_BDVALUE) { zero, DATA_PTR(zero) };
+    if (VpIsInf(b.real)) {
+        if (!truncate && VpGetSign(a.real) * VpGetSign(b.real) < 0) {
+            BDVALUE minus_one = NewZeroWrap(1, BASE_FIG);
+            VpSetOne(minus_one.real);
+            VpSetSign(minus_one.real, -1);
+            RB_GC_GUARD(minus_one.bigdecimal);
+            *div = bdvalue_nullable(minus_one);
+            *mod = bdvalue_nullable(b);
+        } else {
+            VALUE zero = BigDecimal_positive_zero();
+            *div = (NULLABLE_BDVALUE) { zero, DATA_PTR(zero) };
+            *mod = bdvalue_nullable(a);
+        }
         goto Done;
     }
 
@@ -1844,7 +1836,7 @@ BigDecimal_divmod(VALUE self, VALUE r)
     NULLABLE_BDVALUE div, mod;
 
     if (BigDecimal_DoDivmod(self, r, &div, &mod, false)) {
-        return rb_assoc_new(CheckGetValue(bdvalue_nonnullable(div)), CheckGetValue(bdvalue_nonnullable(mod)));
+        return rb_assoc_new(BigDecimal_to_i(CheckGetValue(bdvalue_nonnullable(div))), CheckGetValue(bdvalue_nonnullable(mod)));
     }
     return DoSomeOne(self,r,rb_intern("divmod"));
 }
@@ -2484,7 +2476,7 @@ BigDecimal_decimal_shift(VALUE self, VALUE v)
     prec = a.real->Prec + shiftDown;
     c = NewZeroWrap(1, prec * BASE_FIG);
     if (shift == 0) {
-        VpAsgn(c.real, a.real, 1);
+        VpAsgn(c.real, a.real, 10);
     } else if (shiftDown) {
         DECDIG carry = 0;
         exponentShift++;
@@ -2580,6 +2572,7 @@ check_exception(VALUE bd)
 static VALUE
 rb_uint64_convert_to_BigDecimal(uint64_t uval)
 {
+    NULL_WRAPPED_VALUE null_wrapped = BigDecimal_alloc_empty_struct(rb_cBigDecimal);
     Real *vp;
     if (uval == 0) {
         vp = rbd_allocate_struct(1);
@@ -2621,7 +2614,7 @@ rb_uint64_convert_to_BigDecimal(uint64_t uval)
         MEMCPY(vp->frac, buf + BIGDECIMAL_INT64_MAX_LENGTH - len, DECDIG, len);
     }
 
-    return BigDecimal_wrap_struct(rb_cBigDecimal, vp);
+    return BigDecimal_wrap_struct(null_wrapped, vp);
 }
 
 static VALUE
@@ -2905,12 +2898,13 @@ rb_convert_to_BigDecimal(VALUE val, size_t digs, int raise_exception)
         if (digs == SIZE_MAX)
             return check_exception(val);
 
+        NULL_WRAPPED_VALUE null_wrapped = BigDecimal_alloc_empty_struct(rb_cBigDecimal);
         Real *vp;
         TypedData_Get_Struct(val, Real, &BigDecimal_data_type, vp);
         vp = VpCopy(NULL, vp);
         RB_GC_GUARD(val);
 
-        VALUE copy = BigDecimal_wrap_struct(rb_cBigDecimal, vp);
+        VALUE copy = BigDecimal_wrap_struct(null_wrapped, vp);
         /* TODO: rounding */
         return check_exception(copy);
     }
@@ -3568,7 +3562,6 @@ Init_bigdecimal(void)
     rb_define_const(rb_cBigDecimal, "NAN", BIGDECIMAL_LITERAL(NAN, NaN));
 
     /* instance methods */
-    rb_define_method(rb_cBigDecimal, "precs", BigDecimal_prec, 0);
     rb_define_method(rb_cBigDecimal, "precision", BigDecimal_precision, 0);
     rb_define_method(rb_cBigDecimal, "scale", BigDecimal_scale, 0);
     rb_define_method(rb_cBigDecimal, "precision_scale", BigDecimal_precision_scale, 0);
@@ -6141,7 +6134,7 @@ VpFrac(Real *y, Real *x)
     size_t my, ind_y, ind_x;
 
     if (!VpHasVal(x)) {
-	VpAsgn(y, x, 1);
+	VpAsgn(y, x, 10);
 	goto Exit;
     }
 
@@ -6150,7 +6143,7 @@ VpFrac(Real *y, Real *x)
 	goto Exit;
     }
     else if (x->exponent <= 0) {
-	VpAsgn(y, x, 1);
+	VpAsgn(y, x, 10);
 	goto Exit;
     }
 

data/lib/bigdecimal/jacobian.rb

@@ -2,6 +2,8 @@
 
 require 'bigdecimal'
 
+warn "'bigdecimal/jacobian' is deprecated and will be removed in a future release."
+
 # require 'bigdecimal/jacobian'
 #
 # Provides methods to compute the Jacobian matrix of a set of equations at a

data/lib/bigdecimal/ludcmp.rb

@@ -1,6 +1,8 @@
 # frozen_string_literal: false
 require 'bigdecimal'
 
+warn "'bigdecimal/ludcmp' is deprecated and will be removed in a future release."
+
 #
 # Solves a*x = b for x, using LU decomposition.
 #