debase-ruby_core_source 0.10.12 → 0.10.13

data/lib/debase/ruby_core_source/ruby-3.1.0-preview1/vm_sync.h

@@ -0,0 +1,137 @@
+#ifndef RUBY_VM_SYNC_H
+#define RUBY_VM_SYNC_H
+
+#include "vm_debug.h"
+#include "debug_counter.h"
+
+#if USE_RUBY_DEBUG_LOG
+#define LOCATION_ARGS const char *file, int line
+#define LOCATION_PARAMS file, line
+#define APPEND_LOCATION_ARGS , const char *file, int line
+#define APPEND_LOCATION_PARAMS , file, line
+#else
+#define LOCATION_ARGS void
+#define LOCATION_PARAMS
+#define APPEND_LOCATION_ARGS
+#define APPEND_LOCATION_PARAMS
+#endif
+
+bool rb_vm_locked_p(void);
+void rb_vm_lock_body(LOCATION_ARGS);
+void rb_vm_unlock_body(LOCATION_ARGS);
+
+struct rb_ractor_struct;
+void rb_vm_lock_enter_body_cr(struct rb_ractor_struct *cr, unsigned int *lev APPEND_LOCATION_ARGS);
+void rb_vm_lock_enter_body_nb(unsigned int *lev APPEND_LOCATION_ARGS);
+void rb_vm_lock_enter_body(unsigned int *lev APPEND_LOCATION_ARGS);
+void rb_vm_lock_leave_body(unsigned int *lev APPEND_LOCATION_ARGS);
+void rb_vm_barrier(void);
+
+#if RUBY_DEBUG
+// GET_VM()
+#include "vm_core.h"
+#endif
+
+RUBY_EXTERN struct rb_ractor_struct *ruby_single_main_ractor; // ractor.c
+
+static inline bool
+rb_multi_ractor_p(void)
+{
+    if (LIKELY(ruby_single_main_ractor)) {
+        // 0 on boot time.
+        RUBY_ASSERT(GET_VM()->ractor.cnt <= 1);
+        return false;
+    }
+    else {
+        // multi-ractor mode can run ractor.cnt == 1
+        return true;
+    }
+}
+
+static inline void
+rb_vm_lock(const char *file, int line)
+{
+    RB_DEBUG_COUNTER_INC(vm_sync_lock);
+
+    if (rb_multi_ractor_p()) {
+        rb_vm_lock_body(LOCATION_PARAMS);
+    }
+}
+
+static inline void
+rb_vm_unlock(const char *file, int line)
+{
+    if (rb_multi_ractor_p()) {
+        rb_vm_unlock_body(LOCATION_PARAMS);
+    }
+}
+
+static inline void
+rb_vm_lock_enter(unsigned int *lev, const char *file, int line)
+{
+    RB_DEBUG_COUNTER_INC(vm_sync_lock_enter);
+
+    if (rb_multi_ractor_p()) {
+        rb_vm_lock_enter_body(lev APPEND_LOCATION_PARAMS);
+    }
+}
+
+static inline void
+rb_vm_lock_enter_nb(unsigned int *lev, const char *file, int line)
+{
+    RB_DEBUG_COUNTER_INC(vm_sync_lock_enter_nb);
+
+    if (rb_multi_ractor_p()) {
+        rb_vm_lock_enter_body_nb(lev APPEND_LOCATION_PARAMS);
+    }
+}
+
+static inline void
+rb_vm_lock_leave(unsigned int *lev, const char *file, int line)
+{
+    if (rb_multi_ractor_p()) {
+        rb_vm_lock_leave_body(lev APPEND_LOCATION_PARAMS);
+    }
+}
+
+static inline void
+rb_vm_lock_enter_cr(struct rb_ractor_struct *cr, unsigned int *levp, const char *file, int line)
+{
+    RB_DEBUG_COUNTER_INC(vm_sync_lock_enter_cr);
+    rb_vm_lock_enter_body_cr(cr, levp APPEND_LOCATION_PARAMS);
+}
+
+static inline void
+rb_vm_lock_leave_cr(struct rb_ractor_struct *cr, unsigned int *levp, const char *file, int line)
+{
+    rb_vm_lock_leave_body(levp APPEND_LOCATION_PARAMS);
+}
+
+#define RB_VM_LOCKED_P()   rb_vm_locked_p()
+
+#define RB_VM_LOCK()       rb_vm_lock(__FILE__, __LINE__)
+#define RB_VM_UNLOCK()     rb_vm_unlock(__FILE__, __LINE__)
+
+#define RB_VM_LOCK_ENTER_CR_LEV(cr, levp) rb_vm_lock_enter_cr(cr, levp, __FILE__, __LINE__)
+#define RB_VM_LOCK_LEAVE_CR_LEV(cr, levp) rb_vm_lock_leave_cr(cr, levp, __FILE__, __LINE__)
+#define RB_VM_LOCK_ENTER_LEV(levp) rb_vm_lock_enter(levp, __FILE__, __LINE__)
+#define RB_VM_LOCK_LEAVE_LEV(levp) rb_vm_lock_leave(levp, __FILE__, __LINE__)
+
+#define RB_VM_LOCK_ENTER()  { unsigned int _lev; RB_VM_LOCK_ENTER_LEV(&_lev);
+#define RB_VM_LOCK_LEAVE()    RB_VM_LOCK_LEAVE_LEV(&_lev); }
+
+#define RB_VM_LOCK_ENTER_LEV_NB(levp) rb_vm_lock_enter_nb(levp, __FILE__, __LINE__)
+#define RB_VM_LOCK_ENTER_NO_BARRIER()  { unsigned int _lev; RB_VM_LOCK_ENTER_LEV_NB(&_lev);
+#define RB_VM_LOCK_LEAVE_NO_BARRIER()    RB_VM_LOCK_LEAVE_LEV(&_lev); }
+
+#if RUBY_DEBUG > 0
+void RUBY_ASSERT_vm_locking(void);
+void RUBY_ASSERT_vm_unlocking(void);
+#define ASSERT_vm_locking() RUBY_ASSERT_vm_locking()
+#define ASSERT_vm_unlocking() RUBY_ASSERT_vm_unlocking()
+#else
+#define ASSERT_vm_locking()
+#define ASSERT_vm_unlocking()
+#endif
+
+#endif // RUBY_VM_SYNC_H

data/lib/debase/ruby_core_source/ruby-3.1.0-preview1/vmtc.inc

@@ -0,0 +1,241 @@
+/* -*- C -*- */
+
+/* This is  an auto-generated file  and is a  part of the  programming language
+ * Ruby.   The person  who  created  a program  to  generate  this file  (``I''
+ * hereafter) would like  to refrain from defining licensing  of this generated
+ * source code.
+ *
+ * This file consists of many small  parts of codes copyrighted by each author,
+ * not  only  the  ``I''  person.   Those  original  authors  agree  with  some
+ * open-source license.  I  believe that the license we agree  is the condition
+ * mentioned in  the file COPYING.  It  states "4.  You may  modify and include
+ * the part of the software into any  other software ...".  But the problem is,
+ * the license never makes it clear if  such modified parts still remain in the
+ * same  license, or  not.   The fact  that  we agree  with  the source  code's
+ * licensing terms does not automatically  define that of generated ones.  This
+ * is the reason why this file is  under an unclear situation.  All what I know
+ * is that above provision guarantees this file to exist.
+ *
+ * Please let me hesitate to declare  something about this nuanced contract.  I
+ * am not in the position to take  over other authors' license to merge into my
+ * one.  Changing them to (say) GPLv3 is not doable by myself.  Perhaps someday
+ * it might turn  out to be okay to  say this file is under a  license.  I wish
+ * the situation would become more clear in the future. */
+/*******************************************************************/
+/*******************************************************************/
+/*******************************************************************/
+/**
+  This file is for threaded code.
+
+  ----
+  This file is auto generated by insns2vm.rb
+  DO NOT TOUCH!
+
+  If you want to fix something, you must edit "tool/ruby_vm/views/vmtc.inc.erb"
+  or tool/insns2vm.rb
+ */
+
+static const void *const insns_address_table[] = {
+    LABEL_PTR(nop),
+    LABEL_PTR(getlocal),
+    LABEL_PTR(setlocal),
+    LABEL_PTR(getblockparam),
+    LABEL_PTR(setblockparam),
+    LABEL_PTR(getblockparamproxy),
+    LABEL_PTR(getspecial),
+    LABEL_PTR(setspecial),
+    LABEL_PTR(getinstancevariable),
+    LABEL_PTR(setinstancevariable),
+    LABEL_PTR(getclassvariable),
+    LABEL_PTR(setclassvariable),
+    LABEL_PTR(getconstant),
+    LABEL_PTR(setconstant),
+    LABEL_PTR(getglobal),
+    LABEL_PTR(setglobal),
+    LABEL_PTR(putnil),
+    LABEL_PTR(putself),
+    LABEL_PTR(putobject),
+    LABEL_PTR(putspecialobject),
+    LABEL_PTR(putstring),
+    LABEL_PTR(concatstrings),
+    LABEL_PTR(tostring),
+    LABEL_PTR(toregexp),
+    LABEL_PTR(intern),
+    LABEL_PTR(newarray),
+    LABEL_PTR(newarraykwsplat),
+    LABEL_PTR(duparray),
+    LABEL_PTR(duphash),
+    LABEL_PTR(expandarray),
+    LABEL_PTR(concatarray),
+    LABEL_PTR(splatarray),
+    LABEL_PTR(newhash),
+    LABEL_PTR(newrange),
+    LABEL_PTR(pop),
+    LABEL_PTR(dup),
+    LABEL_PTR(dupn),
+    LABEL_PTR(swap),
+    LABEL_PTR(topn),
+    LABEL_PTR(setn),
+    LABEL_PTR(adjuststack),
+    LABEL_PTR(defined),
+    LABEL_PTR(checkmatch),
+    LABEL_PTR(checkkeyword),
+    LABEL_PTR(checktype),
+    LABEL_PTR(defineclass),
+    LABEL_PTR(definemethod),
+    LABEL_PTR(definesmethod),
+    LABEL_PTR(send),
+    LABEL_PTR(opt_send_without_block),
+    LABEL_PTR(opt_str_freeze),
+    LABEL_PTR(opt_nil_p),
+    LABEL_PTR(opt_str_uminus),
+    LABEL_PTR(opt_newarray_max),
+    LABEL_PTR(opt_newarray_min),
+    LABEL_PTR(invokesuper),
+    LABEL_PTR(invokeblock),
+    LABEL_PTR(leave),
+    LABEL_PTR(throw),
+    LABEL_PTR(jump),
+    LABEL_PTR(branchif),
+    LABEL_PTR(branchunless),
+    LABEL_PTR(branchnil),
+    LABEL_PTR(opt_getinlinecache),
+    LABEL_PTR(opt_setinlinecache),
+    LABEL_PTR(once),
+    LABEL_PTR(opt_case_dispatch),
+    LABEL_PTR(opt_plus),
+    LABEL_PTR(opt_minus),
+    LABEL_PTR(opt_mult),
+    LABEL_PTR(opt_div),
+    LABEL_PTR(opt_mod),
+    LABEL_PTR(opt_eq),
+    LABEL_PTR(opt_neq),
+    LABEL_PTR(opt_lt),
+    LABEL_PTR(opt_le),
+    LABEL_PTR(opt_gt),
+    LABEL_PTR(opt_ge),
+    LABEL_PTR(opt_ltlt),
+    LABEL_PTR(opt_and),
+    LABEL_PTR(opt_or),
+    LABEL_PTR(opt_aref),
+    LABEL_PTR(opt_aset),
+    LABEL_PTR(opt_aset_with),
+    LABEL_PTR(opt_aref_with),
+    LABEL_PTR(opt_length),
+    LABEL_PTR(opt_size),
+    LABEL_PTR(opt_empty_p),
+    LABEL_PTR(opt_succ),
+    LABEL_PTR(opt_not),
+    LABEL_PTR(opt_regexpmatch2),
+    LABEL_PTR(invokebuiltin),
+    LABEL_PTR(opt_invokebuiltin_delegate),
+    LABEL_PTR(opt_invokebuiltin_delegate_leave),
+    LABEL_PTR(getlocal_WC_0),
+    LABEL_PTR(getlocal_WC_1),
+    LABEL_PTR(setlocal_WC_0),
+    LABEL_PTR(setlocal_WC_1),
+    LABEL_PTR(putobject_INT2FIX_0_),
+    LABEL_PTR(putobject_INT2FIX_1_),
+    LABEL_PTR(trace_nop),
+    LABEL_PTR(trace_getlocal),
+    LABEL_PTR(trace_setlocal),
+    LABEL_PTR(trace_getblockparam),
+    LABEL_PTR(trace_setblockparam),
+    LABEL_PTR(trace_getblockparamproxy),
+    LABEL_PTR(trace_getspecial),
+    LABEL_PTR(trace_setspecial),
+    LABEL_PTR(trace_getinstancevariable),
+    LABEL_PTR(trace_setinstancevariable),
+    LABEL_PTR(trace_getclassvariable),
+    LABEL_PTR(trace_setclassvariable),
+    LABEL_PTR(trace_getconstant),
+    LABEL_PTR(trace_setconstant),
+    LABEL_PTR(trace_getglobal),
+    LABEL_PTR(trace_setglobal),
+    LABEL_PTR(trace_putnil),
+    LABEL_PTR(trace_putself),
+    LABEL_PTR(trace_putobject),
+    LABEL_PTR(trace_putspecialobject),
+    LABEL_PTR(trace_putstring),
+    LABEL_PTR(trace_concatstrings),
+    LABEL_PTR(trace_tostring),
+    LABEL_PTR(trace_toregexp),
+    LABEL_PTR(trace_intern),
+    LABEL_PTR(trace_newarray),
+    LABEL_PTR(trace_newarraykwsplat),
+    LABEL_PTR(trace_duparray),
+    LABEL_PTR(trace_duphash),
+    LABEL_PTR(trace_expandarray),
+    LABEL_PTR(trace_concatarray),
+    LABEL_PTR(trace_splatarray),
+    LABEL_PTR(trace_newhash),
+    LABEL_PTR(trace_newrange),
+    LABEL_PTR(trace_pop),
+    LABEL_PTR(trace_dup),
+    LABEL_PTR(trace_dupn),
+    LABEL_PTR(trace_swap),
+    LABEL_PTR(trace_topn),
+    LABEL_PTR(trace_setn),
+    LABEL_PTR(trace_adjuststack),
+    LABEL_PTR(trace_defined),
+    LABEL_PTR(trace_checkmatch),
+    LABEL_PTR(trace_checkkeyword),
+    LABEL_PTR(trace_checktype),
+    LABEL_PTR(trace_defineclass),
+    LABEL_PTR(trace_definemethod),
+    LABEL_PTR(trace_definesmethod),
+    LABEL_PTR(trace_send),
+    LABEL_PTR(trace_opt_send_without_block),
+    LABEL_PTR(trace_opt_str_freeze),
+    LABEL_PTR(trace_opt_nil_p),
+    LABEL_PTR(trace_opt_str_uminus),
+    LABEL_PTR(trace_opt_newarray_max),
+    LABEL_PTR(trace_opt_newarray_min),
+    LABEL_PTR(trace_invokesuper),
+    LABEL_PTR(trace_invokeblock),
+    LABEL_PTR(trace_leave),
+    LABEL_PTR(trace_throw),
+    LABEL_PTR(trace_jump),
+    LABEL_PTR(trace_branchif),
+    LABEL_PTR(trace_branchunless),
+    LABEL_PTR(trace_branchnil),
+    LABEL_PTR(trace_opt_getinlinecache),
+    LABEL_PTR(trace_opt_setinlinecache),
+    LABEL_PTR(trace_once),
+    LABEL_PTR(trace_opt_case_dispatch),
+    LABEL_PTR(trace_opt_plus),
+    LABEL_PTR(trace_opt_minus),
+    LABEL_PTR(trace_opt_mult),
+    LABEL_PTR(trace_opt_div),
+    LABEL_PTR(trace_opt_mod),
+    LABEL_PTR(trace_opt_eq),
+    LABEL_PTR(trace_opt_neq),
+    LABEL_PTR(trace_opt_lt),
+    LABEL_PTR(trace_opt_le),
+    LABEL_PTR(trace_opt_gt),
+    LABEL_PTR(trace_opt_ge),
+    LABEL_PTR(trace_opt_ltlt),
+    LABEL_PTR(trace_opt_and),
+    LABEL_PTR(trace_opt_or),
+    LABEL_PTR(trace_opt_aref),
+    LABEL_PTR(trace_opt_aset),
+    LABEL_PTR(trace_opt_aset_with),
+    LABEL_PTR(trace_opt_aref_with),
+    LABEL_PTR(trace_opt_length),
+    LABEL_PTR(trace_opt_size),
+    LABEL_PTR(trace_opt_empty_p),
+    LABEL_PTR(trace_opt_succ),
+    LABEL_PTR(trace_opt_not),
+    LABEL_PTR(trace_opt_regexpmatch2),
+    LABEL_PTR(trace_invokebuiltin),
+    LABEL_PTR(trace_opt_invokebuiltin_delegate),
+    LABEL_PTR(trace_opt_invokebuiltin_delegate_leave),
+    LABEL_PTR(trace_getlocal_WC_0),
+    LABEL_PTR(trace_getlocal_WC_1),
+    LABEL_PTR(trace_setlocal_WC_0),
+    LABEL_PTR(trace_setlocal_WC_1),
+    LABEL_PTR(trace_putobject_INT2FIX_0_),
+    LABEL_PTR(trace_putobject_INT2FIX_1_),
+};
+
+ASSERT_VM_INSTRUCTION_SIZE(insns_address_table);

data/lib/debase/ruby_core_source/ruby-3.1.0-preview1/yjit.h

@@ -0,0 +1,63 @@
+#ifndef YJIT_H
+#define YJIT_H 1
+//
+// This file contains definitions YJIT exposes to the CRuby codebase
+//
+
+#include "ruby/internal/config.h"
+#include "ruby_assert.h" // for RUBY_DEBUG
+#include "vm_core.h"
+#include "method.h"
+
+// YJIT_STATS controls whether to support runtime counters in generated code
+// and in the interpreter.
+#ifndef YJIT_STATS
+# define YJIT_STATS RUBY_DEBUG
+#endif
+
+struct rb_yjit_options {
+    // Enable compilation with YJIT
+    bool yjit_enabled;
+
+    // Size of the executable memory block to allocate in MiB
+    unsigned exec_mem_size;
+
+    // Number of method calls after which to start generating code
+    // Threshold==1 means compile on first execution
+    unsigned call_threshold;
+
+    // Generate versions greedily until the limit is hit
+    bool greedy_versioning;
+
+    // Maximum number of versions per block
+    // 1 means always create generic versions
+    unsigned max_versions;
+
+    // Capture and print out stats
+    bool gen_stats;
+
+    // Run backend tests
+    bool test_backend;
+};
+
+bool rb_yjit_enabled_p(void);
+unsigned rb_yjit_call_threshold(void);
+
+void rb_yjit_invalidate_all_method_lookup_assumptions(void);
+void rb_yjit_method_lookup_change(VALUE klass, ID mid);
+void rb_yjit_cme_invalidate(VALUE cme);
+void rb_yjit_collect_vm_usage_insn(int insn);
+void rb_yjit_collect_binding_alloc(void);
+void rb_yjit_collect_binding_set(void);
+bool rb_yjit_compile_iseq(const rb_iseq_t *iseq, rb_execution_context_t *ec);
+void rb_yjit_init(struct rb_yjit_options *options);
+void rb_yjit_bop_redefined(VALUE klass, const rb_method_entry_t *me, enum ruby_basic_operators bop);
+void rb_yjit_constant_state_changed(void);
+void rb_yjit_iseq_mark(const struct rb_iseq_constant_body *body);
+void rb_yjit_iseq_update_references(const struct rb_iseq_constant_body *body);
+void rb_yjit_iseq_free(const struct rb_iseq_constant_body *body);
+void rb_yjit_before_ractor_spawn(void);
+void rb_yjit_constant_ic_update(const rb_iseq_t *iseq, IC ic);
+void rb_yjit_tracing_invalidate_all(void);
+
+#endif // #ifndef YJIT_H