debase-ruby_core_source 0.10.2 → 0.10.11

data/lib/debase/ruby_core_source/{ruby-2.5.0-preview1 → ruby-2.6.0-p0}/vm_opts.h

@@ -3,7 +3,7 @@
 
   vm_opts.h - VM optimize option
 
-  $Author: nobu $
+  $Author: k0kubun $
 
   Copyright (C) 2004-2007 Koichi Sasada
 
@@ -18,7 +18,6 @@
  * Following definitions are default values.
  */
 
-#define OPT_TRACE_INSTRUCTION           1
 #define OPT_TAILCALL_OPTIMIZATION       0
 #define OPT_PEEPHOLE_OPTIMIZATION       1
 #define OPT_SPECIALISED_INSTRUCTION     1
@@ -31,9 +30,19 @@
  */
 
 /* C compiler dependent */
-#define OPT_DIRECT_THREADED_CODE     1
-#define OPT_TOKEN_THREADED_CODE      0
-#define OPT_CALL_THREADED_CODE       0
+
+/*
+ * 0: direct (using labeled goto using GCC special)
+ * 1: token (switch/case)
+ * 2: call (function call for each insn dispatch)
+ */
+#ifndef OPT_THREADED_CODE
+#define OPT_THREADED_CODE 0
+#endif
+
+#define OPT_DIRECT_THREADED_CODE (OPT_THREADED_CODE == 0)
+#define OPT_TOKEN_THREADED_CODE  (OPT_THREADED_CODE == 1)
+#define OPT_CALL_THREADED_CODE   (OPT_THREADED_CODE == 2)
 
 /* VM running option */
 #define OPT_CHECKED_RUN              1
@@ -41,6 +50,10 @@
 #define OPT_GLOBAL_METHOD_CACHE      1
 #define OPT_BLOCKINLINING            0
 
+#ifndef OPT_IC_FOR_IVAR
+#define OPT_IC_FOR_IVAR 1
+#endif
+
 /* architecture independent, affects generated code */
 #define OPT_OPERANDS_UNIFICATION     1
 #define OPT_INSTRUCTIONS_UNIFICATION 0

data/lib/debase/ruby_core_source/ruby-2.6.0-p0/vmtc.inc

@@ -0,0 +1,243 @@
+/* -*- mode:c; style:ruby; coding: utf-8; indent-tabs-mode: nil -*- */
+
+/* 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 consist of many small  parts of codes copyrighted by each authors,
+ * 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 do not automatically define that of generated ones.  This is
+ * the reason  why this file  is under unclear situation.   All that 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(putiseq),
+    LABEL_PTR(putstring),
+    LABEL_PTR(concatstrings),
+    LABEL_PTR(tostring),
+    LABEL_PTR(freezestring),
+    LABEL_PTR(toregexp),
+    LABEL_PTR(intern),
+    LABEL_PTR(newarray),
+    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(reverse),
+    LABEL_PTR(reput),
+    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(send),
+    LABEL_PTR(opt_send_without_block),
+    LABEL_PTR(opt_str_freeze),
+    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_regexpmatch1),
+    LABEL_PTR(opt_regexpmatch2),
+    LABEL_PTR(opt_call_c_function),
+    LABEL_PTR(bitblt),
+    LABEL_PTR(answer),
+    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_putiseq),
+    LABEL_PTR(trace_putstring),
+    LABEL_PTR(trace_concatstrings),
+    LABEL_PTR(trace_tostring),
+    LABEL_PTR(trace_freezestring),
+    LABEL_PTR(trace_toregexp),
+    LABEL_PTR(trace_intern),
+    LABEL_PTR(trace_newarray),
+    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_reverse),
+    LABEL_PTR(trace_reput),
+    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_send),
+    LABEL_PTR(trace_opt_send_without_block),
+    LABEL_PTR(trace_opt_str_freeze),
+    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_regexpmatch1),
+    LABEL_PTR(trace_opt_regexpmatch2),
+    LABEL_PTR(trace_opt_call_c_function),
+    LABEL_PTR(trace_bitblt),
+    LABEL_PTR(trace_answer),
+    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-2.6.5-p114/addr2line.h

@@ -0,0 +1,21 @@
+/**********************************************************************
+
+  addr2line.h -
+
+  $Author$
+
+  Copyright (C) 2010 Shinichiro Hamaji
+
+**********************************************************************/
+
+#ifndef RUBY_ADDR2LINE_H
+#define RUBY_ADDR2LINE_H
+
+#if (defined(USE_ELF) || defined(HAVE_MACH_O_LOADER_H))
+
+void
+rb_dump_backtrace_with_lines(int num_traces, void **traces);
+
+#endif /* USE_ELF */
+
+#endif /* RUBY_ADDR2LINE_H */

data/lib/debase/ruby_core_source/ruby-2.6.5-p114/ccan/build_assert/build_assert.h

@@ -0,0 +1,40 @@
+/* CC0 (Public domain) - see ccan/licenses/CC0 file for details */
+#ifndef CCAN_BUILD_ASSERT_H
+#define CCAN_BUILD_ASSERT_H
+
+/**
+ * BUILD_ASSERT - assert a build-time dependency.
+ * @cond: the compile-time condition which must be true.
+ *
+ * Your compile will fail if the condition isn't true, or can't be evaluated
+ * by the compiler.  This can only be used within a function.
+ *
+ * Example:
+ *	#include <stddef.h>
+ *	...
+ *	static char *foo_to_char(struct foo *foo)
+ *	{
+ *		// This code needs string to be at start of foo.
+ *		BUILD_ASSERT(offsetof(struct foo, string) == 0);
+ *		return (char *)foo;
+ *	}
+ */
+#define BUILD_ASSERT(cond) \
+	do { (void) sizeof(char [1 - 2*!(cond)]); } while(0)
+
+/**
+ * BUILD_ASSERT_OR_ZERO - assert a build-time dependency, as an expression.
+ * @cond: the compile-time condition which must be true.
+ *
+ * Your compile will fail if the condition isn't true, or can't be evaluated
+ * by the compiler.  This can be used in an expression: its value is "0".
+ *
+ * Example:
+ *	#define foo_to_char(foo)					\
+ *		 ((char *)(foo)						\
+ *		  + BUILD_ASSERT_OR_ZERO(offsetof(struct foo, string) == 0))
+ */
+#define BUILD_ASSERT_OR_ZERO(cond) \
+	(sizeof(char [1 - 2*!(cond)]) - 1)
+
+#endif /* CCAN_BUILD_ASSERT_H */

data/lib/debase/ruby_core_source/ruby-2.6.5-p114/ccan/check_type/check_type.h

@@ -0,0 +1,63 @@
+/* CC0 (Public domain) - see ccan/licenses/CC0 file for details */
+#ifndef CCAN_CHECK_TYPE_H
+#define CCAN_CHECK_TYPE_H
+
+/**
+ * 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!
+ *
+ * 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((check_type((expr), uint64_t), (expr)))
+ */
+
+/**
+ * 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!
+ *
+ * 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 container_of(mbr_ptr, encl_type, mbr)			\
+ *		(check_types_match((mbr_ptr), &((encl_type *)0)->mbr),	\
+ *		 ((encl_type *)						\
+ *		  ((char *)(mbr_ptr) - offsetof(enclosing_type, mbr))))
+ */
+#if HAVE_TYPEOF
+#define check_type(expr, type)			\
+	((typeof(expr) *)0 != (type *)0)
+
+#define 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 check_type(expr, type)					\
+	BUILD_ASSERT_OR_ZERO(sizeof(expr) == sizeof(type))
+
+#define check_types_match(expr1, expr2)				\
+	BUILD_ASSERT_OR_ZERO(sizeof(expr1) == sizeof(expr2))
+#endif /* HAVE_TYPEOF */
+
+#endif /* CCAN_CHECK_TYPE_H */

data/lib/debase/ruby_core_source/ruby-2.6.5-p114/ccan/container_of/container_of.h

@@ -0,0 +1,142 @@
+/* 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"
+
+/**
+ * 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 container_of(foo, struct info, my_foo);
+ *	}
+ */
+#define container_of(member_ptr, containing_type, member)		\
+	 ((containing_type *)						\
+	  ((char *)(member_ptr)						\
+	   - container_off(containing_type, member))			\
+	  + check_types_match(*(member_ptr), ((containing_type *)0)->member))
+
+
+/**
+ * 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 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 container_of_or_null(member_ptr, containing_type, member)	\
+	((containing_type *)						\
+	 container_of_or_null_(member_ptr,				\
+			       container_off(containing_type, member))	\
+	 + check_types_match(*(member_ptr), ((containing_type *)0)->member))
+
+/**
+ * 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 = container_off(struct info, my_foo);
+ *		return (void *)((char *)foo - off);
+ *	}
+ */
+#define container_off(containing_type, member)	\
+	offsetof(containing_type, member)
+
+/**
+ * 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 = container_of_var(foo, i, my_foo);
+ *		return i;
+ *	}
+ */
+#if HAVE_TYPEOF
+#define container_of_var(member_ptr, container_var, member) \
+	container_of(member_ptr, typeof(*container_var), member)
+#else
+#define container_of_var(member_ptr, container_var, member)	\
+	((void *)((char *)(member_ptr)	-			\
+		  container_off_var(container_var, member)))
+#endif
+
+/**
+ * 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 container_off_var(var, member)		\
+	container_off(typeof(*var), member)
+#else
+#define container_off_var(var, member)			\
+	((const char *)&(var)->member - (const char *)(var))
+#endif
+
+#endif /* CCAN_CONTAINER_OF_H */