debase-ruby_core_source 0.10.18 → 3.2.0

data/lib/debase/ruby_core_source/ruby-3.2.0-preview2/internal/array.h

@@ -1,162 +0,0 @@
-#ifndef INTERNAL_ARRAY_H                                 /*-*-C-*-vi:se ft=c:*/
-#define INTERNAL_ARRAY_H
-/**
- * @author     Ruby developers <ruby-core@ruby-lang.org>
- * @copyright  This  file  is   a  part  of  the   programming  language  Ruby.
- *             Permission  is hereby  granted,  to  either redistribute  and/or
- *             modify this file, provided that  the conditions mentioned in the
- *             file COPYING are met.  Consult the file for details.
- * @brief      Internal header for Array.
- */
-#include "ruby/internal/config.h"
-#include <stddef.h>                 /* for size_t */
-#include "internal/static_assert.h" /* for STATIC_ASSERT */
-#include "ruby/internal/stdbool.h"         /* for bool */
-#include "ruby/ruby.h"              /* for RARRAY_LEN */
-
-#ifndef ARRAY_DEBUG
-# define ARRAY_DEBUG (0+RUBY_DEBUG)
-#endif
-
-#define RARRAY_SHARED_FLAG      ELTS_SHARED
-#define RARRAY_SHARED_ROOT_FLAG FL_USER12
-#define RARRAY_PTR_IN_USE_FLAG  FL_USER14
-
-/* array.c */
-VALUE rb_ary_last(int, const VALUE *, VALUE);
-void rb_ary_set_len(VALUE, long);
-void rb_ary_delete_same(VALUE, VALUE);
-VALUE rb_ary_hidden_new_fill(long capa);
-VALUE rb_ary_at(VALUE, VALUE);
-size_t rb_ary_memsize(VALUE);
-VALUE rb_to_array_type(VALUE obj);
-VALUE rb_to_array(VALUE obj);
-void rb_ary_cancel_sharing(VALUE ary);
-size_t rb_ary_size_as_embedded(VALUE ary);
-void rb_ary_make_embedded(VALUE ary);
-bool rb_ary_embeddable_p(VALUE ary);
-
-static inline VALUE rb_ary_entry_internal(VALUE ary, long offset);
-static inline bool ARY_PTR_USING_P(VALUE ary);
-static inline void RARY_TRANSIENT_SET(VALUE ary);
-static inline void RARY_TRANSIENT_UNSET(VALUE ary);
-
-MJIT_SYMBOL_EXPORT_BEGIN
-VALUE rb_ary_tmp_new_from_values(VALUE, long, const VALUE *);
-VALUE rb_check_to_array(VALUE ary);
-VALUE rb_ary_behead(VALUE, long);
-VALUE rb_ary_aref1(VALUE ary, VALUE i);
-
-struct rb_execution_context_struct;
-VALUE rb_ec_ary_new_from_values(struct rb_execution_context_struct *ec, long n, const VALUE *elts);
-MJIT_SYMBOL_EXPORT_END
-
-// YJIT needs this function to never allocate and never raise
-static inline VALUE
-rb_ary_entry_internal(VALUE ary, long offset)
-{
-    long len = RARRAY_LEN(ary);
-    const VALUE *ptr = RARRAY_CONST_PTR_TRANSIENT(ary);
-    if (len == 0) return Qnil;
-    if (offset < 0) {
-        offset += len;
-        if (offset < 0) return Qnil;
-    }
-    else if (len <= offset) {
-        return Qnil;
-    }
-    return ptr[offset];
-}
-
-static inline bool
-ARY_PTR_USING_P(VALUE ary)
-{
-    return FL_TEST_RAW(ary, RARRAY_PTR_IN_USE_FLAG);
-}
-
-RBIMPL_ATTR_MAYBE_UNUSED()
-static inline int
-ary_should_not_be_shared_and_embedded(VALUE ary)
-{
-    return !FL_ALL_RAW(ary, RARRAY_SHARED_FLAG|RARRAY_EMBED_FLAG);
-}
-
-static inline bool
-ARY_SHARED_P(VALUE ary)
-{
-    assert(RB_TYPE_P(ary, T_ARRAY));
-    assert(ary_should_not_be_shared_and_embedded(ary));
-    return FL_TEST_RAW(ary, RARRAY_SHARED_FLAG);
-}
-
-static inline bool
-ARY_EMBED_P(VALUE ary)
-{
-    assert(RB_TYPE_P(ary, T_ARRAY));
-    assert(ary_should_not_be_shared_and_embedded(ary));
-    return FL_TEST_RAW(ary, RARRAY_EMBED_FLAG);
-}
-
-static inline VALUE
-ARY_SHARED_ROOT(VALUE ary)
-{
-    assert(ARY_SHARED_P(ary));
-    return RARRAY(ary)->as.heap.aux.shared_root;
-}
-
-static inline bool
-ARY_SHARED_ROOT_P(VALUE ary)
-{
-    assert(RB_TYPE_P(ary, T_ARRAY));
-    return FL_TEST_RAW(ary, RARRAY_SHARED_ROOT_FLAG);
-}
-
-static inline long
-ARY_SHARED_ROOT_REFCNT(VALUE ary)
-{
-    assert(ARY_SHARED_ROOT_P(ary));
-    return RARRAY(ary)->as.heap.aux.capa;
-}
-
-static inline void
-RARY_TRANSIENT_SET(VALUE ary)
-{
-#if USE_TRANSIENT_HEAP
-    FL_SET_RAW(ary, RARRAY_TRANSIENT_FLAG);
-#endif
-}
-
-static inline void
-RARY_TRANSIENT_UNSET(VALUE ary)
-{
-#if USE_TRANSIENT_HEAP
-    FL_UNSET_RAW(ary, RARRAY_TRANSIENT_FLAG);
-#endif
-}
-
-#undef rb_ary_new_from_args
-#if RBIMPL_HAS_WARNING("-Wgnu-zero-variadic-macro-arguments")
-# /* Skip it; clang -pedantic doesn't like the following */
-#elif defined(__GNUC__) && defined(HAVE_VA_ARGS_MACRO)
-#define rb_ary_new_from_args(n, ...) \
-    __extension__ ({ \
-        const VALUE args_to_new_ary[] = {__VA_ARGS__}; \
-        if (__builtin_constant_p(n)) { \
-            STATIC_ASSERT(rb_ary_new_from_args, numberof(args_to_new_ary) == (n)); \
-        } \
-        rb_ary_new_from_values(numberof(args_to_new_ary), args_to_new_ary); \
-    })
-#endif
-
-#undef RARRAY_AREF
-RBIMPL_ATTR_PURE_UNLESS_DEBUG()
-RBIMPL_ATTR_ARTIFICIAL()
-static inline VALUE
-RARRAY_AREF(VALUE ary, long i)
-{
-    RBIMPL_ASSERT_TYPE(ary, RUBY_T_ARRAY);
-
-    return RARRAY_CONST_PTR_TRANSIENT(ary)[i];
-}
-
-#endif /* INTERNAL_ARRAY_H */

data/lib/debase/ruby_core_source/ruby-3.2.0-preview2/internal/bignum.h

@@ -1,246 +0,0 @@
-#ifndef INTERNAL_BIGNUM_H                                /*-*-C-*-vi:se ft=c:*/
-#define INTERNAL_BIGNUM_H
-/**
- * @author     Ruby developers <ruby-core@ruby-lang.org>
- * @copyright  This  file  is   a  part  of  the   programming  language  Ruby.
- *             Permission  is hereby  granted,  to  either redistribute  and/or
- *             modify this file, provided that  the conditions mentioned in the
- *             file COPYING are met.  Consult the file for details.
- * @brief      Internal header for Bignums.
- */
-#include "ruby/internal/config.h"      /* for HAVE_LIBGMP */
-#include <stddef.h>             /* for size_t */
-
-#ifdef HAVE_SYS_TYPES_H
-# include <sys/types.h>         /* for ssize_t (note: on Windows ssize_t is */
-#endif                          /* `#define`d in ruby/config.h) */
-
-#include "ruby/internal/stdbool.h"     /* for bool */
-#include "ruby/ruby.h"          /* for struct RBasic */
-
-#ifndef BDIGIT
-# if SIZEOF_INT*2 <= SIZEOF_LONG_LONG
-#  define BDIGIT unsigned int
-#  define SIZEOF_BDIGIT SIZEOF_INT
-#  define BDIGIT_DBL unsigned LONG_LONG
-#  define BDIGIT_DBL_SIGNED LONG_LONG
-#  define PRI_BDIGIT_PREFIX ""
-#  define PRI_BDIGIT_DBL_PREFIX PRI_LL_PREFIX
-# elif SIZEOF_INT*2 <= SIZEOF_LONG
-#  define BDIGIT unsigned int
-#  define SIZEOF_BDIGIT SIZEOF_INT
-#  define BDIGIT_DBL unsigned long
-#  define BDIGIT_DBL_SIGNED long
-#  define PRI_BDIGIT_PREFIX ""
-#  define PRI_BDIGIT_DBL_PREFIX "l"
-# elif SIZEOF_SHORT*2 <= SIZEOF_LONG
-#  define BDIGIT unsigned short
-#  define SIZEOF_BDIGIT SIZEOF_SHORT
-#  define BDIGIT_DBL unsigned long
-#  define BDIGIT_DBL_SIGNED long
-#  define PRI_BDIGIT_PREFIX "h"
-#  define PRI_BDIGIT_DBL_PREFIX "l"
-# else
-#  define BDIGIT unsigned short
-#  define SIZEOF_BDIGIT (SIZEOF_LONG/2)
-#  define SIZEOF_ACTUAL_BDIGIT SIZEOF_LONG
-#  define BDIGIT_DBL unsigned long
-#  define BDIGIT_DBL_SIGNED long
-#  define PRI_BDIGIT_PREFIX "h"
-#  define PRI_BDIGIT_DBL_PREFIX "l"
-# endif
-#endif
-
-#ifndef SIZEOF_ACTUAL_BDIGIT
-# define SIZEOF_ACTUAL_BDIGIT SIZEOF_BDIGIT
-#endif
-
-#ifdef PRI_BDIGIT_PREFIX
-# define PRIdBDIGIT PRI_BDIGIT_PREFIX"d"
-# define PRIiBDIGIT PRI_BDIGIT_PREFIX"i"
-# define PRIoBDIGIT PRI_BDIGIT_PREFIX"o"
-# define PRIuBDIGIT PRI_BDIGIT_PREFIX"u"
-# define PRIxBDIGIT PRI_BDIGIT_PREFIX"x"
-# define PRIXBDIGIT PRI_BDIGIT_PREFIX"X"
-#endif
-
-#ifdef PRI_BDIGIT_DBL_PREFIX
-# define PRIdBDIGIT_DBL PRI_BDIGIT_DBL_PREFIX"d"
-# define PRIiBDIGIT_DBL PRI_BDIGIT_DBL_PREFIX"i"
-# define PRIoBDIGIT_DBL PRI_BDIGIT_DBL_PREFIX"o"
-# define PRIuBDIGIT_DBL PRI_BDIGIT_DBL_PREFIX"u"
-# define PRIxBDIGIT_DBL PRI_BDIGIT_DBL_PREFIX"x"
-# define PRIXBDIGIT_DBL PRI_BDIGIT_DBL_PREFIX"X"
-#endif
-
-#define RBIGNUM(obj) ((struct RBignum *)(obj))
-#define BIGNUM_SIGN_BIT FL_USER1
-#define BIGNUM_EMBED_FLAG ((VALUE)FL_USER2)
-#define BIGNUM_EMBED_LEN_NUMBITS 3
-#define BIGNUM_EMBED_LEN_MASK \
-    (~(~(VALUE)0U << BIGNUM_EMBED_LEN_NUMBITS) << BIGNUM_EMBED_LEN_SHIFT)
-#define BIGNUM_EMBED_LEN_SHIFT \
-    (FL_USHIFT+3) /* bit offset of BIGNUM_EMBED_LEN_MASK */
-#ifndef BIGNUM_EMBED_LEN_MAX
-# if (SIZEOF_VALUE*RBIMPL_RVALUE_EMBED_LEN_MAX/SIZEOF_ACTUAL_BDIGIT) < (1 << BIGNUM_EMBED_LEN_NUMBITS)-1
-#  define BIGNUM_EMBED_LEN_MAX (SIZEOF_VALUE*RBIMPL_RVALUE_EMBED_LEN_MAX/SIZEOF_ACTUAL_BDIGIT)
-# else
-#  define BIGNUM_EMBED_LEN_MAX ((1 << BIGNUM_EMBED_LEN_NUMBITS)-1)
-# endif
-#endif
-
-enum rb_int_parse_flags {
-    RB_INT_PARSE_SIGN       = 0x01,
-    RB_INT_PARSE_UNDERSCORE = 0x02,
-    RB_INT_PARSE_PREFIX     = 0x04,
-    RB_INT_PARSE_ALL        = 0x07,
-    RB_INT_PARSE_DEFAULT    = 0x07,
-};
-
-struct RBignum {
-    struct RBasic basic;
-    union {
-        struct {
-            size_t len;
-            BDIGIT *digits;
-        } heap;
-        BDIGIT ary[BIGNUM_EMBED_LEN_MAX];
-    } as;
-};
-
-/* bignum.c */
-extern const char ruby_digitmap[];
-double rb_big_fdiv_double(VALUE x, VALUE y);
-VALUE rb_big_uminus(VALUE x);
-VALUE rb_big_hash(VALUE);
-VALUE rb_big_odd_p(VALUE);
-VALUE rb_big_even_p(VALUE);
-size_t rb_big_size(VALUE);
-VALUE rb_integer_float_cmp(VALUE x, VALUE y);
-VALUE rb_integer_float_eq(VALUE x, VALUE y);
-VALUE rb_str_convert_to_inum(VALUE str, int base, int badcheck, int raise_exception);
-VALUE rb_big_comp(VALUE x);
-VALUE rb_big_aref(VALUE x, VALUE y);
-VALUE rb_big_abs(VALUE x);
-VALUE rb_big_size_m(VALUE big);
-VALUE rb_big_bit_length(VALUE big);
-VALUE rb_big_remainder(VALUE x, VALUE y);
-VALUE rb_big_gt(VALUE x, VALUE y);
-VALUE rb_big_ge(VALUE x, VALUE y);
-VALUE rb_big_lt(VALUE x, VALUE y);
-VALUE rb_big_le(VALUE x, VALUE y);
-VALUE rb_int_powm(int const argc, VALUE * const argv, VALUE const num);
-VALUE rb_big_isqrt(VALUE n);
-static inline bool BIGNUM_SIGN(VALUE b);
-static inline bool BIGNUM_POSITIVE_P(VALUE b);
-static inline bool BIGNUM_NEGATIVE_P(VALUE b);
-static inline void BIGNUM_SET_SIGN(VALUE b, bool sign);
-static inline void BIGNUM_NEGATE(VALUE b);
-static inline size_t BIGNUM_LEN(VALUE b);
-static inline BDIGIT *BIGNUM_DIGITS(VALUE b);
-static inline int BIGNUM_LENINT(VALUE b);
-static inline bool BIGNUM_EMBED_P(VALUE b);
-
-RUBY_SYMBOL_EXPORT_BEGIN
-/* bignum.c (export) */
-VALUE rb_big_mul_normal(VALUE x, VALUE y);
-VALUE rb_big_mul_balance(VALUE x, VALUE y);
-VALUE rb_big_mul_karatsuba(VALUE x, VALUE y);
-VALUE rb_big_mul_toom3(VALUE x, VALUE y);
-VALUE rb_big_sq_fast(VALUE x);
-VALUE rb_big_divrem_normal(VALUE x, VALUE y);
-VALUE rb_big2str_poweroftwo(VALUE x, int base);
-VALUE rb_big2str_generic(VALUE x, int base);
-VALUE rb_str2big_poweroftwo(VALUE arg, int base, int badcheck);
-VALUE rb_str2big_normal(VALUE arg, int base, int badcheck);
-VALUE rb_str2big_karatsuba(VALUE arg, int base, int badcheck);
-#if defined(HAVE_LIBGMP) && defined(HAVE_GMP_H)
-VALUE rb_big_mul_gmp(VALUE x, VALUE y);
-VALUE rb_big_divrem_gmp(VALUE x, VALUE y);
-VALUE rb_big2str_gmp(VALUE x, int base);
-VALUE rb_str2big_gmp(VALUE arg, int base, int badcheck);
-#endif
-VALUE rb_int_parse_cstr(const char *str, ssize_t len, char **endp, size_t *ndigits, int base, int flags);
-RUBY_SYMBOL_EXPORT_END
-
-MJIT_SYMBOL_EXPORT_BEGIN
-#if defined(HAVE_INT128_T)
-VALUE rb_int128t2big(int128_t n);
-#endif
-MJIT_SYMBOL_EXPORT_END
-
-/* sign: positive:1, negative:0 */
-static inline bool
-BIGNUM_SIGN(VALUE b)
-{
-    return FL_TEST_RAW(b, BIGNUM_SIGN_BIT);
-}
-
-static inline bool
-BIGNUM_POSITIVE_P(VALUE b)
-{
-    return BIGNUM_SIGN(b);
-}
-
-static inline bool
-BIGNUM_NEGATIVE_P(VALUE b)
-{
-    return ! BIGNUM_POSITIVE_P(b);
-}
-
-static inline void
-BIGNUM_SET_SIGN(VALUE b, bool sign)
-{
-    if (sign) {
-        FL_SET_RAW(b, BIGNUM_SIGN_BIT);
-    }
-    else {
-        FL_UNSET_RAW(b, BIGNUM_SIGN_BIT);
-    }
-}
-
-static inline void
-BIGNUM_NEGATE(VALUE b)
-{
-    FL_REVERSE_RAW(b, BIGNUM_SIGN_BIT);
-}
-
-static inline size_t
-BIGNUM_LEN(VALUE b)
-{
-    if (! BIGNUM_EMBED_P(b)) {
-        return RBIGNUM(b)->as.heap.len;
-    }
-    else {
-        size_t ret = RBASIC(b)->flags;
-        ret &= BIGNUM_EMBED_LEN_MASK;
-        ret >>= BIGNUM_EMBED_LEN_SHIFT;
-        return ret;
-    }
-}
-
-static inline int
-BIGNUM_LENINT(VALUE b)
-{
-    return rb_long2int(BIGNUM_LEN(b));
-}
-
-/* LSB:BIGNUM_DIGITS(b)[0], MSB:BIGNUM_DIGITS(b)[BIGNUM_LEN(b)-1] */
-static inline BDIGIT *
-BIGNUM_DIGITS(VALUE b)
-{
-    if (BIGNUM_EMBED_P(b)) {
-        return RBIGNUM(b)->as.ary;
-    }
-    else {
-        return RBIGNUM(b)->as.heap.digits;
-    }
-}
-
-static inline bool
-BIGNUM_EMBED_P(VALUE b)
-{
-    return FL_TEST_RAW(b, BIGNUM_EMBED_FLAG);
-}
-
-#endif /* INTERNAL_BIGNUM_H */