debase-ruby_core_source 0.10.9 → 0.10.13

data/lib/debase/ruby_core_source/{ruby-2.7.0-preview3 → ruby-3.1.0-preview1}/eval_intern.h

@@ -91,40 +91,12 @@ extern int select_large_fdset(int, fd_set *, fd_set *, fd_set *, struct timeval
 
 #include <sys/stat.h>
 
-#ifdef _MSC_VER
-#define SAVE_ROOT_JMPBUF_BEFORE_STMT \
-    __try {
-#define SAVE_ROOT_JMPBUF_AFTER_STMT \
-    } \
-    __except (GetExceptionCode() == EXCEPTION_STACK_OVERFLOW ? \
-         (rb_ec_raised_set(GET_EC(), RAISED_STACKOVERFLOW), \
-          raise(SIGSEGV), \
-          EXCEPTION_EXECUTE_HANDLER) : \
-         EXCEPTION_CONTINUE_SEARCH) { \
-   /* never reaches here */ \
-    }
-#elif defined(__MINGW32__)
-LONG WINAPI rb_w32_stack_overflow_handler(struct _EXCEPTION_POINTERS *);
-#define SAVE_ROOT_JMPBUF_BEFORE_STMT \
-    do { \
-   PVOID _handler = AddVectoredExceptionHandler(1, rb_w32_stack_overflow_handler);
-
-#define SAVE_ROOT_JMPBUF_AFTER_STMT \
-   RemoveVectoredExceptionHandler(_handler); \
-    } while (0);
-#else
-#define SAVE_ROOT_JMPBUF_BEFORE_STMT
-#define SAVE_ROOT_JMPBUF_AFTER_STMT
-#endif
 
 #define SAVE_ROOT_JMPBUF(th, stmt) do \
-  if (ruby_setjmp((th)->root_jmpbuf) == 0) { \
-      SAVE_ROOT_JMPBUF_BEFORE_STMT \
+  if (true) { \
       stmt; \
-      SAVE_ROOT_JMPBUF_AFTER_STMT \
   } \
-  else { \
-      rb_fiber_start(); \
+  else if (th) { /* suppress unused-variable warning */ \
   } while (0)
 
 #define EC_PUSH_TAG(ec) do { \
@@ -132,7 +104,8 @@ LONG WINAPI rb_w32_stack_overflow_handler(struct _EXCEPTION_POINTERS *);
   struct rb_vm_tag _tag; \
   _tag.state = TAG_NONE; \
   _tag.tag = Qundef; \
-  _tag.prev = _ec->tag;
+  _tag.prev = _ec->tag; \
+  _tag.lock_rec = rb_ec_vm_lock_rec(_ec); \
 
 #define EC_POP_TAG() \
   _ec->tag = _tag.prev; \
@@ -143,7 +116,7 @@ LONG WINAPI rb_w32_stack_overflow_handler(struct _EXCEPTION_POINTERS *);
 
 #define EC_REPUSH_TAG() (void)(_ec->tag = &_tag)
 
-#if defined __GNUC__ && __GNUC__ == 4 && (__GNUC_MINOR__ >= 6 && __GNUC_MINOR__ <= 8) || __clang__
+#if defined __GNUC__ && __GNUC__ == 4 && (__GNUC_MINOR__ >= 6 && __GNUC_MINOR__ <= 8) || defined __clang__
 /* This macro prevents GCC 4.6--4.8 from emitting maybe-uninitialized warnings.
  * This macro also prevents Clang from dumping core in EC_EXEC_TAG().
  * (I confirmed Clang 4.0.1 and 5.0.0.)
@@ -157,12 +130,23 @@ LONG WINAPI rb_w32_stack_overflow_handler(struct _EXCEPTION_POINTERS *);
 # define VAR_NOCLOBBERED(var) var
 #endif
 
+static inline void
+rb_ec_vm_lock_rec_check(const rb_execution_context_t *ec, unsigned int recorded_lock_rec)
+{
+    unsigned int current_lock_rec = rb_ec_vm_lock_rec(ec);
+    if (current_lock_rec != recorded_lock_rec) {
+        rb_ec_vm_lock_rec_release(ec, recorded_lock_rec, current_lock_rec);
+    }
+}
+
 /* clear ec->tag->state, and return the value */
 static inline int
 rb_ec_tag_state(const rb_execution_context_t *ec)
 {
-    enum ruby_tag_type state = ec->tag->state;
-    ec->tag->state = TAG_NONE;
+    struct rb_vm_tag *tag = ec->tag;
+    enum ruby_tag_type state = tag->state;
+    tag->state = TAG_NONE;
+    rb_ec_vm_lock_rec_check(ec, tag->lock_rec);
     return state;
 }
 
@@ -268,7 +252,7 @@ VALUE rb_make_exception(int argc, const VALUE *argv);
 
 NORETURN(void rb_method_name_error(VALUE, VALUE));
 
-NORETURN(void rb_fiber_start(void));
+void rb_fiber_start(rb_fiber_t*);
 
 NORETURN(void rb_print_undef(VALUE, ID, rb_method_visibility_t));
 NORETURN(void rb_print_undef_str(VALUE, VALUE));
@@ -281,16 +265,25 @@ rb_cref_t *rb_vm_cref(void);
 rb_cref_t *rb_vm_cref_replace_with_duplicated_cref(void);
 VALUE rb_vm_call_cfunc(VALUE recv, VALUE (*func)(VALUE), VALUE arg, VALUE block_handler, VALUE filename);
 void rb_vm_set_progname(VALUE filename);
-void rb_thread_terminate_all(void);
 VALUE rb_vm_cbase(void);
 
 /* vm_backtrace.c */
 VALUE rb_ec_backtrace_object(const rb_execution_context_t *ec);
 VALUE rb_ec_backtrace_str_ary(const rb_execution_context_t *ec, long lev, long n);
+VALUE rb_ec_backtrace_location_ary(const rb_execution_context_t *ec, long lev, long n, bool skip_internal);
 
-#ifndef CharNext       /* defined as CharNext[AW] on Windows. */
+#ifndef CharNext		/* defined as CharNext[AW] on Windows. */
 # ifdef HAVE_MBLEN
-#  define CharNext(p) ((p) + mblen((p), RUBY_MBCHAR_MAXSIZE))
+#  define CharNext(p) rb_char_next(p)
+static inline char *
+rb_char_next(const char *p)
+{
+    if (p) {
+        int len = mblen(p, RUBY_MBCHAR_MAXSIZE);
+        p += len > 0 ? len : 1;
+    }
+    return (char *)p;
+}
 # else
 #  define CharNext(p) ((p) + 1)
 # endif
@@ -301,9 +294,9 @@ static inline void
 translit_char(char *p, int from, int to)
 {
     while (*p) {
-   if ((unsigned char)*p == from)
-       *p = to;
-   p = CharNext(p);
+	if ((unsigned char)*p == from)
+	    *p = to;
+	p = CharNext(p);
     }
 }
 #endif

data/lib/debase/ruby_core_source/{ruby-2.7.0-preview3 → ruby-3.1.0-preview1}/gc.h

@@ -1,17 +1,30 @@
-
 #ifndef RUBY_GC_H
 #define RUBY_GC_H 1
+#include "ruby/ruby.h"
 
 #if defined(__x86_64__) && !defined(_ILP32) && defined(__GNUC__)
 #define SET_MACHINE_STACK_END(p) __asm__ __volatile__ ("movq\t%%rsp, %0" : "=r" (*(p)))
 #elif defined(__i386) && defined(__GNUC__)
 #define SET_MACHINE_STACK_END(p) __asm__ __volatile__ ("movl\t%%esp, %0" : "=r" (*(p)))
+#elif (defined(__powerpc__) || defined(__powerpc64__)) && defined(__GNUC__) && !defined(_AIX)
+#define SET_MACHINE_STACK_END(p) __asm__ __volatile__ ("mr\t%0, %%r1" : "=r" (*(p)))
+#elif (defined(__powerpc__) || defined(__powerpc64__)) && defined(__GNUC__) && defined(_AIX)
+#define SET_MACHINE_STACK_END(p) __asm__ __volatile__ ("mr %0,1" : "=r" (*(p)))
+#elif defined(__aarch64__) && defined(__GNUC__)
+#define SET_MACHINE_STACK_END(p) __asm__ __volatile__ ("mov\t%0, sp" : "=r" (*(p)))
 #else
 NOINLINE(void rb_gc_set_stack_end(VALUE **stack_end_p));
 #define SET_MACHINE_STACK_END(p) rb_gc_set_stack_end(p)
 #define USE_CONSERVATIVE_STACK_END
 #endif
 
+#define RB_GC_SAVE_MACHINE_CONTEXT(th)				\
+    do {							\
+	FLUSH_REGISTER_WINDOWS;					\
+	setjmp((th)->ec->machine.regs);				\
+	SET_MACHINE_STACK_END(&(th)->ec->machine.stack_end);	\
+    } while (0)
+
 /* for GC debug */
 
 #ifndef RUBY_MARK_FREE_DEBUG
@@ -24,20 +37,20 @@ extern int ruby_gc_debug_indent;
 static inline void
 rb_gc_debug_indent(void)
 {
-    printf("%*s", ruby_gc_debug_indent, "");
+    ruby_debug_printf("%*s", ruby_gc_debug_indent, "");
 }
 
 static inline void
 rb_gc_debug_body(const char *mode, const char *msg, int st, void *ptr)
 {
     if (st == 0) {
-   ruby_gc_debug_indent--;
+	ruby_gc_debug_indent--;
     }
     rb_gc_debug_indent();
-    printf("%s: %s %s (%p)\n", mode, st ? "->" : "<-", msg, ptr);
+    ruby_debug_printf("%s: %s %s (%p)\n", mode, st ? "->" : "<-", msg, ptr);
 
     if (st) {
-   ruby_gc_debug_indent++;
+	ruby_gc_debug_indent++;
     }
 
     fflush(stdout);
@@ -47,7 +60,7 @@ rb_gc_debug_body(const char *mode, const char *msg, int st, void *ptr)
 #define RUBY_MARK_LEAVE(msg) rb_gc_debug_body("mark", (msg), 0, ptr)
 #define RUBY_FREE_ENTER(msg) rb_gc_debug_body("free", (msg), 1, ptr)
 #define RUBY_FREE_LEAVE(msg) rb_gc_debug_body("free", (msg), 0, ptr)
-#define RUBY_GC_INFO         rb_gc_debug_indent(); printf
+#define RUBY_GC_INFO         rb_gc_debug_indent(), ruby_debug_printf
 
 #else
 #define RUBY_MARK_ENTER(msg)
@@ -57,7 +70,7 @@ rb_gc_debug_body(const char *mode, const char *msg, int st, void *ptr)
 #define RUBY_GC_INFO if(0)printf
 #endif
 
-#define RUBY_MARK_NO_PIN_UNLESS_NULL(ptr) do { \
+#define RUBY_MARK_MOVABLE_UNLESS_NULL(ptr) do { \
     VALUE markobj = (ptr); \
     if (RTEST(markobj)) {rb_gc_mark_movable(markobj);} \
 } while (0)
@@ -74,10 +87,10 @@ rb_gc_debug_body(const char *mode, const char *msg, int st, void *ptr)
 #else
 RUBY_EXTERN int ruby_stack_grow_direction;
 int ruby_get_stack_grow_direction(volatile VALUE *addr);
-# define stack_growup_p(x) (           \
-   (ruby_stack_grow_direction ?        \
-    ruby_stack_grow_direction :        \
-    ruby_get_stack_grow_direction(x)) > 0)
+# define stack_growup_p(x) (			\
+	(ruby_stack_grow_direction ?		\
+	 ruby_stack_grow_direction :		\
+	 ruby_get_stack_grow_direction(x)) > 0)
 # define STACK_UPPER(x, a, b) (stack_growup_p(x) ? (a) : (b))
 #endif
 

data/lib/debase/ruby_core_source/{ruby-2.7.0-preview3 → ruby-3.1.0-preview1}/hrtime.h

@@ -17,15 +17,15 @@
  *
  * Current API:
  *
- * * rb_hrtime_now      - current clock value (monotonic if available)
- * * rb_hrtime_mul      - multiply with overflow check
- * * rb_hrtime_add      - add with overflow check
- * * rb_timeval2hrtime  - convert from timeval
- * * rb_timespec2hrtime - convert from timespec
- * * rb_msec2hrtime     - convert from millisecond
- * * rb_sec2hrtime      - convert from time_t (seconds)
- * * rb_hrtime2timeval  - convert to timeval
- * * rb_hrtime2timespec - convert to timespec
+ *	* rb_hrtime_now      - current clock value (monotonic if available)
+ *	* rb_hrtime_mul      - multiply with overflow check
+ *	* rb_hrtime_add      - add with overflow check
+ *	* rb_timeval2hrtime  - convert from timeval
+ *	* rb_timespec2hrtime - convert from timespec
+ *	* rb_msec2hrtime     - convert from millisecond
+ *	* rb_sec2hrtime      - convert from time_t (seconds)
+ *	* rb_hrtime2timeval  - convert to timeval
+ *	* rb_hrtime2timespec - convert to timespec
  *
  * Note: no conversion to milliseconds is provided here because different
  * functions have different limits (e.g. epoll_wait vs w32_wait_events).

data/lib/debase/ruby_core_source/{ruby-2.7.0-preview2 → ruby-3.1.0-preview1}/id.h

@@ -65,7 +65,6 @@ enum ruby_id_types {
 #define RUBY_TOKEN_ANDOP 148
 #define RUBY_TOKEN_OROP 149
 #define RUBY_TOKEN_ANDDOT 150
-#define RUBY_TOKEN_METHREF 151
 #define RUBY_TOKEN(t) RUBY_TOKEN_##t
 
 #define RUBY_TOKEN2ID_TYPE(tok, type) ((tok<<RUBY_ID_SCOPE_SHIFT)|type|RUBY_ID_STATIC_SYM)
@@ -109,8 +108,7 @@ enum ruby_method_ids {
     idANDOP = RUBY_TOKEN(ANDOP),
     idOROP = RUBY_TOKEN(OROP),
     idANDDOT = RUBY_TOKEN(ANDDOT),
-    idMETHREF = RUBY_TOKEN(METHREF),
-    tPRESERVED_ID_BEGIN = 151,
+    tPRESERVED_ID_BEGIN = 150,
     idNilP,
     idNULL,
     idEmptyP,
@@ -128,6 +126,7 @@ enum ruby_method_ids {
     id_core_hash_merge_ptr,
     id_core_hash_merge_kwd,
     id_core_raise,
+    id_core_sprintf,
     id_debug_created_info,
     tPRESERVED_ID_END,
     tTOKEN_LOCAL_BEGIN = tPRESERVED_ID_END-1,
@@ -155,6 +154,7 @@ enum ruby_method_ids {
     tSend,
     t__send__,
     t__attached__,
+    t__recursive_key__,
     tInitialize,
     tInitialize_copy,
     tInitialize_clone,
@@ -236,6 +236,7 @@ enum ruby_method_ids {
     DEFINE_LOCALID_FROM_TOKEN(Send),
     DEFINE_LOCALID_FROM_TOKEN(__send__),
     DEFINE_LOCALID_FROM_TOKEN(__attached__),
+    DEFINE_LOCALID_FROM_TOKEN(__recursive_key__),
     DEFINE_LOCALID_FROM_TOKEN(Initialize),
     DEFINE_LOCALID_FROM_TOKEN(Initialize_copy),
     DEFINE_LOCALID_FROM_TOKEN(Initialize_clone),

data/lib/debase/ruby_core_source/{ruby-2.7.0-preview3 → ruby-3.1.0-preview1}/id_table.h

@@ -1,5 +1,7 @@
 #ifndef RUBY_ID_TABLE_H
 #define RUBY_ID_TABLE_H 1
+#include "ruby/internal/config.h"
+#include <stddef.h>
 #include "ruby/ruby.h"
 
 struct rb_id_table;
@@ -31,4 +33,4 @@ void rb_id_table_foreach(struct rb_id_table *tbl, rb_id_table_foreach_func_t *fu
 void rb_id_table_foreach_with_replace(struct rb_id_table *tbl, rb_id_table_foreach_func_t *func, rb_id_table_update_callback_func_t *replace, void *data);
 void rb_id_table_foreach_values(struct rb_id_table *tbl, rb_id_table_foreach_values_func_t *func, void *data);
 
-#endif /* RUBY_ID_TABLE_H */
+#endif	/* RUBY_ID_TABLE_H */

data/lib/debase/ruby_core_source/{ruby-2.7.0-preview2 → ruby-3.1.0-preview1}/insns.inc

@@ -63,7 +63,6 @@ enum ruby_vminsn_type {
     BIN(putstring),
     BIN(concatstrings),
     BIN(tostring),
-    BIN(freezestring),
     BIN(toregexp),
     BIN(intern),
     BIN(newarray),
@@ -79,7 +78,6 @@ enum ruby_vminsn_type {
     BIN(dup),
     BIN(dupn),
     BIN(swap),
-    BIN(reverse),
     BIN(topn),
     BIN(setn),
     BIN(adjuststack),
@@ -87,7 +85,6 @@ enum ruby_vminsn_type {
     BIN(checkmatch),
     BIN(checkkeyword),
     BIN(checktype),
-    BIN(methodref),
     BIN(defineclass),
     BIN(definemethod),
     BIN(definesmethod),
@@ -134,7 +131,9 @@ enum ruby_vminsn_type {
     BIN(opt_succ),
     BIN(opt_not),
     BIN(opt_regexpmatch2),
-    BIN(opt_call_c_function),
+    BIN(invokebuiltin),
+    BIN(opt_invokebuiltin_delegate),
+    BIN(opt_invokebuiltin_delegate_leave),
     BIN(getlocal_WC_0),
     BIN(getlocal_WC_1),
     BIN(setlocal_WC_0),
@@ -164,7 +163,6 @@ enum ruby_vminsn_type {
     BIN(trace_putstring),
     BIN(trace_concatstrings),
     BIN(trace_tostring),
-    BIN(trace_freezestring),
     BIN(trace_toregexp),
     BIN(trace_intern),
     BIN(trace_newarray),
@@ -180,7 +178,6 @@ enum ruby_vminsn_type {
     BIN(trace_dup),
     BIN(trace_dupn),
     BIN(trace_swap),
-    BIN(trace_reverse),
     BIN(trace_topn),
     BIN(trace_setn),
     BIN(trace_adjuststack),
@@ -188,7 +185,6 @@ enum ruby_vminsn_type {
     BIN(trace_checkmatch),
     BIN(trace_checkkeyword),
     BIN(trace_checktype),
-    BIN(trace_methodref),
     BIN(trace_defineclass),
     BIN(trace_definemethod),
     BIN(trace_definesmethod),
@@ -235,7 +231,9 @@ enum ruby_vminsn_type {
     BIN(trace_opt_succ),
     BIN(trace_opt_not),
     BIN(trace_opt_regexpmatch2),
-    BIN(trace_opt_call_c_function),
+    BIN(trace_invokebuiltin),
+    BIN(trace_opt_invokebuiltin_delegate),
+    BIN(trace_opt_invokebuiltin_delegate_leave),
     BIN(trace_getlocal_WC_0),
     BIN(trace_getlocal_WC_1),
     BIN(trace_setlocal_WC_0),