debase-ruby_core_source 0.7.9 → 0.7.10

data/lib/debase/ruby_core_source/ruby-2.1.7-p400/gc.h

@@ -0,0 +1,101 @@
+
+#ifndef RUBY_GC_H
+#define RUBY_GC_H 1
+
+#if defined(__x86_64__) && !defined(_ILP32) && defined(__GNUC__) && !defined(__native_client__)
+#define SET_MACHINE_STACK_END(p) __asm__ __volatile__ ("movq\t%%rsp, %0" : "=r" (*(p)))
+#elif defined(__i386) && defined(__GNUC__) && !defined(__native_client__)
+#define SET_MACHINE_STACK_END(p) __asm__ __volatile__ ("movl\t%%esp, %0" : "=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
+
+/* for GC debug */
+
+#ifndef RUBY_MARK_FREE_DEBUG
+#define RUBY_MARK_FREE_DEBUG 0
+#endif
+
+#if RUBY_MARK_FREE_DEBUG
+extern int ruby_gc_debug_indent;
+
+static inline void
+rb_gc_debug_indent(void)
+{
+    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--;
+    }
+    rb_gc_debug_indent();
+    printf("%s: %s %s (%p)\n", mode, st ? "->" : "<-", msg, ptr);
+
+    if (st) {
+	ruby_gc_debug_indent++;
+    }
+
+    fflush(stdout);
+}
+
+#define RUBY_MARK_ENTER(msg) rb_gc_debug_body("mark", (msg), 1, 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
+
+#else
+#define RUBY_MARK_ENTER(msg)
+#define RUBY_MARK_LEAVE(msg)
+#define RUBY_FREE_ENTER(msg)
+#define RUBY_FREE_LEAVE(msg)
+#define RUBY_GC_INFO if(0)printf
+#endif
+
+#define RUBY_MARK_UNLESS_NULL(ptr) if(RTEST(ptr)){rb_gc_mark(ptr);}
+#define RUBY_FREE_UNLESS_NULL(ptr) if(ptr){ruby_xfree(ptr);(ptr)=NULL;}
+
+#if STACK_GROW_DIRECTION > 0
+# define STACK_UPPER(x, a, b) (a)
+#elif STACK_GROW_DIRECTION < 0
+# define STACK_UPPER(x, a, b) (b)
+#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_UPPER(x, a, b) (stack_growup_p(x) ? (a) : (b))
+#endif
+
+#if STACK_GROW_DIRECTION
+#define STACK_GROW_DIR_DETECTION
+#define STACK_DIR_UPPER(a,b) STACK_UPPER(0, (a), (b))
+#else
+#define STACK_GROW_DIR_DETECTION VALUE stack_grow_dir_detection
+#define STACK_DIR_UPPER(a,b) STACK_UPPER(&stack_grow_dir_detection, (a), (b))
+#endif
+#define IS_STACK_DIR_UPPER() STACK_DIR_UPPER(1,0)
+
+RUBY_SYMBOL_EXPORT_BEGIN
+
+/* exports for objspace module */
+size_t rb_objspace_data_type_memsize(VALUE obj);
+void rb_objspace_reachable_objects_from(VALUE obj, void (func)(VALUE, void *), void *data);
+void rb_objspace_reachable_objects_from_root(void (func)(const char *category, VALUE, void *), void *data);
+int rb_objspace_markable_object_p(VALUE obj);
+int rb_objspace_internal_object_p(VALUE obj);
+
+void rb_objspace_each_objects(
+    int (*callback)(void *start, void *end, size_t stride, void *data),
+    void *data);
+
+RUBY_SYMBOL_EXPORT_END
+
+#endif /* RUBY_GC_H */

data/lib/debase/ruby_core_source/ruby-2.1.7-p400/id.h

@@ -0,0 +1,171 @@
+/* DO NOT EDIT THIS FILE DIRECTLY */
+/**********************************************************************
+
+  id.h -
+
+  $Author: nobu $
+  created at: Sun Oct 19 21:12:51 2008
+
+  Copyright (C) 2007 Koichi Sasada
+
+**********************************************************************/
+
+#ifndef RUBY_ID_H
+#define RUBY_ID_H
+
+enum ruby_id_types {
+    RUBY_ID_LOCAL       = 0x00,
+    RUBY_ID_INSTANCE    = 0x01,
+    RUBY_ID_GLOBAL      = 0x03,
+    RUBY_ID_ATTRSET     = 0x04,
+    RUBY_ID_CONST       = 0x05,
+    RUBY_ID_CLASS       = 0x06,
+    RUBY_ID_JUNK        = 0x07,
+    RUBY_ID_INTERNAL    = RUBY_ID_JUNK,
+    RUBY_ID_SCOPE_SHIFT = 3,
+    RUBY_ID_SCOPE_MASK  = ~(~0U<<RUBY_ID_SCOPE_SHIFT)
+};
+
+#define ID_SCOPE_SHIFT RUBY_ID_SCOPE_SHIFT
+#define ID_SCOPE_MASK  RUBY_ID_SCOPE_MASK
+#define ID_LOCAL       RUBY_ID_LOCAL
+#define ID_INSTANCE    RUBY_ID_INSTANCE
+#define ID_GLOBAL      RUBY_ID_GLOBAL
+#define ID_ATTRSET     RUBY_ID_ATTRSET
+#define ID_CONST       RUBY_ID_CONST
+#define ID_CLASS       RUBY_ID_CLASS
+#define ID_JUNK        RUBY_ID_JUNK
+#define ID_INTERNAL    RUBY_ID_INTERNAL
+
+#define ID2ATTRSET(id) (((id)&~ID_SCOPE_MASK)|ID_ATTRSET)
+
+#define symIFUNC ID2SYM(idIFUNC)
+#define symCFUNC ID2SYM(idCFUNC)
+
+#define RUBY_TOKEN_DOT2 128
+#define RUBY_TOKEN_DOT3 129
+#define RUBY_TOKEN_UPLUS 130
+#define RUBY_TOKEN_UMINUS 131
+#define RUBY_TOKEN_POW 132
+#define RUBY_TOKEN_DSTAR 133
+#define RUBY_TOKEN_CMP 134
+#define RUBY_TOKEN_LSHFT 135
+#define RUBY_TOKEN_RSHFT 136
+#define RUBY_TOKEN_LEQ 137
+#define RUBY_TOKEN_GEQ 138
+#define RUBY_TOKEN_EQ 139
+#define RUBY_TOKEN_EQQ 140
+#define RUBY_TOKEN_NEQ 141
+#define RUBY_TOKEN_MATCH 142
+#define RUBY_TOKEN_NMATCH 143
+#define RUBY_TOKEN_AREF 144
+#define RUBY_TOKEN_ASET 145
+#define RUBY_TOKEN_COLON2 146
+#define RUBY_TOKEN_COLON3 147
+#define RUBY_TOKEN(t) RUBY_TOKEN_##t
+
+enum ruby_method_ids {
+    idDot2 = RUBY_TOKEN(DOT2),
+    idDot3 = RUBY_TOKEN(DOT3),
+    idUPlus = RUBY_TOKEN(UPLUS),
+    idUMinus = RUBY_TOKEN(UMINUS),
+    idPow = RUBY_TOKEN(POW),
+    idCmp = RUBY_TOKEN(CMP),
+    idPLUS = '+',
+    idMINUS = '-',
+    idMULT = '*',
+    idDIV = '/',
+    idMOD = '%',
+    idLT = '<',
+    idLTLT = RUBY_TOKEN(LSHFT),
+    idLE = RUBY_TOKEN(LEQ),
+    idGT = '>',
+    idGE = RUBY_TOKEN(GEQ),
+    idEq = RUBY_TOKEN(EQ),
+    idEqq = RUBY_TOKEN(EQQ),
+    idNeq = RUBY_TOKEN(NEQ),
+    idNot = '!',
+    idBackquote = '`',
+    idEqTilde = RUBY_TOKEN(MATCH),
+    idNeqTilde = RUBY_TOKEN(NMATCH),
+    idAREF = RUBY_TOKEN(AREF),
+    idASET = RUBY_TOKEN(ASET),
+    tPRESERVED_ID_BEGIN = 147,
+    idNULL,
+    idEmptyP,
+    idEqlP,
+    idRespond_to,
+    idRespond_to_missing,
+    idIFUNC,
+    idCFUNC,
+    id_core_set_method_alias,
+    id_core_set_variable_alias,
+    id_core_undef_method,
+    id_core_define_method,
+    id_core_define_singleton_method,
+    id_core_set_postexe,
+    id_core_hash_from_ary,
+    id_core_hash_merge_ary,
+    id_core_hash_merge_ptr,
+    id_core_hash_merge_kwd,
+    tPRESERVED_ID_END,
+    tFreeze,
+    tInspect,
+    tIntern,
+    tObject_id,
+    tConst_missing,
+    tMethodMissing,
+    tMethod_added,
+    tSingleton_method_added,
+    tMethod_removed,
+    tSingleton_method_removed,
+    tMethod_undefined,
+    tSingleton_method_undefined,
+    tLength,
+    tSize,
+    tGets,
+    tSucc,
+    tEach,
+    tProc,
+    tLambda,
+    tSend,
+    t__send__,
+    t__attached__,
+    tInitialize,
+    tInitialize_copy,
+    tInitialize_clone,
+    tInitialize_dup,
+    tUScore,
+#define TOKEN2LOCALID(n) id##n = ((t##n<<ID_SCOPE_SHIFT)|ID_LOCAL)
+    TOKEN2LOCALID(Freeze),
+    TOKEN2LOCALID(Inspect),
+    TOKEN2LOCALID(Intern),
+    TOKEN2LOCALID(Object_id),
+    TOKEN2LOCALID(Const_missing),
+    TOKEN2LOCALID(MethodMissing),
+    TOKEN2LOCALID(Method_added),
+    TOKEN2LOCALID(Singleton_method_added),
+    TOKEN2LOCALID(Method_removed),
+    TOKEN2LOCALID(Singleton_method_removed),
+    TOKEN2LOCALID(Method_undefined),
+    TOKEN2LOCALID(Singleton_method_undefined),
+    TOKEN2LOCALID(Length),
+    TOKEN2LOCALID(Size),
+    TOKEN2LOCALID(Gets),
+    TOKEN2LOCALID(Succ),
+    TOKEN2LOCALID(Each),
+    TOKEN2LOCALID(Proc),
+    TOKEN2LOCALID(Lambda),
+    TOKEN2LOCALID(Send),
+    TOKEN2LOCALID(__send__),
+    TOKEN2LOCALID(__attached__),
+    TOKEN2LOCALID(Initialize),
+    TOKEN2LOCALID(Initialize_copy),
+    TOKEN2LOCALID(Initialize_clone),
+    TOKEN2LOCALID(Initialize_dup),
+    TOKEN2LOCALID(UScore),
+    tLAST_OP_ID = tPRESERVED_ID_END-1,
+    idLAST_OP_ID = tLAST_OP_ID >> ID_SCOPE_SHIFT
+};
+
+#endif /* RUBY_ID_H */

data/lib/debase/ruby_core_source/ruby-2.1.7-p400/insns.inc

@@ -0,0 +1,189 @@
+/** -*-c-*-
+  This file contains YARV instructions list.
+
+  ----
+  This file is auto generated by insns2vm.rb
+  DO NOT TOUCH!
+
+  If you want to fix something, you must edit 'template/insns.inc.tmpl'
+  or insns2vm.rb
+ */
+
+
+/* BIN : Basic Instruction Name */
+#define BIN(n) YARVINSN_##n
+
+enum ruby_vminsn_type {
+  BIN(nop)                       = 0,
+
+  BIN(getlocal)                  = 1,
+
+  BIN(setlocal)                  = 2,
+
+  BIN(getspecial)                = 3,
+
+  BIN(setspecial)                = 4,
+
+  BIN(getinstancevariable)       = 5,
+
+  BIN(setinstancevariable)       = 6,
+
+  BIN(getclassvariable)          = 7,
+
+  BIN(setclassvariable)          = 8,
+
+  BIN(getconstant)               = 9,
+
+  BIN(setconstant)               = 10,
+
+  BIN(getglobal)                 = 11,
+
+  BIN(setglobal)                 = 12,
+
+  BIN(putnil)                    = 13,
+
+  BIN(putself)                   = 14,
+
+  BIN(putobject)                 = 15,
+
+  BIN(putspecialobject)          = 16,
+
+  BIN(putiseq)                   = 17,
+
+  BIN(putstring)                 = 18,
+
+  BIN(concatstrings)             = 19,
+
+  BIN(tostring)                  = 20,
+
+  BIN(toregexp)                  = 21,
+
+  BIN(newarray)                  = 22,
+
+  BIN(duparray)                  = 23,
+
+  BIN(expandarray)               = 24,
+
+  BIN(concatarray)               = 25,
+
+  BIN(splatarray)                = 26,
+
+  BIN(newhash)                   = 27,
+
+  BIN(newrange)                  = 28,
+
+  BIN(pop)                       = 29,
+
+  BIN(dup)                       = 30,
+
+  BIN(dupn)                      = 31,
+
+  BIN(swap)                      = 32,
+
+  BIN(reput)                     = 33,
+
+  BIN(topn)                      = 34,
+
+  BIN(setn)                      = 35,
+
+  BIN(adjuststack)               = 36,
+
+  BIN(defined)                   = 37,
+
+  BIN(checkmatch)                = 38,
+
+  BIN(trace)                     = 39,
+
+  BIN(defineclass)               = 40,
+
+  BIN(send)                      = 41,
+
+  BIN(opt_str_freeze)            = 42,
+
+  BIN(opt_send_simple)           = 43,
+
+  BIN(invokesuper)               = 44,
+
+  BIN(invokeblock)               = 45,
+
+  BIN(leave)                     = 46,
+
+  BIN(throw)                     = 47,
+
+  BIN(jump)                      = 48,
+
+  BIN(branchif)                  = 49,
+
+  BIN(branchunless)              = 50,
+
+  BIN(getinlinecache)            = 51,
+
+  BIN(setinlinecache)            = 52,
+
+  BIN(once)                      = 53,
+
+  BIN(opt_case_dispatch)         = 54,
+
+  BIN(opt_plus)                  = 55,
+
+  BIN(opt_minus)                 = 56,
+
+  BIN(opt_mult)                  = 57,
+
+  BIN(opt_div)                   = 58,
+
+  BIN(opt_mod)                   = 59,
+
+  BIN(opt_eq)                    = 60,
+
+  BIN(opt_neq)                   = 61,
+
+  BIN(opt_lt)                    = 62,
+
+  BIN(opt_le)                    = 63,
+
+  BIN(opt_gt)                    = 64,
+
+  BIN(opt_ge)                    = 65,
+
+  BIN(opt_ltlt)                  = 66,
+
+  BIN(opt_aref)                  = 67,
+
+  BIN(opt_aset)                  = 68,
+
+  BIN(opt_length)                = 69,
+
+  BIN(opt_size)                  = 70,
+
+  BIN(opt_empty_p)               = 71,
+
+  BIN(opt_succ)                  = 72,
+
+  BIN(opt_not)                   = 73,
+
+  BIN(opt_regexpmatch1)          = 74,
+
+  BIN(opt_regexpmatch2)          = 75,
+
+  BIN(opt_call_c_function)       = 76,
+
+  BIN(bitblt)                    = 77,
+
+  BIN(answer)                    = 78,
+
+  BIN(getlocal_OP__WC__0)        = 79,
+
+  BIN(getlocal_OP__WC__1)        = 80,
+
+  BIN(setlocal_OP__WC__0)        = 81,
+
+  BIN(setlocal_OP__WC__1)        = 82,
+
+  BIN(putobject_OP_INT2FIX_O_0_C_) = 83,
+
+  BIN(putobject_OP_INT2FIX_O_1_C_) = 84,
+
+  VM_INSTRUCTION_SIZE            = 85
+};
+