debase-ruby_core_source 3.3.6 → 3.4.0

data/lib/debase/ruby_core_source/ruby-3.4.0-preview1/internal/class.h

@@ -1,283 +0,0 @@
-#ifndef INTERNAL_CLASS_H                                 /*-*-C-*-vi:se ft=c:*/
-#define INTERNAL_CLASS_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 Class.
- */
-#include "id.h"
-#include "id_table.h"           /* for struct rb_id_table */
-#include "internal/serial.h"    /* for rb_serial_t */
-#include "internal/static_assert.h"
-#include "internal/variable.h"  /* for rb_class_ivar_set */
-#include "ruby/internal/stdbool.h"     /* for bool */
-#include "ruby/intern.h"        /* for rb_alloc_func_t */
-#include "ruby/ruby.h"          /* for struct RBasic */
-#include "shape.h"
-#include "ruby_assert.h"
-#include "vm_core.h"
-#include "vm_sync.h"
-#include "method.h"             /* for rb_cref_t */
-
-#ifdef RCLASS_SUPER
-# undef RCLASS_SUPER
-#endif
-
-struct rb_subclass_entry {
-    VALUE klass;
-    struct rb_subclass_entry *next;
-    struct rb_subclass_entry *prev;
-};
-typedef struct rb_subclass_entry rb_subclass_entry_t;
-
-struct rb_cvar_class_tbl_entry {
-    uint32_t index;
-    rb_serial_t global_cvar_state;
-    const rb_cref_t * cref;
-    VALUE class_value;
-};
-
-struct rb_classext_struct {
-    VALUE *iv_ptr;
-    struct rb_id_table *const_tbl;
-    struct rb_id_table *callable_m_tbl;
-    struct rb_id_table *cc_tbl; /* ID -> [[ci1, cc1], [ci2, cc2] ...] */
-    struct rb_id_table *cvc_tbl;
-    size_t superclass_depth;
-    VALUE *superclasses;
-    struct rb_subclass_entry *subclasses;
-    struct rb_subclass_entry *subclass_entry;
-    /**
-     * In the case that this is an `ICLASS`, `module_subclasses` points to the link
-     * in the module's `subclasses` list that indicates that the klass has been
-     * included. Hopefully that makes sense.
-     */
-    struct rb_subclass_entry *module_subclass_entry;
-    const VALUE origin_;
-    const VALUE refined_class;
-    union {
-        struct {
-            rb_alloc_func_t allocator;
-        } class;
-        struct {
-            VALUE attached_object;
-        } singleton_class;
-    } as;
-    const VALUE includer;
-    attr_index_t max_iv_count;
-    unsigned char variation_count;
-    bool permanent_classpath : 1;
-    bool cloned : 1;
-    VALUE classpath;
-};
-typedef struct rb_classext_struct rb_classext_t;
-
-STATIC_ASSERT(shape_max_variations, SHAPE_MAX_VARIATIONS < (1 << (sizeof(((rb_classext_t *)0)->variation_count) * CHAR_BIT)));
-
-struct RClass {
-    struct RBasic basic;
-    VALUE super;
-    struct rb_id_table *m_tbl;
-};
-
-// Assert that classes can be embedded in size_pools[2] (which has 160B slot size)
-STATIC_ASSERT(sizeof_rb_classext_t, sizeof(struct RClass) + sizeof(rb_classext_t) <= 4 * RVALUE_SIZE);
-
-struct RClass_and_rb_classext_t {
-    struct RClass rclass;
-    rb_classext_t classext;
-};
-
-#define RCLASS_EXT(c) (&((struct RClass_and_rb_classext_t*)(c))->classext)
-#define RCLASS_CONST_TBL(c) (RCLASS_EXT(c)->const_tbl)
-#define RCLASS_M_TBL(c) (RCLASS(c)->m_tbl)
-#define RCLASS_IVPTR(c) (RCLASS_EXT(c)->iv_ptr)
-#define RCLASS_CALLABLE_M_TBL(c) (RCLASS_EXT(c)->callable_m_tbl)
-#define RCLASS_CC_TBL(c) (RCLASS_EXT(c)->cc_tbl)
-#define RCLASS_CVC_TBL(c) (RCLASS_EXT(c)->cvc_tbl)
-#define RCLASS_ORIGIN(c) (RCLASS_EXT(c)->origin_)
-#define RCLASS_REFINED_CLASS(c) (RCLASS_EXT(c)->refined_class)
-#define RCLASS_INCLUDER(c) (RCLASS_EXT(c)->includer)
-#define RCLASS_SUBCLASS_ENTRY(c) (RCLASS_EXT(c)->subclass_entry)
-#define RCLASS_MODULE_SUBCLASS_ENTRY(c) (RCLASS_EXT(c)->module_subclass_entry)
-#define RCLASS_SUBCLASSES(c) (RCLASS_EXT(c)->subclasses)
-#define RCLASS_SUPERCLASS_DEPTH(c) (RCLASS_EXT(c)->superclass_depth)
-#define RCLASS_SUPERCLASSES(c) (RCLASS_EXT(c)->superclasses)
-#define RCLASS_ATTACHED_OBJECT(c) (RCLASS_EXT(c)->as.singleton_class.attached_object)
-
-#define RCLASS_IS_ROOT FL_USER0
-#define RICLASS_IS_ORIGIN FL_USER0
-#define RCLASS_SUPERCLASSES_INCLUDE_SELF FL_USER2
-#define RICLASS_ORIGIN_SHARED_MTBL FL_USER3
-
-static inline st_table *
-RCLASS_IV_HASH(VALUE obj)
-{
-    RUBY_ASSERT(RB_TYPE_P(obj, RUBY_T_CLASS) || RB_TYPE_P(obj, RUBY_T_MODULE));
-    RUBY_ASSERT(rb_shape_obj_too_complex(obj));
-    return (st_table *)RCLASS_IVPTR(obj);
-}
-
-static inline void
-RCLASS_SET_IV_HASH(VALUE obj, const st_table *tbl)
-{
-    RUBY_ASSERT(RB_TYPE_P(obj, RUBY_T_CLASS) || RB_TYPE_P(obj, RUBY_T_MODULE));
-    RUBY_ASSERT(rb_shape_obj_too_complex(obj));
-    RCLASS_IVPTR(obj) = (VALUE *)tbl;
-}
-
-static inline uint32_t
-RCLASS_IV_COUNT(VALUE obj)
-{
-    RUBY_ASSERT(RB_TYPE_P(obj, RUBY_T_CLASS) || RB_TYPE_P(obj, RUBY_T_MODULE));
-    if (rb_shape_obj_too_complex(obj)) {
-        uint32_t count;
-
-        // "Too complex" classes could have their IV hash mutated in
-        // parallel, so lets lock around getting the hash size.
-        RB_VM_LOCK_ENTER();
-        {
-            count = (uint32_t)rb_st_table_size(RCLASS_IV_HASH(obj));
-        }
-        RB_VM_LOCK_LEAVE();
-
-        return count;
-    }
-    else {
-        return rb_shape_get_shape_by_id(RCLASS_SHAPE_ID(obj))->next_iv_index;
-    }
-}
-
-static inline void
-RCLASS_SET_M_TBL(VALUE klass, struct rb_id_table *table)
-{
-    RUBY_ASSERT(!RB_OBJ_PROMOTED(klass));
-    RCLASS_M_TBL(klass) = table;
-}
-
-/* class.c */
-void rb_class_subclass_add(VALUE super, VALUE klass);
-void rb_class_remove_from_super_subclasses(VALUE);
-void rb_class_update_superclasses(VALUE);
-size_t rb_class_superclasses_memsize(VALUE);
-void rb_class_remove_subclass_head(VALUE);
-int rb_singleton_class_internal_p(VALUE sklass);
-VALUE rb_class_boot(VALUE);
-VALUE rb_class_s_alloc(VALUE klass);
-VALUE rb_module_s_alloc(VALUE klass);
-void rb_module_set_initialized(VALUE module);
-void rb_module_check_initializable(VALUE module);
-VALUE rb_make_metaclass(VALUE, VALUE);
-VALUE rb_include_class_new(VALUE, VALUE);
-void rb_class_foreach_subclass(VALUE klass, void (*f)(VALUE, VALUE), VALUE);
-void rb_class_detach_subclasses(VALUE);
-void rb_class_detach_module_subclasses(VALUE);
-void rb_class_remove_from_module_subclasses(VALUE);
-VALUE rb_define_class_id_under_no_pin(VALUE outer, ID id, VALUE super);
-VALUE rb_obj_methods(int argc, const VALUE *argv, VALUE obj);
-VALUE rb_obj_protected_methods(int argc, const VALUE *argv, VALUE obj);
-VALUE rb_obj_private_methods(int argc, const VALUE *argv, VALUE obj);
-VALUE rb_obj_public_methods(int argc, const VALUE *argv, VALUE obj);
-VALUE rb_class_undefined_instance_methods(VALUE mod);
-VALUE rb_special_singleton_class(VALUE);
-VALUE rb_singleton_class_clone_and_attach(VALUE obj, VALUE attach);
-VALUE rb_singleton_class_get(VALUE obj);
-void rb_undef_methods_from(VALUE klass, VALUE super);
-
-static inline void RCLASS_SET_ORIGIN(VALUE klass, VALUE origin);
-static inline void RICLASS_SET_ORIGIN_SHARED_MTBL(VALUE iclass);
-static inline VALUE RCLASS_SUPER(VALUE klass);
-static inline VALUE RCLASS_SET_SUPER(VALUE klass, VALUE super);
-static inline void RCLASS_SET_INCLUDER(VALUE iclass, VALUE klass);
-
-VALUE rb_class_inherited(VALUE, VALUE);
-VALUE rb_keyword_error_new(const char *, VALUE);
-
-static inline bool
-RCLASS_SINGLETON_P(VALUE klass)
-{
-    return RB_TYPE_P(klass, T_CLASS) && FL_TEST_RAW(klass, FL_SINGLETON);
-}
-
-static inline rb_alloc_func_t
-RCLASS_ALLOCATOR(VALUE klass)
-{
-    if (RCLASS_SINGLETON_P(klass)) {
-        return 0;
-    }
-    return RCLASS_EXT(klass)->as.class.allocator;
-}
-
-static inline void
-RCLASS_SET_ALLOCATOR(VALUE klass, rb_alloc_func_t allocator)
-{
-    assert(!RCLASS_SINGLETON_P(klass));
-    RCLASS_EXT(klass)->as.class.allocator = allocator;
-}
-
-static inline void
-RCLASS_SET_ORIGIN(VALUE klass, VALUE origin)
-{
-    RB_OBJ_WRITE(klass, &RCLASS_ORIGIN(klass), origin);
-    if (klass != origin) FL_SET(origin, RICLASS_IS_ORIGIN);
-}
-
-static inline void
-RICLASS_SET_ORIGIN_SHARED_MTBL(VALUE iclass)
-{
-    FL_SET(iclass, RICLASS_ORIGIN_SHARED_MTBL);
-}
-
-static inline bool
-RICLASS_OWNS_M_TBL_P(VALUE iclass)
-{
-    return FL_TEST_RAW(iclass, RICLASS_IS_ORIGIN | RICLASS_ORIGIN_SHARED_MTBL) == RICLASS_IS_ORIGIN;
-}
-
-static inline void
-RCLASS_SET_INCLUDER(VALUE iclass, VALUE klass)
-{
-    RB_OBJ_WRITE(iclass, &RCLASS_INCLUDER(iclass), klass);
-}
-
-static inline VALUE
-RCLASS_SUPER(VALUE klass)
-{
-    return RCLASS(klass)->super;
-}
-
-static inline VALUE
-RCLASS_SET_SUPER(VALUE klass, VALUE super)
-{
-    if (super) {
-        rb_class_remove_from_super_subclasses(klass);
-        rb_class_subclass_add(super, klass);
-    }
-    RB_OBJ_WRITE(klass, &RCLASS(klass)->super, super);
-    rb_class_update_superclasses(klass);
-    return super;
-}
-
-static inline void
-RCLASS_SET_CLASSPATH(VALUE klass, VALUE classpath, bool permanent)
-{
-    assert(BUILTIN_TYPE(klass) == T_CLASS || BUILTIN_TYPE(klass) == T_MODULE);
-    assert(classpath == 0 || BUILTIN_TYPE(classpath) == T_STRING);
-
-    RB_OBJ_WRITE(klass, &(RCLASS_EXT(klass)->classpath), classpath);
-    RCLASS_EXT(klass)->permanent_classpath = permanent;
-}
-
-static inline VALUE
-RCLASS_SET_ATTACHED_OBJECT(VALUE klass, VALUE attached_object)
-{
-    assert(RCLASS_SINGLETON_P(klass));
-
-    RB_OBJ_WRITE(klass, &RCLASS_EXT(klass)->as.singleton_class.attached_object, attached_object);
-    return attached_object;
-}
-
-#endif /* INTERNAL_CLASS_H */

data/lib/debase/ruby_core_source/ruby-3.4.0-preview1/internal/error.h

@@ -1,216 +0,0 @@
-#ifndef INTERNAL_ERROR_H                                 /*-*-C-*-vi:se ft=c:*/
-#define INTERNAL_ERROR_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 Exception.
- */
-#include "ruby/internal/config.h"
-#include <stdarg.h>             /* for va_list */
-#include "internal/string.h"    /* for rb_fstring_cstr */
-#include "ruby/internal/stdbool.h"     /* for bool */
-#include "ruby/encoding.h"      /* for rb_encoding */
-#include "ruby/intern.h"        /* for rb_exc_raise */
-#include "ruby/ruby.h"          /* for enum ruby_value_type */
-
-#ifdef Check_Type
-# undef Check_Type               /* in ruby/ruby.h */
-#endif
-
-#ifdef rb_raise_static
-# undef rb_raise_static
-# undef rb_sys_fail_path
-# undef rb_syserr_fail_path
-#endif
-
-#define rb_raise_static(e, m) \
-    rb_raise_cstr_i((e), rb_str_new_static((m), rb_strlen_lit(m)))
-#ifdef RUBY_FUNCTION_NAME_STRING
-# define rb_syserr_fail_path(err, path) rb_syserr_fail_path_in(RUBY_FUNCTION_NAME_STRING, (err), (path))
-# define rb_syserr_new_path(err, path) rb_syserr_new_path_in(RUBY_FUNCTION_NAME_STRING, (err), (path))
-#else
-# define rb_syserr_fail_path(err, path) rb_syserr_fail_str((err), (path))
-# define rb_syserr_new_path(err, path) rb_syserr_new_str((err), (path))
-#endif
-
-#define rb_sys_fail(mesg) \
-do { \
-    int errno_to_fail = errno; \
-    rb_syserr_fail(errno_to_fail, (mesg)); \
-} while (0)
-
-#define rb_sys_fail_str(mesg) \
-do { \
-    int errno_to_fail = errno; \
-    rb_syserr_fail_str(errno_to_fail, (mesg)); \
-} while (0)
-
-#define rb_sys_fail_path(path) \
-do { \
-    int errno_to_fail = errno; \
-    rb_syserr_fail_path(errno_to_fail, (path)); \
-} while (0)
-
-#define rb_sys_fail_sprintf(...) \
-do { \
-    int errno_to_fail = errno; \
-    rb_syserr_fail_str(errno_to_fail, rb_sprintf("" __VA_ARGS__)); \
-} while (0)
-
-/* error.c */
-extern long rb_backtrace_length_limit;
-extern VALUE rb_eEAGAIN;
-extern VALUE rb_eEWOULDBLOCK;
-extern VALUE rb_eEINPROGRESS;
-RBIMPL_ATTR_FORMAT(RBIMPL_PRINTF_FORMAT, 3, 0)
-void rb_report_bug_valist(VALUE file, int line, const char *fmt, va_list args);
-NORETURN(void rb_async_bug_errno(const char *,int));
-const char *rb_builtin_type_name(int t);
-const char *rb_builtin_class_name(VALUE x);
-PRINTF_ARGS(void rb_warn_deprecated(const char *fmt, const char *suggest, ...), 1, 3);
-PRINTF_ARGS(void rb_warn_deprecated_to_remove(const char *removal, const char *fmt, const char *suggest, ...), 2, 4);
-#if RUBY_DEBUG
-# include "ruby/version.h"
-# define RUBY_VERSION_SINCE(major, minor) (RUBY_API_VERSION_CODE >= (major * 10000) + (minor) * 100)
-# define RUBY_VERSION_BEFORE(major, minor) (RUBY_API_VERSION_CODE < (major * 10000) + (minor) * 100)
-# if defined(RBIMPL_WARNING_PRAGMA0)
-#   define RBIMPL_TODO0(x) RBIMPL_WARNING_PRAGMA0(message(x))
-# elif RBIMPL_COMPILER_SINCE(MSVC, 12, 0, 0)
-#   define RBIMPL_TODO0(x) __pragma(message(x))
-# endif
-
-# if RBIMPL_HAS_ATTRIBUTE(diagnose_if) || defined(__OPTIMIZE__)
-
-#define RUBY_VERSION_isdigit(c) ('0'<=(c)&&(c)<='9')
-// upto 99
-#define RUBY_VERSION__number_len(v, ofs) \
-    (!RUBY_VERSION_isdigit((v)[ofs]) ? \
-     0 : !RUBY_VERSION_isdigit((v)[(ofs) + 1]) ? 1 : 2)
-#define RUBY_VERSION__to_number(v, ofs) \
-    (!RUBY_VERSION_isdigit((v)[ofs]) ? \
-     0 : !RUBY_VERSION_isdigit((v)[(ofs) + 1]) ? \
-     ((v)[ofs]-'0') : \
-     (((v)[ofs]-'0')*10+(v)[(ofs)+1]-'0'))
-
-#define RUBY_VERSION_CODE_FROM_MAJOR_MINOR_STRING(v) \
-    (RUBY_VERSION__to_number(v, 0) * 10000 + \
-     ((v)[RUBY_VERSION__number_len(v, 0)] == '.' ? \
-      RUBY_VERSION__to_number(v, RUBY_VERSION__number_len(v, 0)+1) * 100 : 0))
-#define RUBY_VERSION_STRING_SINCE(v) (RUBY_API_VERSION_CODE >= RUBY_VERSION_CODE_FROM_MAJOR_MINOR_STRING(v))
-#define RUBY_VERSION_STRING_BEFORE(v) (RUBY_API_VERSION_CODE < RUBY_VERSION_CODE_FROM_MAJOR_MINOR_STRING(v))
-
-# if RBIMPL_HAS_ATTRIBUTE(diagnose_if)
-RBIMPL_ATTR_FORCEINLINE()
-static void
-rb_deprecated_method_to_be_removed(const char *removal)
-    RBIMPL_ATTR_DIAGNOSE_IF(!RUBY_VERSION_isdigit(removal[0]), "malformed version number", "error")
-    RBIMPL_ATTR_DIAGNOSE_IF(RUBY_VERSION_STRING_SINCE(removal), "deprecated method to be removed", "error")
-{
-}
-# else
-RBIMPL_ATTR_ERROR(("deprecated"))
-void rb_deprecated_method_to_be_removed(const char *);
-#   define rb_deprecated_method_to_be_removed(removal) \
-    (sizeof(char[1-2*(!RUBY_VERSION_isdigit(removal[0]) || RUBY_VERSION_STRING_SINCE(removal))])!=1 ? \
-     rb_deprecated_method_to_be_removed(removal) : \
-     RBIMPL_ASSERT_NOTHING)
-# endif
-# define rb_warn_deprecated_to_remove_at(removal, ...) \
-    (rb_deprecated_method_to_be_removed(#removal), \
-     rb_warn_deprecated_to_remove(#removal, __VA_ARGS__))
-# endif
-#endif
-#ifndef rb_warn_deprecated_to_remove_at
-# define rb_warn_deprecated_to_remove_at(removal, ...) \
-        rb_warn_deprecated_to_remove(#removal, __VA_ARGS__)
-#endif
-#ifndef RUBY_VERSION_SINCE
-# define RUBY_VERSION_SINCE(major, minor) 0
-#endif
-#ifndef RUBY_VERSION_BEFORE
-# define RUBY_VERSION_BEFORE(major, minor) 0
-#endif
-#ifndef RBIMPL_TODO0
-# define RBIMPL_TODO0(x)
-#endif
-#define RBIMPL_TODO(message) RBIMPL_TODO0("TODO: " message)
-RBIMPL_ATTR_FORMAT(RBIMPL_PRINTF_FORMAT, 6, 0)
-VALUE rb_syntax_error_append(VALUE, VALUE, int, int, rb_encoding*, const char*, va_list);
-PRINTF_ARGS(void rb_enc_warn(rb_encoding *enc, const char *fmt, ...), 2, 3);
-PRINTF_ARGS(void rb_sys_enc_warning(rb_encoding *enc, const char *fmt, ...), 2, 3);
-PRINTF_ARGS(void rb_syserr_enc_warning(int err, rb_encoding *enc, const char *fmt, ...), 3, 4);
-rb_warning_category_t rb_warning_category_from_name(VALUE category);
-bool rb_warning_category_enabled_p(rb_warning_category_t category);
-VALUE rb_name_err_new(VALUE mesg, VALUE recv, VALUE method);
-VALUE rb_nomethod_err_new(VALUE mesg, VALUE recv, VALUE method, VALUE args, int priv);
-VALUE rb_key_err_new(VALUE mesg, VALUE recv, VALUE name);
-PRINTF_ARGS(VALUE rb_warning_string(const char *fmt, ...), 1, 2);
-RBIMPL_ATTR_FORMAT(RBIMPL_PRINTF_FORMAT, 2, 0)
-NORETURN(void rb_vraise(VALUE, const char *, va_list));
-NORETURN(static inline void rb_raise_cstr(VALUE etype, const char *mesg));
-NORETURN(static inline void rb_raise_cstr_i(VALUE etype, VALUE mesg));
-NORETURN(static inline void rb_name_err_raise_str(VALUE mesg, VALUE recv, VALUE name));
-NORETURN(static inline void rb_name_err_raise(const char *mesg, VALUE recv, VALUE name));
-NORETURN(static inline void rb_key_err_raise(VALUE mesg, VALUE recv, VALUE name));
-static inline void Check_Type(VALUE v, enum ruby_value_type t);
-static inline bool rb_typeddata_is_instance_of_inline(VALUE obj, const rb_data_type_t *data_type);
-#define rb_typeddata_is_instance_of rb_typeddata_is_instance_of_inline
-
-RUBY_SYMBOL_EXPORT_BEGIN
-/* error.c (export) */
-int rb_bug_reporter_add(void (*func)(FILE *, void *), void *data);
-#ifdef RUBY_FUNCTION_NAME_STRING
-NORETURN(void rb_sys_fail_path_in(const char *func_name, VALUE path));
-NORETURN(void rb_syserr_fail_path_in(const char *func_name, int err, VALUE path));
-VALUE rb_syserr_new_path_in(const char *func_name, int n, VALUE path);
-#endif
-RUBY_SYMBOL_EXPORT_END
-
-/* vm.c */
-void rb_free_warning(void);
-
-static inline void
-rb_raise_cstr_i(VALUE etype, VALUE mesg)
-{
-    VALUE exc = rb_exc_new_str(etype, mesg);
-    rb_exc_raise(exc);
-}
-
-static inline void
-rb_raise_cstr(VALUE etype, const char *mesg)
-{
-    VALUE str = rb_str_new_cstr(mesg);
-    rb_raise_cstr_i(etype, str);
-}
-
-static inline void
-rb_name_err_raise_str(VALUE mesg, VALUE recv, VALUE name)
-{
-    VALUE exc = rb_name_err_new(mesg, recv, name);
-    rb_exc_raise(exc);
-}
-
-static inline void
-rb_name_err_raise(const char *mesg, VALUE recv, VALUE name)
-{
-    VALUE str = rb_fstring_cstr(mesg);
-    rb_name_err_raise_str(str, recv, name);
-}
-
-static inline void
-rb_key_err_raise(VALUE mesg, VALUE recv, VALUE name)
-{
-    VALUE exc = rb_key_err_new(mesg, recv, name);
-    rb_exc_raise(exc);
-}
-
-static inline bool
-rb_typeddata_is_instance_of_inline(VALUE obj, const rb_data_type_t *data_type)
-{
-    return RB_TYPE_P(obj, T_DATA) && RTYPEDDATA_P(obj) && (RTYPEDDATA_TYPE(obj) == data_type);
-}
-
-#endif /* INTERNAL_ERROR_H */

data/lib/debase/ruby_core_source/ruby-3.4.0-preview1/internal/fixnum.h

@@ -1,184 +0,0 @@
-#ifndef INTERNAL_FIXNUM_H                                /*-*-C-*-vi:se ft=c:*/
-#define INTERNAL_FIXNUM_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 Fixnums.
- */
-#include "ruby/internal/config.h"      /* for HAVE_LONG_LONG */
-#include <limits.h>             /* for CHAR_BIT */
-#include "internal/compilers.h" /* for __has_builtin */
-#include "ruby/internal/stdbool.h"     /* for bool */
-#include "ruby/intern.h"        /* for rb_big_mul */
-#include "ruby/ruby.h"          /* for RB_FIXABLE */
-
-#if HAVE_LONG_LONG && SIZEOF_LONG * 2 <= SIZEOF_LONG_LONG
-# define DLONG LONG_LONG
-# define DL2NUM(x) LL2NUM(x)
-#elif defined(HAVE_INT128_T) && !(defined(__OpenBSD__) && defined(__mips64__))
-# define DLONG int128_t
-# define DL2NUM(x) (RB_FIXABLE(x) ? LONG2FIX(x) : rb_int128t2big(x))
-VALUE rb_int128t2big(int128_t n); /* in bignum.c */
-#endif
-
-static inline long rb_overflowed_fix_to_int(long x);
-static inline VALUE rb_fix_plus_fix(VALUE x, VALUE y);
-static inline VALUE rb_fix_minus_fix(VALUE x, VALUE y);
-static inline VALUE rb_fix_mul_fix(VALUE x, VALUE y);
-static inline void rb_fix_divmod_fix(VALUE x, VALUE y, VALUE *divp, VALUE *modp);
-static inline VALUE rb_fix_div_fix(VALUE x, VALUE y);
-static inline VALUE rb_fix_mod_fix(VALUE x, VALUE y);
-static inline bool FIXNUM_POSITIVE_P(VALUE num);
-static inline bool FIXNUM_NEGATIVE_P(VALUE num);
-static inline bool FIXNUM_ZERO_P(VALUE num);
-
-static inline long
-rb_overflowed_fix_to_int(long x)
-{
-    return (long)((unsigned long)(x >> 1) ^ (1LU << (SIZEOF_LONG * CHAR_BIT - 1)));
-}
-
-static inline VALUE
-rb_fix_plus_fix(VALUE x, VALUE y)
-{
-#if !__has_builtin(__builtin_add_overflow)
-    long lz = FIX2LONG(x) + FIX2LONG(y);
-    return LONG2NUM(lz);
-#else
-    long lz;
-    /* NOTE
-     * (1) `LONG2FIX(FIX2LONG(x)+FIX2LONG(y))`
-     +     = `((lx*2+1)/2 + (ly*2+1)/2)*2+1`
-     +     = `lx*2 + ly*2 + 1`
-     +     = `(lx*2+1) + (ly*2+1) - 1`
-     +     = `x + y - 1`
-     * (2) Fixnum's LSB is always 1.
-     *     It means you can always run `x - 1` without overflow.
-     * (3) Of course `z = x + (y-1)` may overflow.
-     *     At that time true value is
-     *     * positive: 0b0 1xxx...1, and z = 0b1xxx...1
-     *     * negative: 0b1 0xxx...1, and z = 0b0xxx...1
-     *     To convert this true value to long,
-     *     (a) Use arithmetic shift
-     *         * positive: 0b11xxx...
-     *         * negative: 0b00xxx...
-     *     (b) invert MSB
-     *         * positive: 0b01xxx...
-     *         * negative: 0b10xxx...
-     */
-    if (__builtin_add_overflow((long)x, (long)y-1, &lz)) {
-        return rb_int2big(rb_overflowed_fix_to_int(lz));
-    }
-    else {
-        return (VALUE)lz;
-    }
-#endif
-}
-
-static inline VALUE
-rb_fix_minus_fix(VALUE x, VALUE y)
-{
-#if !__has_builtin(__builtin_sub_overflow)
-    long lz = FIX2LONG(x) - FIX2LONG(y);
-    return LONG2NUM(lz);
-#else
-    long lz;
-    if (__builtin_sub_overflow((long)x, (long)y-1, &lz)) {
-        return rb_int2big(rb_overflowed_fix_to_int(lz));
-    }
-    else {
-        return (VALUE)lz;
-    }
-#endif
-}
-
-/* arguments must be Fixnum */
-static inline VALUE
-rb_fix_mul_fix(VALUE x, VALUE y)
-{
-    long lx = FIX2LONG(x);
-    long ly = FIX2LONG(y);
-#ifdef DLONG
-    return DL2NUM((DLONG)lx * (DLONG)ly);
-#else
-    if (MUL_OVERFLOW_FIXNUM_P(lx, ly)) {
-        return rb_big_mul(rb_int2big(lx), rb_int2big(ly));
-    }
-    else {
-        return LONG2FIX(lx * ly);
-    }
-#endif
-}
-
-/*
- * This behaves different from C99 for negative arguments.
- * Note that div may overflow fixnum.
- */
-static inline void
-rb_fix_divmod_fix(VALUE a, VALUE b, VALUE *divp, VALUE *modp)
-{
-    /* assume / and % comply C99.
-     * ldiv(3) won't be inlined by GCC and clang.
-     * I expect / and % are compiled as single idiv.
-     */
-    long x = FIX2LONG(a);
-    long y = FIX2LONG(b);
-    long div, mod;
-    if (x == FIXNUM_MIN && y == -1) {
-        if (divp) *divp = LONG2NUM(-FIXNUM_MIN);
-        if (modp) *modp = LONG2FIX(0);
-        return;
-    }
-    div = x / y;
-    mod = x % y;
-    if (y > 0 ? mod < 0 : mod > 0) {
-        mod += y;
-        div -= 1;
-    }
-    if (divp) *divp = LONG2FIX(div);
-    if (modp) *modp = LONG2FIX(mod);
-}
-
-/* div() for Ruby
- * This behaves different from C99 for negative arguments.
- */
-static inline VALUE
-rb_fix_div_fix(VALUE x, VALUE y)
-{
-    VALUE div;
-    rb_fix_divmod_fix(x, y, &div, NULL);
-    return div;
-}
-
-/* mod() for Ruby
- * This behaves different from C99 for negative arguments.
- */
-static inline VALUE
-rb_fix_mod_fix(VALUE x, VALUE y)
-{
-    VALUE mod;
-    rb_fix_divmod_fix(x, y, NULL, &mod);
-    return mod;
-}
-
-static inline bool
-FIXNUM_POSITIVE_P(VALUE num)
-{
-    return (SIGNED_VALUE)num > (SIGNED_VALUE)INT2FIX(0);
-}
-
-static inline bool
-FIXNUM_NEGATIVE_P(VALUE num)
-{
-    return (SIGNED_VALUE)num < 0;
-}
-
-static inline bool
-FIXNUM_ZERO_P(VALUE num)
-{
-    return num == INT2FIX(0);
-}
-#endif /* INTERNAL_FIXNUM_H */