debase-ruby_core_source 0.10.18 → 3.2.1

data/lib/debase/ruby_core_source/ruby-3.2.0-preview1/yjit_core.h

@@ -1,307 +0,0 @@
-#ifndef YJIT_CORE_H
-#define YJIT_CORE_H 1
-
-#include <stddef.h>
-#include <stdint.h>
-#include "yjit_asm.h"
-
-// Callee-saved regs
-#define REG_CFP R13
-#define REG_EC R12
-#define REG_SP RBX
-
-// Scratch registers used by YJIT
-#define REG0 RAX
-#define REG0_32 EAX
-#define REG0_8 AL
-#define REG1 RCX
-#define REG1_32 ECX
-
-// Maximum number of temp value types we keep track of
-#define MAX_TEMP_TYPES 8
-
-// Maximum number of local variable types we keep track of
-#define MAX_LOCAL_TYPES 8
-
-// Default versioning context (no type information)
-#define DEFAULT_CTX ( (ctx_t){ 0 } )
-
-enum yjit_type_enum
-{
-    ETYPE_UNKNOWN = 0,
-    ETYPE_NIL,
-    ETYPE_TRUE,
-    ETYPE_FALSE,
-    ETYPE_FIXNUM,
-    ETYPE_FLONUM,
-    ETYPE_ARRAY,
-    ETYPE_HASH,
-    ETYPE_SYMBOL,
-    ETYPE_STRING
-};
-
-// Represent the type of a value (local/stack/self) in YJIT
-typedef struct yjit_type_struct
-{
-    // Value is definitely a heap object
-    uint8_t is_heap : 1;
-
-    // Value is definitely an immediate
-    uint8_t is_imm : 1;
-
-    // Specific value type, if known
-    uint8_t type : 4;
-
-} val_type_t;
-STATIC_ASSERT(val_type_size, sizeof(val_type_t) == 1);
-
-// Unknown type, could be anything, all zeroes
-#define TYPE_UNKNOWN ( (val_type_t){ 0 } )
-
-// Could be any heap object
-#define TYPE_HEAP ( (val_type_t){ .is_heap = 1 } )
-
-// Could be any immediate
-#define TYPE_IMM ( (val_type_t){ .is_imm = 1 } )
-
-#define TYPE_NIL ( (val_type_t){ .is_imm = 1, .type = ETYPE_NIL } )
-#define TYPE_TRUE ( (val_type_t){ .is_imm = 1, .type = ETYPE_TRUE } )
-#define TYPE_FALSE ( (val_type_t){ .is_imm = 1, .type = ETYPE_FALSE } )
-#define TYPE_FIXNUM ( (val_type_t){ .is_imm = 1, .type = ETYPE_FIXNUM } )
-#define TYPE_FLONUM ( (val_type_t){ .is_imm = 1, .type = ETYPE_FLONUM } )
-#define TYPE_STATIC_SYMBOL ( (val_type_t){ .is_imm = 1, .type = ETYPE_SYMBOL } )
-#define TYPE_ARRAY ( (val_type_t){ .is_heap = 1, .type = ETYPE_ARRAY } )
-#define TYPE_HASH ( (val_type_t){ .is_heap = 1, .type = ETYPE_HASH } )
-#define TYPE_STRING ( (val_type_t){ .is_heap = 1, .type = ETYPE_STRING } )
-
-enum yjit_temp_loc
-{
-    TEMP_STACK = 0,
-    TEMP_SELF,
-    TEMP_LOCAL,     // Local with index
-    //TEMP_CONST,   // Small constant (0, 1, 2, Qnil, Qfalse, Qtrue)
-};
-
-// Potential mapping of a value on the temporary stack to
-// self, a local variable or constant so that we can track its type
-typedef struct yjit_temp_mapping
-{
-    // Where/how is the value stored?
-    uint8_t kind: 2;
-
-    // Index of the local variale,
-    // or small non-negative constant in [0, 63]
-    uint8_t idx : 6;
-
-} temp_mapping_t;
-STATIC_ASSERT(temp_mapping_size, sizeof(temp_mapping_t) == 1);
-
-// By default, temps are just temps on the stack.
-// Name conflict with an mmap flag. This is a struct instance,
-// so the compiler will check for wrong usage.
-#undef MAP_STACK
-#define MAP_STACK ( (temp_mapping_t) { 0 } )
-
-// Temp value is actually self
-#define MAP_SELF ( (temp_mapping_t) { .kind = TEMP_SELF } )
-
-// Represents both the type and mapping
-typedef struct {
-    temp_mapping_t mapping;
-    val_type_t type;
-} temp_type_mapping_t;
-STATIC_ASSERT(temp_type_mapping_size, sizeof(temp_type_mapping_t) == 2);
-
-// Operand to a bytecode instruction
-typedef struct yjit_insn_opnd
-{
-    // Indicates if the value is self
-    bool is_self;
-
-    // Index on the temporary stack (for stack operands only)
-    uint16_t idx;
-
-} insn_opnd_t;
-
-#define OPND_SELF ( (insn_opnd_t){ .is_self = true } )
-#define OPND_STACK(stack_idx) ( (insn_opnd_t){ .is_self = false, .idx = stack_idx } )
-
-/**
-Code generation context
-Contains information we can use to optimize code
-*/
-typedef struct yjit_context
-{
-    // Number of values currently on the temporary stack
-    uint16_t stack_size;
-
-    // Offset of the JIT SP relative to the interpreter SP
-    // This represents how far the JIT's SP is from the "real" SP
-    int16_t sp_offset;
-
-    // Depth of this block in the sidechain (eg: inline-cache chain)
-    uint8_t chain_depth;
-
-    // Local variable types we keepp track of
-    val_type_t local_types[MAX_LOCAL_TYPES];
-
-    // Temporary variable types we keep track of
-    val_type_t temp_types[MAX_TEMP_TYPES];
-
-    // Type we track for self
-    val_type_t self_type;
-
-    // Mapping of temp stack entries to types we track
-    temp_mapping_t temp_mapping[MAX_TEMP_TYPES];
-
-} ctx_t;
-STATIC_ASSERT(yjit_ctx_size, sizeof(ctx_t) <= 32);
-
-// Tuple of (iseq, idx) used to identify basic blocks
-typedef struct BlockId
-{
-    // Instruction sequence
-    const rb_iseq_t *iseq;
-
-    // Index in the iseq where the block starts
-    uint32_t idx;
-
-} blockid_t;
-
-// Null block id constant
-static const blockid_t BLOCKID_NULL = { 0, 0 };
-
-/// Branch code shape enumeration
-typedef enum branch_shape
-{
-    SHAPE_NEXT0,  // Target 0 is next
-    SHAPE_NEXT1,  // Target 1 is next
-    SHAPE_DEFAULT // Neither target is next
-} branch_shape_t;
-
-// Branch code generation function signature
-typedef void (*branchgen_fn)(codeblock_t* cb, uint8_t* target0, uint8_t* target1, uint8_t shape);
-
-/**
-Store info about an outgoing branch in a code segment
-Note: care must be taken to minimize the size of branch_t objects
-*/
-typedef struct yjit_branch_entry
-{
-    // Block this is attached to
-    struct yjit_block_version *block;
-
-    // Positions where the generated code starts and ends
-    uint8_t *start_addr;
-    uint8_t *end_addr;
-
-    // Context right after the branch instruction
-    // Unused for now.
-    // ctx_t src_ctx;
-
-    // Branch target blocks and their contexts
-    blockid_t targets[2];
-    ctx_t target_ctxs[2];
-    struct yjit_block_version *blocks[2];
-
-    // Jump target addresses
-    uint8_t *dst_addrs[2];
-
-    // Branch code generation function
-    branchgen_fn gen_fn;
-
-    // Shape of the branch
-    branch_shape_t shape : 2;
-
-} branch_t;
-
-// In case this block is invalidated, these two pieces of info
-// help to remove all pointers to this block in the system.
-typedef struct {
-    VALUE receiver_klass;
-    VALUE callee_cme;
-} cme_dependency_t;
-
-typedef rb_darray(cme_dependency_t) cme_dependency_array_t;
-
-typedef rb_darray(branch_t*) branch_array_t;
-
-typedef rb_darray(uint32_t) int32_array_t;
-
-/**
-Basic block version
-Represents a portion of an iseq compiled with a given context
-Note: care must be taken to minimize the size of block_t objects
-*/
-typedef struct yjit_block_version
-{
-    // Bytecode sequence (iseq, idx) this is a version of
-    blockid_t blockid;
-
-    // Context at the start of the block
-    ctx_t ctx;
-
-    // Positions where the generated code starts and ends
-    uint8_t *start_addr;
-    uint8_t *end_addr;
-
-    // List of incoming branches (from predecessors)
-    branch_array_t incoming;
-
-    // List of outgoing branches (to successors)
-    // Note: these are owned by this block version
-    branch_array_t outgoing;
-
-    // Offsets for GC managed objects in the mainline code block
-    int32_array_t gc_object_offsets;
-
-    // CME dependencies of this block, to help to remove all pointers to this
-    // block in the system.
-    cme_dependency_array_t cme_dependencies;
-
-    // Code address of an exit for `ctx` and `blockid`. Used for block
-    // invalidation.
-    uint8_t *entry_exit;
-
-    // Index one past the last instruction in the iseq
-    uint32_t end_idx;
-
-} block_t;
-
-// Code generation state
-typedef struct JITState
-{
-    // Inline and outlined code blocks we are
-    // currently generating code into
-    codeblock_t* cb;
-    codeblock_t* ocb;
-
-    // Block version being compiled
-    block_t *block;
-
-    // Instruction sequence this is associated with
-    const rb_iseq_t *iseq;
-
-    // Index of the current instruction being compiled
-    uint32_t insn_idx;
-
-    // Opcode for the instruction being compiled
-    int opcode;
-
-    // PC of the instruction being compiled
-    VALUE *pc;
-
-    // Side exit to the instruction being compiled. See :side-exit:.
-    uint8_t *side_exit_for_pc;
-
-    // Execution context when compilation started
-    // This allows us to peek at run-time values
-    rb_execution_context_t *ec;
-
-    // Whether we need to record the code address at
-    // the end of this bytecode instruction for global invalidation
-    bool record_boundary_patch_point;
-
-} jitstate_t;
-
-#endif // #ifndef YJIT_CORE_H

data/lib/debase/ruby_core_source/ruby-3.2.0-preview1/yjit_iface.h

@@ -1,38 +0,0 @@
-//
-// These are definitions YJIT uses to interface with the CRuby codebase,
-// but which are only used internally by YJIT.
-//
-
-#ifndef YJIT_IFACE_H
-#define YJIT_IFACE_H 1
-
-#include "ruby/internal/config.h"
-#include "ruby_assert.h" // for RUBY_DEBUG
-#include "yjit.h" // for YJIT_STATS
-#include "vm_core.h"
-#include "yjit_core.h"
-
-#ifndef YJIT_DEFAULT_CALL_THRESHOLD
-# define YJIT_DEFAULT_CALL_THRESHOLD 10
-#endif
-
-RUBY_EXTERN struct rb_yjit_options rb_yjit_opts;
-
-static VALUE *yjit_iseq_pc_at_idx(const rb_iseq_t *iseq, uint32_t insn_idx);
-static int yjit_opcode_at_pc(const rb_iseq_t *iseq, const VALUE *pc);
-static void yjit_print_iseq(const rb_iseq_t *iseq);
-
-#if YJIT_STATS
-// this function *must* return passed exit_pc
-static const VALUE *yjit_count_side_exit_op(const VALUE *exit_pc);
-#endif
-
-static void yjit_unlink_method_lookup_dependency(block_t *block);
-static void yjit_block_assumptions_free(block_t *block);
-
-static VALUE yjit_get_code_page(uint32_t cb_bytes_needed, uint32_t ocb_bytes_needed);
-//code_page_t *rb_yjit_code_page_unwrap(VALUE cp_obj);
-//void rb_yjit_get_cb(codeblock_t* cb, uint8_t* code_ptr);
-//void rb_yjit_get_ocb(codeblock_t* cb, uint8_t* code_ptr);
-
-#endif // #ifndef YJIT_IFACE_H

data/lib/debase/ruby_core_source/ruby-3.2.0-preview2/ccan/check_type/check_type.h

@@ -1,63 +0,0 @@
-/* CC0 (Public domain) - see ccan/licenses/CC0 file for details */
-#ifndef CCAN_CHECK_TYPE_H
-#define CCAN_CHECK_TYPE_H
-
-/**
- * ccan_check_type - issue a warning or build failure if type is not correct.
- * @expr: the expression whose type we should check (not evaluated).
- * @type: the exact type we expect the expression to be.
- *
- * This macro is usually used within other macros to try to ensure that a macro
- * argument is of the expected type.  No type promotion of the expression is
- * done: an unsigned int is not the same as an int!
- *
- * ccan_check_type() always evaluates to 0.
- *
- * If your compiler does not support typeof, then the best we can do is fail
- * to compile if the sizes of the types are unequal (a less complete check).
- *
- * Example:
- *	// They should always pass a 64-bit value to _set_some_value!
- *	#define set_some_value(expr)			\
- *		_set_some_value((ccan_check_type((expr), uint64_t), (expr)))
- */
-
-/**
- * ccan_check_types_match - issue a warning or build failure if types are not same.
- * @expr1: the first expression (not evaluated).
- * @expr2: the second expression (not evaluated).
- *
- * This macro is usually used within other macros to try to ensure that
- * arguments are of identical types.  No type promotion of the expressions is
- * done: an unsigned int is not the same as an int!
- *
- * ccan_check_types_match() always evaluates to 0.
- *
- * If your compiler does not support typeof, then the best we can do is fail
- * to compile if the sizes of the types are unequal (a less complete check).
- *
- * Example:
- *	// Do subtraction to get to enclosing type, but make sure that
- *	// pointer is of correct type for that member.
- *	#define ccan_container_of(mbr_ptr, encl_type, mbr)			\
- *		(ccan_check_types_match((mbr_ptr), &((encl_type *)0)->mbr),	\
- *		 ((encl_type *)						\
- *		  ((char *)(mbr_ptr) - offsetof(enclosing_type, mbr))))
- */
-#if HAVE_TYPEOF
-#define ccan_check_type(expr, type)			\
-	((typeof(expr) *)0 != (type *)0)
-
-#define ccan_check_types_match(expr1, expr2)		\
-	((typeof(expr1) *)0 != (typeof(expr2) *)0)
-#else
-#include "ccan/build_assert/build_assert.h"
-/* Without typeof, we can only test the sizes. */
-#define ccan_check_type(expr, type)					\
-	CCAN_BUILD_ASSERT_OR_ZERO(sizeof(expr) == sizeof(type))
-
-#define ccan_check_types_match(expr1, expr2)				\
-	CCAN_BUILD_ASSERT_OR_ZERO(sizeof(expr1) == sizeof(expr2))
-#endif /* HAVE_TYPEOF */
-
-#endif /* CCAN_CHECK_TYPE_H */

data/lib/debase/ruby_core_source/ruby-3.2.0-preview2/ccan/container_of/container_of.h

@@ -1,142 +0,0 @@
-/* CC0 (Public domain) - see ccan/licenses/CC0 file for details */
-#ifndef CCAN_CONTAINER_OF_H
-#define CCAN_CONTAINER_OF_H
-#include "ccan/check_type/check_type.h"
-
-/**
- * ccan_container_of - get pointer to enclosing structure
- * @member_ptr: pointer to the structure member
- * @containing_type: the type this member is within
- * @member: the name of this member within the structure.
- *
- * Given a pointer to a member of a structure, this macro does pointer
- * subtraction to return the pointer to the enclosing type.
- *
- * Example:
- *	struct foo {
- *		int fielda, fieldb;
- *		// ...
- *	};
- *	struct info {
- *		int some_other_field;
- *		struct foo my_foo;
- *	};
- *
- *	static struct info *foo_to_info(struct foo *foo)
- *	{
- *		return ccan_container_of(foo, struct info, my_foo);
- *	}
- */
-#define ccan_container_of(member_ptr, containing_type, member)		\
-	 ((containing_type *)						\
-	  ((char *)(member_ptr)						\
-	   - ccan_container_off(containing_type, member))		\
-	  + ccan_check_types_match(*(member_ptr), ((containing_type *)0)->member))
-
-
-/**
- * ccan_container_of_or_null - get pointer to enclosing structure, or NULL
- * @member_ptr: pointer to the structure member
- * @containing_type: the type this member is within
- * @member: the name of this member within the structure.
- *
- * Given a pointer to a member of a structure, this macro does pointer
- * subtraction to return the pointer to the enclosing type, unless it
- * is given NULL, in which case it also returns NULL.
- *
- * Example:
- *	struct foo {
- *		int fielda, fieldb;
- *		// ...
- *	};
- *	struct info {
- *		int some_other_field;
- *		struct foo my_foo;
- *	};
- *
- *	static struct info *foo_to_info_allowing_null(struct foo *foo)
- *	{
- *		return ccan_container_of_or_null(foo, struct info, my_foo);
- *	}
- */
-static inline char *container_of_or_null_(void *member_ptr, size_t offset)
-{
-	return member_ptr ? (char *)member_ptr - offset : NULL;
-}
-#define ccan_container_of_or_null(member_ptr, containing_type, member)	\
-	((containing_type *)						\
-	 ccan_container_of_or_null_(member_ptr,				\
-			       ccan_container_off(containing_type, member))	\
-	 + ccan_check_types_match(*(member_ptr), ((containing_type *)0)->member))
-
-/**
- * ccan_container_off - get offset to enclosing structure
- * @containing_type: the type this member is within
- * @member: the name of this member within the structure.
- *
- * Given a pointer to a member of a structure, this macro does
- * typechecking and figures out the offset to the enclosing type.
- *
- * Example:
- *	struct foo {
- *		int fielda, fieldb;
- *		// ...
- *	};
- *	struct info {
- *		int some_other_field;
- *		struct foo my_foo;
- *	};
- *
- *	static struct info *foo_to_info(struct foo *foo)
- *	{
- *		size_t off = ccan_container_off(struct info, my_foo);
- *		return (void *)((char *)foo - off);
- *	}
- */
-#define ccan_container_off(containing_type, member)	\
-	offsetof(containing_type, member)
-
-/**
- * ccan_container_of_var - get pointer to enclosing structure using a variable
- * @member_ptr: pointer to the structure member
- * @container_var: a pointer of same type as this member's container
- * @member: the name of this member within the structure.
- *
- * Given a pointer to a member of a structure, this macro does pointer
- * subtraction to return the pointer to the enclosing type.
- *
- * Example:
- *	static struct info *foo_to_i(struct foo *foo)
- *	{
- *		struct info *i = ccan_container_of_var(foo, i, my_foo);
- *		return i;
- *	}
- */
-#if HAVE_TYPEOF
-#define ccan_container_of_var(member_ptr, container_var, member) \
-	ccan_container_of(member_ptr, typeof(*container_var), member)
-#else
-#define ccan_container_of_var(member_ptr, container_var, member)	\
-	((void *)((char *)(member_ptr)	-			\
-		  ccan_container_off_var(container_var, member)))
-#endif
-
-/**
- * ccan_container_off_var - get offset of a field in enclosing structure
- * @container_var: a pointer to a container structure
- * @member: the name of a member within the structure.
- *
- * Given (any) pointer to a structure and a its member name, this
- * macro does pointer subtraction to return offset of member in a
- * structure memory layout.
- *
- */
-#if HAVE_TYPEOF
-#define ccan_container_off_var(var, member)		\
-	ccan_container_off(typeof(*var), member)
-#else
-#define ccan_container_off_var(var, member)			\
-	((const char *)&(var)->member - (const char *)(var))
-#endif
-
-#endif /* CCAN_CONTAINER_OF_H */