debase-ruby_core_source 0.10.18 → 3.2.0

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

@@ -1,191 +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_sys_fail_path(path) rb_sys_fail_path_in(RUBY_FUNCTION_NAME_STRING, path)
-# 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_sys_fail_path(path) rb_sys_fail_str(path)
-# 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
-
-/* 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
-
-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.2.0-preview2/internal/eval.h

@@ -1,32 +0,0 @@
-#ifndef INTERNAL_EVAL_H                                  /*-*-C-*-vi:se ft=c:*/
-#define INTERNAL_EVAL_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 the evaluator.
- * @note       There  also  is  eval_intern.h, which  is  evaluator's  internal
- *             header (related to this file, but not the same role).
- */
-#include "ruby/ruby.h"          /* for ID */
-
-#define id_signo ruby_static_id_signo
-#define id_status ruby_static_id_status
-
-/* eval.c */
-extern ID ruby_static_id_signo;
-extern ID ruby_static_id_status;
-VALUE rb_refinement_module_get_refined_class(VALUE module);
-void rb_class_modify_check(VALUE);
-NORETURN(VALUE rb_f_raise(int argc, VALUE *argv));
-
-/* eval_error.c */
-VALUE rb_get_backtrace(VALUE info);
-
-/* eval_jump.c */
-void rb_call_end_proc(VALUE data);
-void rb_mark_end_proc(void);
-
-#endif /* INTERNAL_EVAL_H */

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

@@ -1,38 +0,0 @@
-#ifndef INTERNAL_FILE_H                                  /*-*-C-*-vi:se ft=c:*/
-#define INTERNAL_FILE_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 File.
- */
-#include "ruby/ruby.h"          /* for VALUE */
-#include "ruby/encoding.h"      /* for rb_encodinng */
-
-/* file.c */
-extern const char ruby_null_device[];
-VALUE rb_home_dir_of(VALUE user, VALUE result);
-VALUE rb_default_home_dir(VALUE result);
-VALUE rb_realpath_internal(VALUE basedir, VALUE path, int strict);
-VALUE rb_check_realpath(VALUE basedir, VALUE path, rb_encoding *origenc);
-void rb_file_const(const char*, VALUE);
-int rb_file_load_ok(const char *);
-VALUE rb_file_expand_path_fast(VALUE, VALUE);
-VALUE rb_file_expand_path_internal(VALUE, VALUE, int, int, VALUE);
-VALUE rb_get_path_check_to_string(VALUE);
-VALUE rb_get_path_check_convert(VALUE);
-int ruby_is_fd_loadable(int fd);
-
-RUBY_SYMBOL_EXPORT_BEGIN
-/* file.c (export) */
-#ifdef HAVE_READLINK
-VALUE rb_readlink(VALUE path, rb_encoding *enc);
-#endif
-#ifdef __APPLE__
-VALUE rb_str_normalize_ospath(const char *ptr, long len);
-#endif
-RUBY_SYMBOL_EXPORT_END
-
-#endif /* INTERNAL_FILE_H */

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

@@ -1,188 +0,0 @@
-#ifndef INTERNAL_GC_H                                    /*-*-C-*-vi:se ft=c:*/
-#define INTERNAL_GC_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 GC.
- */
-#include "ruby/internal/config.h"
-
-#include <stddef.h>             /* for size_t */
-
-#include "internal/compilers.h" /* for __has_attribute */
-#include "ruby/ruby.h"          /* for rb_event_flag_t */
-
-struct rb_execution_context_struct; /* in vm_core.h */
-struct rb_objspace; /* in vm_core.h */
-
-#ifdef NEWOBJ_OF
-# undef NEWOBJ_OF
-# undef RB_NEWOBJ_OF
-# undef RB_OBJ_WRITE
-#endif
-
-#define RVALUE_SIZE (sizeof(struct RBasic) + sizeof(VALUE[RBIMPL_RVALUE_EMBED_LEN_MAX]))
-
-#define RB_RVARGC_NEWOBJ_OF(var, T, c, f, s) \
-  T *(var) = (T *)(((f) & FL_WB_PROTECTED) ? \
-                   rb_wb_protected_newobj_of((c), (f) & ~FL_WB_PROTECTED, s) : \
-                   rb_wb_unprotected_newobj_of((c), (f), s))
-
-#define RB_RVARGC_EC_NEWOBJ_OF(ec, var, T, c, f, s) \
-  T *(var) = (T *)(((f) & FL_WB_PROTECTED) ? \
-                   rb_ec_wb_protected_newobj_of((ec), (c), (f) & ~FL_WB_PROTECTED, s) : \
-                   rb_wb_unprotected_newobj_of((c), (f), s))
-
-/* optimized version of NEWOBJ() */
-#define RB_NEWOBJ_OF(var, T, c, f) RB_RVARGC_NEWOBJ_OF(var, T, c, f, RVALUE_SIZE)
-
-#define RB_EC_NEWOBJ_OF(ec, var, T, c, f) RB_RVARGC_EC_NEWOBJ_OF(ec, var, T, c, f, RVALUE_SIZE)
-
-#define NEWOBJ_OF(var, T, c, f) RB_NEWOBJ_OF((var), T, (c), (f))
-#define RVARGC_NEWOBJ_OF(var, T, c, f, s) RB_RVARGC_NEWOBJ_OF((var), T, (c), (f), (s))
-#define RB_OBJ_GC_FLAGS_MAX 6   /* used in ext/objspace */
-
-#ifndef USE_UNALIGNED_MEMBER_ACCESS
-# define UNALIGNED_MEMBER_ACCESS(expr) (expr)
-#elif ! USE_UNALIGNED_MEMBER_ACCESS
-# define UNALIGNED_MEMBER_ACCESS(expr) (expr)
-#elif ! (__has_warning("-Waddress-of-packed-member") || GCC_VERSION_SINCE(9, 0, 0))
-# define UNALIGNED_MEMBER_ACCESS(expr) (expr)
-#else
-# include "internal/warnings.h"
-# define UNALIGNED_MEMBER_ACCESS(expr) __extension__({ \
-    COMPILER_WARNING_PUSH; \
-    COMPILER_WARNING_IGNORED(-Waddress-of-packed-member); \
-    __typeof__(expr) unaligned_member_access_result = (expr); \
-    COMPILER_WARNING_POP; \
-    unaligned_member_access_result; \
-})
-#endif
-
-#define UNALIGNED_MEMBER_PTR(ptr, mem) UNALIGNED_MEMBER_ACCESS(&(ptr)->mem)
-#define RB_OBJ_WRITE(a, slot, b) \
-    rb_obj_write((VALUE)(a), UNALIGNED_MEMBER_ACCESS((VALUE *)(slot)), \
-                 (VALUE)(b), __FILE__, __LINE__)
-
-#if USE_RVARGC
-# define SIZE_POOL_COUNT 5
-#else
-# define SIZE_POOL_COUNT 1
-#endif
-
-typedef struct ractor_newobj_size_pool_cache {
-    struct RVALUE *freelist;
-    struct heap_page *using_page;
-} rb_ractor_newobj_size_pool_cache_t;
-
-typedef struct ractor_newobj_cache {
-    size_t incremental_mark_step_allocated_slots;
-    rb_ractor_newobj_size_pool_cache_t size_pool_caches[SIZE_POOL_COUNT];
-} rb_ractor_newobj_cache_t;
-
-/* gc.c */
-extern VALUE *ruby_initial_gc_stress_ptr;
-extern int ruby_disable_gc;
-RUBY_ATTR_MALLOC void *ruby_mimmalloc(size_t size);
-void ruby_mimfree(void *ptr);
-void rb_objspace_set_event_hook(const rb_event_flag_t event);
-VALUE rb_objspace_gc_enable(struct rb_objspace *);
-VALUE rb_objspace_gc_disable(struct rb_objspace *);
-void ruby_gc_set_params(void);
-void rb_copy_wb_protected_attribute(VALUE dest, VALUE obj);
-#if __has_attribute(alloc_align)
-__attribute__((__alloc_align__(1)))
-#endif
-RUBY_ATTR_MALLOC void *rb_aligned_malloc(size_t, size_t) RUBY_ATTR_ALLOC_SIZE((2));
-size_t rb_size_mul_or_raise(size_t, size_t, VALUE); /* used in compile.c */
-size_t rb_size_mul_add_or_raise(size_t, size_t, size_t, VALUE); /* used in iseq.h */
-RUBY_ATTR_MALLOC void *rb_xmalloc_mul_add(size_t, size_t, size_t);
-RUBY_ATTR_MALLOC void *rb_xcalloc_mul_add(size_t, size_t, size_t);
-void *rb_xrealloc_mul_add(const void *, size_t, size_t, size_t);
-RUBY_ATTR_MALLOC void *rb_xmalloc_mul_add_mul(size_t, size_t, size_t, size_t);
-RUBY_ATTR_MALLOC void *rb_xcalloc_mul_add_mul(size_t, size_t, size_t, size_t);
-static inline void *ruby_sized_xrealloc_inlined(void *ptr, size_t new_size, size_t old_size) RUBY_ATTR_RETURNS_NONNULL RUBY_ATTR_ALLOC_SIZE((2));
-static inline void *ruby_sized_xrealloc2_inlined(void *ptr, size_t new_count, size_t elemsiz, size_t old_count) RUBY_ATTR_RETURNS_NONNULL RUBY_ATTR_ALLOC_SIZE((2, 3));
-static inline void ruby_sized_xfree_inlined(void *ptr, size_t size);
-VALUE rb_class_allocate_instance(VALUE klass);
-void rb_gc_ractor_newobj_cache_clear(rb_ractor_newobj_cache_t *newobj_cache);
-size_t rb_gc_obj_slot_size(VALUE obj);
-bool rb_gc_size_allocatable_p(size_t size);
-int rb_objspace_garbage_object_p(VALUE obj);
-
-RUBY_SYMBOL_EXPORT_BEGIN
-/* gc.c (export) */
-const char *rb_objspace_data_type_name(VALUE obj);
-VALUE rb_wb_protected_newobj_of(VALUE, VALUE, size_t);
-VALUE rb_wb_unprotected_newobj_of(VALUE, VALUE, size_t);
-VALUE rb_ec_wb_protected_newobj_of(struct rb_execution_context_struct *ec, VALUE klass, VALUE flags, size_t);
-size_t rb_obj_memsize_of(VALUE);
-void rb_gc_verify_internal_consistency(void);
-size_t rb_obj_gc_flags(VALUE, ID[], size_t);
-void rb_gc_mark_values(long n, const VALUE *values);
-void rb_gc_mark_vm_stack_values(long n, const VALUE *values);
-void *ruby_sized_xrealloc(void *ptr, size_t new_size, size_t old_size) RUBY_ATTR_RETURNS_NONNULL RUBY_ATTR_ALLOC_SIZE((2));
-void *ruby_sized_xrealloc2(void *ptr, size_t new_count, size_t element_size, size_t old_count) RUBY_ATTR_RETURNS_NONNULL RUBY_ATTR_ALLOC_SIZE((2, 3));
-void ruby_sized_xfree(void *x, size_t size);
-RUBY_SYMBOL_EXPORT_END
-
-MJIT_SYMBOL_EXPORT_BEGIN
-int rb_ec_stack_check(struct rb_execution_context_struct *ec);
-void rb_gc_writebarrier_remember(VALUE obj);
-const char *rb_obj_info(VALUE obj);
-MJIT_SYMBOL_EXPORT_END
-
-#if defined(HAVE_MALLOC_USABLE_SIZE) || defined(HAVE_MALLOC_SIZE) || defined(_WIN32)
-
-static inline void *
-ruby_sized_xrealloc_inlined(void *ptr, size_t new_size, size_t old_size)
-{
-    return ruby_xrealloc(ptr, new_size);
-}
-
-static inline void *
-ruby_sized_xrealloc2_inlined(void *ptr, size_t new_count, size_t elemsiz, size_t old_count)
-{
-    return ruby_xrealloc2(ptr, new_count, elemsiz);
-}
-
-static inline void
-ruby_sized_xfree_inlined(void *ptr, size_t size)
-{
-    ruby_xfree(ptr);
-}
-
-# define SIZED_REALLOC_N(x, y, z, w) REALLOC_N(x, y, z)
-
-#else
-
-static inline void *
-ruby_sized_xrealloc_inlined(void *ptr, size_t new_size, size_t old_size)
-{
-    return ruby_sized_xrealloc(ptr, new_size, old_size);
-}
-
-static inline void *
-ruby_sized_xrealloc2_inlined(void *ptr, size_t new_count, size_t elemsiz, size_t old_count)
-{
-    return ruby_sized_xrealloc2(ptr, new_count, elemsiz, old_count);
-}
-
-static inline void
-ruby_sized_xfree_inlined(void *ptr, size_t size)
-{
-    ruby_sized_xfree(ptr, size);
-}
-
-# define SIZED_REALLOC_N(v, T, m, n) \
-    ((v) = (T *)ruby_sized_xrealloc2((void *)(v), (m), sizeof(T), (n)))
-
-#endif /* HAVE_MALLOC_USABLE_SIZE */
-
-#define ruby_sized_xrealloc ruby_sized_xrealloc_inlined
-#define ruby_sized_xrealloc2 ruby_sized_xrealloc2_inlined
-#define ruby_sized_xfree ruby_sized_xfree_inlined
-#endif /* INTERNAL_GC_H */

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

@@ -1,243 +0,0 @@
-#ifndef INTERNAL_HASH_H                                  /*-*-C-*-vi:se ft=c:*/
-#define INTERNAL_HASH_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 Hash.
- */
-#include "ruby/internal/config.h"
-#include <stddef.h>             /* for size_t */
-#include "ruby/internal/stdbool.h"     /* for bool */
-#include "ruby/ruby.h"          /* for struct RBasic */
-#include "ruby/st.h"            /* for struct st_table */
-
-#define RHASH_AR_TABLE_MAX_SIZE SIZEOF_VALUE
-
-struct ar_table_struct;
-typedef unsigned char ar_hint_t;
-
-enum ruby_rhash_flags {
-    RHASH_PASS_AS_KEYWORDS = FL_USER1,                                   /* FL 1 */
-    RHASH_PROC_DEFAULT = FL_USER2,                                       /* FL 2 */
-    RHASH_ST_TABLE_FLAG = FL_USER3,                                      /* FL 3 */
-    RHASH_AR_TABLE_SIZE_MASK = (FL_USER4|FL_USER5|FL_USER6|FL_USER7),    /* FL 4..7 */
-    RHASH_AR_TABLE_SIZE_SHIFT = (FL_USHIFT+4),
-    RHASH_AR_TABLE_BOUND_MASK = (FL_USER8|FL_USER9|FL_USER10|FL_USER11), /* FL 8..11 */
-    RHASH_AR_TABLE_BOUND_SHIFT = (FL_USHIFT+8),
-
-#if USE_TRANSIENT_HEAP
-    RHASH_TRANSIENT_FLAG = FL_USER12,                                    /* FL 12 */
-#endif
-
-    // we can not put it in "enum" because it can exceed "int" range.
-#define RHASH_LEV_MASK (FL_USER13 | FL_USER14 | FL_USER15 |                /* FL 13..19 */ \
-                        FL_USER16 | FL_USER17 | FL_USER18 | FL_USER19)
-
-    RHASH_LEV_SHIFT = (FL_USHIFT + 13),
-    RHASH_LEV_MAX = 127, /* 7 bits */
-};
-
-struct RHash {
-    struct RBasic basic;
-    union {
-        st_table *st;
-        struct ar_table_struct *ar; /* possibly 0 */
-    } as;
-    const VALUE ifnone;
-    union {
-        ar_hint_t ary[RHASH_AR_TABLE_MAX_SIZE];
-        VALUE word;
-    } ar_hint;
-};
-
-#define RHASH(obj) ((struct RHash *)(obj))
-
-#ifdef RHASH_IFNONE
-# undef RHASH_IFNONE
-#endif
-
-#ifdef RHASH_SIZE
-# undef RHASH_SIZE
-#endif
-
-#ifdef RHASH_EMPTY_P
-# undef RHASH_EMPTY_P
-#endif
-
-/* hash.c */
-void rb_hash_st_table_set(VALUE hash, st_table *st);
-VALUE rb_hash_default_value(VALUE hash, VALUE key);
-VALUE rb_hash_set_default_proc(VALUE hash, VALUE proc);
-long rb_dbl_long_hash(double d);
-st_table *rb_init_identtable(void);
-VALUE rb_to_hash_type(VALUE obj);
-VALUE rb_hash_key_str(VALUE);
-VALUE rb_hash_values(VALUE hash);
-VALUE rb_hash_rehash(VALUE hash);
-int rb_hash_add_new_element(VALUE hash, VALUE key, VALUE val);
-VALUE rb_hash_set_pair(VALUE hash, VALUE pair);
-int rb_hash_stlike_delete(VALUE hash, st_data_t *pkey, st_data_t *pval);
-int rb_hash_stlike_foreach_with_replace(VALUE hash, st_foreach_check_callback_func *func, st_update_callback_func *replace, st_data_t arg);
-int rb_hash_stlike_update(VALUE hash, st_data_t key, st_update_callback_func *func, st_data_t arg);
-extern st_table *rb_hash_st_table(VALUE hash);
-VALUE rb_ident_hash_new_with_size(st_index_t size);
-
-static inline unsigned RHASH_AR_TABLE_SIZE_RAW(VALUE h);
-static inline VALUE RHASH_IFNONE(VALUE h);
-static inline size_t RHASH_SIZE(VALUE h);
-static inline bool RHASH_EMPTY_P(VALUE h);
-static inline bool RHASH_AR_TABLE_P(VALUE h);
-static inline bool RHASH_ST_TABLE_P(VALUE h);
-static inline struct ar_table_struct *RHASH_AR_TABLE(VALUE h);
-static inline st_table *RHASH_ST_TABLE(VALUE h);
-static inline size_t RHASH_ST_SIZE(VALUE h);
-static inline void RHASH_ST_CLEAR(VALUE h);
-static inline bool RHASH_TRANSIENT_P(VALUE h);
-static inline void RHASH_SET_TRANSIENT_FLAG(VALUE h);
-static inline void RHASH_UNSET_TRANSIENT_FLAG(VALUE h);
-
-RUBY_SYMBOL_EXPORT_BEGIN
-/* hash.c (export) */
-VALUE rb_hash_delete_entry(VALUE hash, VALUE key);
-VALUE rb_ident_hash_new(void);
-int rb_hash_stlike_foreach(VALUE hash, st_foreach_callback_func *func, st_data_t arg);
-RUBY_SYMBOL_EXPORT_END
-
-MJIT_SYMBOL_EXPORT_BEGIN
-VALUE rb_hash_new_with_size(st_index_t size);
-VALUE rb_hash_resurrect(VALUE hash);
-int rb_hash_stlike_lookup(VALUE hash, st_data_t key, st_data_t *pval);
-VALUE rb_hash_keys(VALUE hash);
-VALUE rb_hash_has_key(VALUE hash, VALUE key);
-VALUE rb_hash_compare_by_id_p(VALUE hash);
-
-st_table *rb_hash_tbl_raw(VALUE hash, const char *file, int line);
-#define RHASH_TBL_RAW(h) rb_hash_tbl_raw(h, __FILE__, __LINE__)
-MJIT_SYMBOL_EXPORT_END
-
-VALUE rb_hash_compare_by_id(VALUE hash);
-
-#if 0 /* for debug */
-
-static inline bool
-RHASH_AR_TABLE_P(VALUE h)
-{
-    extern int rb_hash_ar_table_p(VALUE hash);
-    return rb_hash_ar_table_p(h)
-}
-
-static inline struct ar_table_struct *
-RHASH_AR_TABLE(VALUE h)
-{
-    extern struct ar_table_struct *rb_hash_ar_table(VALUE hash);
-    return rb_hash_ar_table(h)
-}
-
-static inline st_table *
-RHASH_ST_TABLE(VALUE h)
-{
-    return rb_hash_st_table(h)
-}
-
-#else
-
-static inline bool
-RHASH_AR_TABLE_P(VALUE h)
-{
-    return ! FL_TEST_RAW(h, RHASH_ST_TABLE_FLAG);
-}
-
-static inline struct ar_table_struct *
-RHASH_AR_TABLE(VALUE h)
-{
-    return RHASH(h)->as.ar;
-}
-
-static inline st_table *
-RHASH_ST_TABLE(VALUE h)
-{
-    return RHASH(h)->as.st;
-}
-
-#endif
-
-static inline VALUE
-RHASH_IFNONE(VALUE h)
-{
-    return RHASH(h)->ifnone;
-}
-
-static inline size_t
-RHASH_SIZE(VALUE h)
-{
-    if (RHASH_AR_TABLE_P(h)) {
-        return RHASH_AR_TABLE_SIZE_RAW(h);
-    }
-    else {
-        return RHASH_ST_SIZE(h);
-    }
-}
-
-static inline bool
-RHASH_EMPTY_P(VALUE h)
-{
-    return RHASH_SIZE(h) == 0;
-}
-
-static inline bool
-RHASH_ST_TABLE_P(VALUE h)
-{
-    return ! RHASH_AR_TABLE_P(h);
-}
-
-static inline size_t
-RHASH_ST_SIZE(VALUE h)
-{
-    return RHASH_ST_TABLE(h)->num_entries;
-}
-
-static inline void
-RHASH_ST_CLEAR(VALUE h)
-{
-    FL_UNSET_RAW(h, RHASH_ST_TABLE_FLAG);
-    RHASH(h)->as.ar = NULL;
-}
-
-static inline unsigned
-RHASH_AR_TABLE_SIZE_RAW(VALUE h)
-{
-    VALUE ret = FL_TEST_RAW(h, RHASH_AR_TABLE_SIZE_MASK);
-    ret >>= RHASH_AR_TABLE_SIZE_SHIFT;
-    return (unsigned)ret;
-}
-
-static inline bool
-RHASH_TRANSIENT_P(VALUE h)
-{
-#if USE_TRANSIENT_HEAP
-    return FL_TEST_RAW(h, RHASH_TRANSIENT_FLAG);
-#else
-    return false;
-#endif
-}
-
-static inline void
-RHASH_SET_TRANSIENT_FLAG(VALUE h)
-{
-#if USE_TRANSIENT_HEAP
-    FL_SET_RAW(h, RHASH_TRANSIENT_FLAG);
-#endif
-}
-
-static inline void
-RHASH_UNSET_TRANSIENT_FLAG(VALUE h)
-{
-#if USE_TRANSIENT_HEAP
-    FL_UNSET_RAW(h, RHASH_TRANSIENT_FLAG);
-#endif
-}
-
-#endif /* INTERNAL_HASH_H */