datadog-ruby_core_source 3.3.6 → 3.4.0

data/lib/datadog/ruby_core_source/ruby-3.4.0-preview1/internal/sanitizers.h

@@ -1,297 +0,0 @@
-#ifndef INTERNAL_SANITIZERS_H                            /*-*-C-*-vi:se ft=c:*/
-#define INTERNAL_SANITIZERS_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 ASAN / MSAN / etc.
- */
-#include "ruby/internal/config.h"
-#include "internal/compilers.h" /* for __has_feature */
-
-#ifdef HAVE_VALGRIND_MEMCHECK_H
-# include <valgrind/memcheck.h>
-#endif
-
-#ifdef HAVE_SANITIZER_ASAN_INTERFACE_H
-# if __has_feature(address_sanitizer)
-#  define RUBY_ASAN_ENABLED
-#  include <sanitizer/asan_interface.h>
-# endif
-#endif
-
-#ifdef HAVE_SANITIZER_MSAN_INTERFACE_H
-# if __has_feature(memory_sanitizer)
-#  define RUBY_MSAN_ENABLED
-#  include <sanitizer/msan_interface.h>
-# endif
-#endif
-
-#include "ruby/internal/stdbool.h"     /* for bool */
-#include "ruby/ruby.h"          /* for VALUE */
-
-#if 0
-#elif defined(RUBY_ASAN_ENABLED) && defined(RUBY_MSAN_ENABLED)
-# define ATTRIBUTE_NO_ADDRESS_SAFETY_ANALYSIS(x) \
-    __attribute__((__no_sanitize__("memory, address"), __noinline__)) x
-#elif defined(RUBY_ASAN_ENABLED)
-# define ATTRIBUTE_NO_ADDRESS_SAFETY_ANALYSIS(x) \
-    __attribute__((__no_sanitize__("address"), __noinline__)) x
-#elif defined(NO_SANITIZE_ADDRESS)
-# define ATTRIBUTE_NO_ADDRESS_SAFETY_ANALYSIS(x) \
-    NO_SANITIZE_ADDRESS(NOINLINE(x))
-#elif defined(NO_ADDRESS_SAFETY_ANALYSIS)
-# define ATTRIBUTE_NO_ADDRESS_SAFETY_ANALYSIS(x) \
-    NO_ADDRESS_SAFETY_ANALYSIS(NOINLINE(x))
-#else
-# define ATTRIBUTE_NO_ADDRESS_SAFETY_ANALYSIS(x) x
-#endif
-
-#if defined(NO_SANITIZE) && RBIMPL_COMPILER_IS(GCC)
-/* GCC warns about unknown sanitizer, which is annoying. */
-# include "internal/warnings.h"
-# undef NO_SANITIZE
-# define NO_SANITIZE(x, y) \
-    COMPILER_WARNING_PUSH; \
-    COMPILER_WARNING_IGNORED(-Wattributes); \
-    __attribute__((__no_sanitize__(x))) y; \
-    COMPILER_WARNING_POP
-#endif
-
-#ifndef NO_SANITIZE
-# define NO_SANITIZE(x, y) y
-#endif
-
-#ifndef RUBY_ASAN_ENABLED
-# define __asan_poison_memory_region(x, y)
-# define __asan_unpoison_memory_region(x, y)
-# define __asan_region_is_poisoned(x, y) 0
-# define __asan_get_current_fake_stack() NULL
-# define __asan_addr_is_in_fake_stack(fake_stack, slot, start, end) NULL
-#endif
-
-#ifndef RUBY_MSAN_ENABLED
-# define __msan_allocated_memory(x, y) ((void)(x), (void)(y))
-# define __msan_poison(x, y) ((void)(x), (void)(y))
-# define __msan_unpoison(x, y) ((void)(x), (void)(y))
-# define __msan_unpoison_string(x) ((void)(x))
-#endif
-
-#ifdef VALGRIND_MAKE_READABLE
-# define VALGRIND_MAKE_MEM_DEFINED(p, n) VALGRIND_MAKE_READABLE((p), (n))
-#endif
-
-#ifdef VALGRIND_MAKE_WRITABLE
-# define VALGRIND_MAKE_MEM_UNDEFINED(p, n) VALGRIND_MAKE_WRITABLE((p), (n))
-#endif
-
-#ifndef VALGRIND_MAKE_MEM_DEFINED
-# define VALGRIND_MAKE_MEM_DEFINED(p, n) 0
-#endif
-
-#ifndef VALGRIND_MAKE_MEM_UNDEFINED
-# define VALGRIND_MAKE_MEM_UNDEFINED(p, n) 0
-#endif
-
-/**
- * This function asserts that a (continuous) memory region from ptr to size
- * being "poisoned".  Both read / write access to such memory region are
- * prohibited until properly unpoisoned.  The region must be previously
- * allocated (do not pass a freed pointer here), but not necessarily be an
- * entire object that the malloc returns.  You can punch hole a part of a
- * gigantic heap arena.  This is handy when you do not free an allocated memory
- * region to reuse later: poison when you keep it unused, and unpoison when you
- * reuse.
- *
- * @param[in]  ptr   pointer to the beginning of the memory region to poison.
- * @param[in]  size  the length of the memory region to poison.
- */
-static inline void
-asan_poison_memory_region(const volatile void *ptr, size_t size)
-{
-    __msan_poison(ptr, size);
-    __asan_poison_memory_region(ptr, size);
-}
-
-/**
- * This is a variant of asan_poison_memory_region that takes a VALUE.
- *
- * @param[in]  obj   target object.
- */
-static inline void
-asan_poison_object(VALUE obj)
-{
-    MAYBE_UNUSED(struct RVALUE *) ptr = (void *)obj;
-    asan_poison_memory_region(ptr, SIZEOF_VALUE);
-}
-
-#ifdef RUBY_ASAN_ENABLED
-#define asan_poison_object_if(ptr, obj) do { \
-        if (ptr) asan_poison_object(obj); \
-    } while (0)
-#else
-#define asan_poison_object_if(ptr, obj) ((void)(ptr), (void)(obj))
-#endif
-
-/**
- * This function predicates if the given object is fully addressable or not.
- *
- * @param[in]  obj        target object.
- * @retval     0          the given object is fully addressable.
- * @retval     otherwise  pointer to first such byte who is poisoned.
- */
-static inline void *
-asan_poisoned_object_p(VALUE obj)
-{
-    MAYBE_UNUSED(struct RVALUE *) ptr = (void *)obj;
-    return __asan_region_is_poisoned(ptr, SIZEOF_VALUE);
-}
-
-/**
- * This function asserts that a (formally poisoned) memory region from ptr to
- * size is now addressable.  Write access to such memory region gets allowed.
- * However read access might or might not be possible depending on situations,
- * because the region can have contents of previous usages.  That information
- * should be passed by the malloc_p flag.  If that is true, the contents of the
- * region is _not_ fully defined (like the return value of malloc behaves).
- * Reading from there is NG; write something first.  If malloc_p is false on
- * the other hand, that memory region is fully defined and can be read
- * immediately.
- *
- * @param[in]  ptr       pointer to the beginning of the memory region to unpoison.
- * @param[in]  size      the length of the memory region.
- * @param[in]  malloc_p  if the memory region is like a malloc's return value or not.
- */
-static inline void
-asan_unpoison_memory_region(const volatile void *ptr, size_t size, bool malloc_p)
-{
-    __asan_unpoison_memory_region(ptr, size);
-    if (malloc_p) {
-        __msan_allocated_memory(ptr, size);
-    }
-    else {
-        __msan_unpoison(ptr, size);
-    }
-}
-
-/**
- * This is a variant of asan_unpoison_memory_region that takes a VALUE.
- *
- * @param[in]  obj       target object.
- * @param[in]  malloc_p  if the memory region is like a malloc's return value or not.
- */
-static inline void
-asan_unpoison_object(VALUE obj, bool newobj_p)
-{
-    MAYBE_UNUSED(struct RVALUE *) ptr = (void *)obj;
-    asan_unpoison_memory_region(ptr, SIZEOF_VALUE, newobj_p);
-}
-
-static inline void *
-asan_unpoison_object_temporary(VALUE obj)
-{
-    void *ptr = asan_poisoned_object_p(obj);
-    asan_unpoison_object(obj, false);
-    return ptr;
-}
-
-static inline void *
-asan_poison_object_restore(VALUE obj, void *ptr)
-{
-    if (ptr) {
-        asan_poison_object(obj);
-    }
-    return NULL;
-}
-
-
-/**
- * Checks if the given pointer is on an ASAN fake stack. If so, it returns the
- * address this variable has on the real frame; if not, it returns the origin
- * address unmodified.
- *
- * n.b. - _dereferencing_ the returned address is meaningless and should not
- * be done; even though ASAN reserves space for the variable in both the real and
- * fake stacks, the _value_ of that variable is only in the fake stack.
- *
- * n.b. - this only works for addresses passed in from local variables on the same
- * thread, because the ASAN fake stacks are threadlocal.
- *
- * @param[in] slot  the address of some local variable
- * @retval          a pointer to something from that frame on the _real_ machine stack
- */
-static inline void *
-asan_get_real_stack_addr(void* slot)
-{
-    VALUE *addr;
-    addr = __asan_addr_is_in_fake_stack(__asan_get_current_fake_stack(), slot, NULL, NULL);
-    return addr ? addr : slot;
-}
-
-/**
- * Gets the current thread's fake stack handle, which can be passed into get_fake_stack_extents
- *
- * @retval An opaque value which can be passed to asan_get_fake_stack_extents
- */
-static inline void *
-asan_get_thread_fake_stack_handle(void)
-{
-    return __asan_get_current_fake_stack();
-}
-
-/**
- * Checks if the given VALUE _actually_ represents a pointer to an ASAN fake stack.
- *
- * If the given slot _is_ actually a reference to an ASAN fake stack, and that fake stack
- * contains the real values for the passed-in range of machine stack addresses, returns true
- * and the range of the fake stack through the outparams.
- *
- * Otherwise, returns false, and sets the outparams to NULL.
- *
- * Note that this function expects "start" to be > "end" on downward-growing stack architectures;
- *
- * @param[in]  thread_fake_stack_handle  The asan fake stack reference for the thread we're scanning
- * @param[in]  slot                      The value on the machine stack we want to inspect
- * @param[in]  machine_stack_start       The extents of the real machine stack on which slot lives
- * @param[in]  machine_stack_end         The extents of the real machine stack on which slot lives
- * @param[out] fake_stack_start_out      The extents of the fake stack which contains real VALUEs
- * @param[out] fake_stack_end_out        The extents of the fake stack which contains real VALUEs
- * @return                               Whether slot is a pointer to a fake stack for the given machine stack range
-*/
-
-static inline bool
-asan_get_fake_stack_extents(void *thread_fake_stack_handle, VALUE slot,
-                            void *machine_stack_start, void *machine_stack_end,
-                            void **fake_stack_start_out, void **fake_stack_end_out)
-{
-    /* the ifdef is needed here to suppress a warning about fake_frame_{start/end} being
-       uninitialized if __asan_addr_is_in_fake_stack is an empty macro */
-#ifdef RUBY_ASAN_ENABLED
-    void *fake_frame_start;
-    void *fake_frame_end;
-    void *real_stack_frame = __asan_addr_is_in_fake_stack(
-        thread_fake_stack_handle, (void *)slot, &fake_frame_start, &fake_frame_end
-    );
-    if (real_stack_frame) {
-        bool in_range;
-#if STACK_GROW_DIRECTION < 0
-        in_range = machine_stack_start >= real_stack_frame && real_stack_frame >= machine_stack_end;
-#else
-        in_range = machine_stack_start <= real_stack_frame && real_stack_frame <= machine_stack_end;
-#endif
-        if (in_range) {
-            *fake_stack_start_out = fake_frame_start;
-            *fake_stack_end_out = fake_frame_end;
-            return true;
-        }
-    }
-#endif
-    *fake_stack_start_out = 0;
-    *fake_stack_end_out = 0;
-    return false;
-}
-
-
-#endif /* INTERNAL_SANITIZERS_H */

data/lib/datadog/ruby_core_source/ruby-3.4.0-preview1/internal/string.h

@@ -1,182 +0,0 @@
-#ifndef INTERNAL_STRING_H                                /*-*-C-*-vi:se ft=c:*/
-#define INTERNAL_STRING_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 String.
- */
-#include "ruby/internal/config.h"
-#include <stddef.h>             /* for size_t */
-#include "internal/compilers.h" /* for __has_builtin */
-#include "ruby/internal/stdbool.h"     /* for bool */
-#include "ruby/encoding.h"      /* for rb_encoding */
-#include "ruby/ruby.h"          /* for VALUE */
-
-#define STR_NOEMBED      FL_USER1
-#define STR_SHARED       FL_USER2 /* = ELTS_SHARED */
-#define STR_CHILLED      FL_USER3
-
-#ifdef rb_fstring_cstr
-# undef rb_fstring_cstr
-#endif
-
-/* string.c */
-VALUE rb_fstring(VALUE);
-VALUE rb_fstring_cstr(const char *str);
-VALUE rb_fstring_enc_new(const char *ptr, long len, rb_encoding *enc);
-int rb_str_buf_cat_escaped_char(VALUE result, unsigned int c, int unicode_p);
-int rb_str_symname_p(VALUE);
-VALUE rb_str_quote_unprintable(VALUE);
-char *rb_str_fill_terminator(VALUE str, const int termlen);
-void rb_str_change_terminator_length(VALUE str, const int oldtermlen, const int termlen);
-VALUE rb_str_locktmp_ensure(VALUE str, VALUE (*func)(VALUE), VALUE arg);
-VALUE rb_str_chomp_string(VALUE str, VALUE chomp);
-VALUE rb_external_str_with_enc(VALUE str, rb_encoding *eenc);
-VALUE rb_str_cat_conv_enc_opts(VALUE newstr, long ofs, const char *ptr, long len,
-                               rb_encoding *from, int ecflags, VALUE ecopts);
-VALUE rb_enc_str_scrub(rb_encoding *enc, VALUE str, VALUE repl);
-VALUE rb_str_escape(VALUE str);
-size_t rb_str_memsize(VALUE);
-char *rb_str_to_cstr(VALUE str);
-const char *ruby_escaped_char(int c);
-void rb_str_make_independent(VALUE str);
-int rb_enc_str_coderange_scan(VALUE str, rb_encoding *enc);
-int rb_ascii8bit_appendable_encoding_index(rb_encoding *enc, unsigned int code);
-VALUE rb_str_include(VALUE str, VALUE arg);
-VALUE rb_str_byte_substr(VALUE str, VALUE beg, VALUE len);
-
-static inline bool STR_EMBED_P(VALUE str);
-static inline bool STR_SHARED_P(VALUE str);
-static inline VALUE QUOTE(VALUE v);
-static inline VALUE QUOTE_ID(ID v);
-static inline bool is_ascii_string(VALUE str);
-static inline bool is_broken_string(VALUE str);
-static inline VALUE rb_str_eql_internal(const VALUE str1, const VALUE str2);
-
-RUBY_SYMBOL_EXPORT_BEGIN
-/* string.c (export) */
-VALUE rb_str_tmp_frozen_acquire(VALUE str);
-VALUE rb_str_tmp_frozen_no_embed_acquire(VALUE str);
-void rb_str_tmp_frozen_release(VALUE str, VALUE tmp);
-VALUE rb_setup_fake_str(struct RString *fake_str, const char *name, long len, rb_encoding *enc);
-VALUE rb_str_upto_each(VALUE, VALUE, int, int (*each)(VALUE, VALUE), VALUE);
-VALUE rb_str_upto_endless_each(VALUE, int (*each)(VALUE, VALUE), VALUE);
-void rb_str_make_embedded(VALUE);
-size_t rb_str_size_as_embedded(VALUE);
-bool rb_str_reembeddable_p(VALUE);
-RUBY_SYMBOL_EXPORT_END
-
-VALUE rb_fstring_new(const char *ptr, long len);
-VALUE rb_obj_as_string_result(VALUE str, VALUE obj);
-VALUE rb_str_opt_plus(VALUE x, VALUE y);
-VALUE rb_str_concat_literals(size_t num, const VALUE *strary);
-VALUE rb_str_eql(VALUE str1, VALUE str2);
-VALUE rb_id_quote_unprintable(ID);
-VALUE rb_sym_proc_call(ID mid, int argc, const VALUE *argv, int kw_splat, VALUE passed_proc);
-
-struct rb_execution_context_struct;
-VALUE rb_ec_str_resurrect(struct rb_execution_context_struct *ec, VALUE str, bool chilled);
-
-#define rb_fstring_lit(str) rb_fstring_new((str), rb_strlen_lit(str))
-#define rb_fstring_literal(str) rb_fstring_lit(str)
-#define rb_fstring_enc_lit(str, enc) rb_fstring_enc_new((str), rb_strlen_lit(str), (enc))
-#define rb_fstring_enc_literal(str, enc) rb_fstring_enc_lit(str, enc)
-
-static inline VALUE
-QUOTE(VALUE v)
-{
-    return rb_str_quote_unprintable(v);
-}
-
-static inline VALUE
-QUOTE_ID(ID i)
-{
-    return rb_id_quote_unprintable(i);
-}
-
-static inline bool
-STR_EMBED_P(VALUE str)
-{
-    return ! FL_TEST_RAW(str, STR_NOEMBED);
-}
-
-static inline bool
-STR_SHARED_P(VALUE str)
-{
-    return FL_ALL_RAW(str, STR_NOEMBED | STR_SHARED);
-}
-
-static inline bool
-CHILLED_STRING_P(VALUE obj)
-{
-    return RB_TYPE_P(obj, T_STRING) && FL_TEST_RAW(obj, STR_CHILLED);
-}
-
-static inline void
-CHILLED_STRING_MUTATED(VALUE str)
-{
-    rb_category_warn(RB_WARN_CATEGORY_DEPRECATED, "literal string will be frozen in the future");
-    FL_UNSET_RAW(str, STR_CHILLED | FL_FREEZE);
-}
-
-static inline void
-STR_CHILL_RAW(VALUE str)
-{
-    // Chilled strings are always also frozen
-    FL_SET_RAW(str, STR_CHILLED | RUBY_FL_FREEZE);
-}
-
-static inline bool
-is_ascii_string(VALUE str)
-{
-    return rb_enc_str_coderange(str) == ENC_CODERANGE_7BIT;
-}
-
-static inline bool
-is_broken_string(VALUE str)
-{
-    return rb_enc_str_coderange(str) == ENC_CODERANGE_BROKEN;
-}
-
-static inline bool
-at_char_boundary(const char *s, const char *p, const char *e, rb_encoding *enc)
-{
-    return rb_enc_left_char_head(s, p, e, enc) == p;
-}
-
-static inline bool
-at_char_right_boundary(const char *s, const char *p, const char *e, rb_encoding *enc)
-{
-    RUBY_ASSERT(s <= p);
-    RUBY_ASSERT(p <= e);
-
-    return rb_enc_right_char_head(s, p, e, enc) == p;
-}
-
-/* expect tail call optimization */
-// YJIT needs this function to never allocate and never raise
-static inline VALUE
-rb_str_eql_internal(const VALUE str1, const VALUE str2)
-{
-    const long len = RSTRING_LEN(str1);
-    const char *ptr1, *ptr2;
-
-    if (len != RSTRING_LEN(str2)) return Qfalse;
-    if (!rb_str_comparable(str1, str2)) return Qfalse;
-    if ((ptr1 = RSTRING_PTR(str1)) == (ptr2 = RSTRING_PTR(str2)))
-        return Qtrue;
-    if (memcmp(ptr1, ptr2, len) == 0)
-        return Qtrue;
-    return Qfalse;
-}
-
-#if __has_builtin(__builtin_constant_p)
-# define rb_fstring_cstr(str) \
-    (__builtin_constant_p(str) ? \
-        rb_fstring_new((str), (long)strlen(str)) : \
-        (rb_fstring_cstr)(str))
-#endif
-#endif /* INTERNAL_STRING_H */

data/lib/datadog/ruby_core_source/ruby-3.4.0-preview1/internal/thread.h

@@ -1,79 +0,0 @@
-#ifndef INTERNAL_THREAD_H                                /*-*-C-*-vi:se ft=c:*/
-#define INTERNAL_THREAD_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 Thread.
- */
-#include "ruby/ruby.h"          /* for VALUE */
-#include "ruby/intern.h"        /* for rb_blocking_function_t */
-#include "ccan/list/list.h"     /* for list in rb_io_close_wait_list */
-
-struct rb_thread_struct;        /* in vm_core.h */
-
-#define RB_VM_SAVE_MACHINE_CONTEXT(th)				\
-    do {							\
-        FLUSH_REGISTER_WINDOWS;					\
-        setjmp((th)->ec->machine.regs);				\
-        SET_MACHINE_STACK_END(&(th)->ec->machine.stack_end);	\
-    } while (0)
-
-/* thread.c */
-#define COVERAGE_INDEX_LINES    0
-#define COVERAGE_INDEX_BRANCHES 1
-#define COVERAGE_TARGET_LINES    1
-#define COVERAGE_TARGET_BRANCHES 2
-#define COVERAGE_TARGET_METHODS  4
-#define COVERAGE_TARGET_ONESHOT_LINES 8
-#define COVERAGE_TARGET_EVAL 16
-
-#define RUBY_FATAL_THREAD_KILLED INT2FIX(0)
-#define RUBY_FATAL_THREAD_TERMINATED INT2FIX(1)
-#define RUBY_FATAL_FIBER_KILLED RB_INT2FIX(2)
-
-VALUE rb_obj_is_mutex(VALUE obj);
-VALUE rb_suppress_tracing(VALUE (*func)(VALUE), VALUE arg);
-void rb_thread_execute_interrupts(VALUE th);
-VALUE rb_get_coverages(void);
-int rb_get_coverage_mode(void);
-VALUE rb_default_coverage(int);
-VALUE rb_thread_shield_new(void);
-bool rb_thread_shield_owned(VALUE self);
-VALUE rb_thread_shield_wait(VALUE self);
-VALUE rb_thread_shield_release(VALUE self);
-VALUE rb_thread_shield_destroy(VALUE self);
-int rb_thread_to_be_killed(VALUE thread);
-void rb_mutex_allow_trap(VALUE self, int val);
-VALUE rb_uninterruptible(VALUE (*b_proc)(VALUE), VALUE data);
-VALUE rb_mutex_owned_p(VALUE self);
-VALUE rb_exec_recursive_outer_mid(VALUE (*f)(VALUE g, VALUE h, int r), VALUE g, VALUE h, ID mid);
-void ruby_mn_threads_params(void);
-
-int rb_thread_wait_for_single_fd(int fd, int events, struct timeval * timeout);
-
-struct rb_io_close_wait_list {
-    struct ccan_list_head pending_fd_users;
-    VALUE closing_thread;
-    VALUE wakeup_mutex;
-};
-int rb_notify_fd_close(int fd, struct rb_io_close_wait_list *busy);
-void rb_notify_fd_close_wait(struct rb_io_close_wait_list *busy);
-
-RUBY_SYMBOL_EXPORT_BEGIN
-
-/* Temporary.  This API will be removed (renamed). */
-VALUE rb_thread_io_blocking_region(rb_blocking_function_t *func, void *data1, int fd);
-VALUE rb_thread_io_blocking_call(rb_blocking_function_t *func, void *data1, int fd, int events);
-
-/* thread.c (export) */
-int ruby_thread_has_gvl_p(void); /* for ext/fiddle/closure.c */
-
-RUBY_SYMBOL_EXPORT_END
-
-int rb_threadptr_execute_interrupts(struct rb_thread_struct *th, int blocking_timing);
-bool rb_thread_mn_schedulable(VALUE thread);
-
-#endif /* INTERNAL_THREAD_H */

data/lib/datadog/ruby_core_source/ruby-3.4.0-preview1/internal/vm.h

@@ -1,137 +0,0 @@
-#ifndef INTERNAL_VM_H                                    /*-*-C-*-vi:se ft=c:*/
-#define INTERNAL_VM_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 RubyVM.
- */
-#include "ruby/internal/stdbool.h"         /* for bool */
-#include "internal/serial.h"        /* for rb_serial_t */
-#include "internal/static_assert.h" /* for STATIC_ASSERT */
-#include "ruby/ruby.h"              /* for ID */
-#include "ruby/st.h"                /* for st_table */
-
-#ifdef rb_funcallv
-# undef rb_funcallv
-#endif
-
-#ifdef rb_method_basic_definition_p
-# undef rb_method_basic_definition_p
-#endif
-
-struct rb_callable_method_entry_struct; /* in method.h */
-struct rb_method_definition_struct;     /* in method.h */
-struct rb_execution_context_struct;     /* in vm_core.h */
-struct rb_control_frame_struct;         /* in vm_core.h */
-struct rb_callinfo;                     /* in vm_core.h */
-
-enum method_missing_reason {
-    MISSING_NOENTRY   = 0x00,
-    MISSING_PRIVATE   = 0x01,
-    MISSING_PROTECTED = 0x02,
-    MISSING_FCALL     = 0x04,
-    MISSING_VCALL     = 0x08,
-    MISSING_SUPER     = 0x10,
-    MISSING_MISSING   = 0x20,
-    MISSING_NONE      = 0x40
-};
-
-/* vm_insnhelper.h */
-VALUE rb_vm_push_frame_fname(struct rb_execution_context_struct *ec, VALUE fname);
-
-/* vm.c */
-VALUE rb_obj_is_thread(VALUE obj);
-void rb_vm_mark(void *ptr);
-void rb_vm_register_global_object(VALUE obj);
-void rb_vm_each_stack_value(void *ptr, void (*cb)(VALUE, void*), void *ctx);
-PUREFUNC(VALUE rb_vm_top_self(void));
-const void **rb_vm_get_insns_address_table(void);
-VALUE rb_source_location(int *pline);
-const char *rb_source_location_cstr(int *pline);
-void rb_vm_pop_cfunc_frame(void);
-void rb_vm_check_redefinition_by_prepend(VALUE klass);
-int rb_vm_check_optimizable_mid(VALUE mid);
-VALUE rb_yield_refine_block(VALUE refinement, VALUE refinements);
-VALUE ruby_vm_special_exception_copy(VALUE);
-PUREFUNC(st_table *rb_vm_fstring_table(void));
-
-void rb_lastline_set_up(VALUE val, unsigned int up);
-
-/* vm_eval.c */
-VALUE rb_current_realfilepath(void);
-VALUE rb_check_block_call(VALUE, ID, int, const VALUE *, rb_block_call_func_t, VALUE);
-typedef void rb_check_funcall_hook(int, VALUE, ID, int, const VALUE *, VALUE);
-VALUE rb_check_funcall_with_hook(VALUE recv, ID mid, int argc, const VALUE *argv,
-                                 rb_check_funcall_hook *hook, VALUE arg);
-VALUE rb_check_funcall_with_hook_kw(VALUE recv, ID mid, int argc, const VALUE *argv,
-                                 rb_check_funcall_hook *hook, VALUE arg, int kw_splat);
-const char *rb_type_str(enum ruby_value_type type);
-VALUE rb_check_funcall_default(VALUE, ID, int, const VALUE *, VALUE);
-VALUE rb_check_funcall_basic_kw(VALUE, ID, VALUE, int, const VALUE*, int);
-VALUE rb_yield_1(VALUE val);
-VALUE rb_yield_force_blockarg(VALUE values);
-VALUE rb_lambda_call(VALUE obj, ID mid, int argc, const VALUE *argv,
-                     rb_block_call_func_t bl_proc, int min_argc, int max_argc,
-                     VALUE data2);
-void rb_check_stack_overflow(void);
-
-#if USE_YJIT
-/* vm_exec.c */
-extern uint64_t rb_vm_insns_count;
-#endif
-
-extern bool rb_free_at_exit;
-
-/* miniinit.c and builtin.c */
-void rb_free_loaded_builtin_table(void);
-
-/* vm_insnhelper.c */
-VALUE rb_equal_opt(VALUE obj1, VALUE obj2);
-VALUE rb_eql_opt(VALUE obj1, VALUE obj2);
-
-struct rb_iseq_struct;
-const struct rb_callcache *rb_vm_search_method_slowpath(const struct rb_callinfo *ci, VALUE klass);
-
-/* vm_method.c */
-struct rb_execution_context_struct;
-int rb_ec_obj_respond_to(struct rb_execution_context_struct *ec, VALUE obj, ID id, int priv);
-
-void rb_clear_constant_cache(void);
-
-/* vm_dump.c */
-void rb_print_backtrace(FILE *);
-
-/* vm_backtrace.c */
-VALUE rb_vm_thread_backtrace(int argc, const VALUE *argv, VALUE thval);
-VALUE rb_vm_thread_backtrace_locations(int argc, const VALUE *argv, VALUE thval);
-VALUE rb_vm_backtrace(int argc, const VALUE * argv, struct rb_execution_context_struct * ec);
-VALUE rb_vm_backtrace_locations(int argc, const VALUE * argv, struct rb_execution_context_struct * ec);
-VALUE rb_make_backtrace(void);
-void rb_backtrace_print_as_bugreport(FILE*);
-int rb_backtrace_p(VALUE obj);
-VALUE rb_backtrace_to_str_ary(VALUE obj);
-VALUE rb_backtrace_to_location_ary(VALUE obj);
-VALUE rb_location_ary_to_backtrace(VALUE ary);
-void rb_backtrace_each(VALUE (*iter)(VALUE recv, VALUE str), VALUE output);
-int rb_frame_info_p(VALUE obj);
-int rb_get_node_id_from_frame_info(VALUE obj);
-const struct rb_iseq_struct *rb_get_iseq_from_frame_info(VALUE obj);
-
-VALUE rb_ec_backtrace_object(const struct rb_execution_context_struct *ec);
-void rb_backtrace_use_iseq_first_lineno_for_last_location(VALUE self);
-
-#define RUBY_DTRACE_CREATE_HOOK(name, arg) \
-    RUBY_DTRACE_HOOK(name##_CREATE, arg)
-#define RUBY_DTRACE_HOOK(name, arg) \
-do { \
-    if (UNLIKELY(RUBY_DTRACE_##name##_ENABLED())) { \
-        int dtrace_line; \
-        const char *dtrace_file = rb_source_location_cstr(&dtrace_line); \
-        if (!dtrace_file) dtrace_file = ""; \
-        RUBY_DTRACE_##name(arg, dtrace_file, dtrace_line); \
-    } \
-} while (0)
-#endif /* INTERNAL_VM_H */