debase-ruby_core_source 0.1.0

data/Users/user/work/tests/github/os97673/debase-ruby_core_source/lib/debase/ruby_core_source/ruby-1.9.2-p320/gc.h

@@ -0,0 +1,77 @@
+
+#ifndef RUBY_GC_H
+#define RUBY_GC_H 1
+
+#if defined(__x86_64__) && defined(__GNUC__)
+#define SET_MACHINE_STACK_END(p) __asm__("movq\t%%rsp, %0" : "=r" (*p))
+#elif defined(__i386) && defined(__GNUC__)
+#define SET_MACHINE_STACK_END(p) __asm__("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 void
+rb_gc_debug_indent(void)
+{
+    printf("%*s", ruby_gc_debug_indent, "");
+}
+
+static 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
+
+#endif /* RUBY_GC_H */

data/Users/user/work/tests/github/os97673/debase-ruby_core_source/lib/debase/ruby_core_source/ruby-1.9.2-p320/id.h

@@ -0,0 +1,170 @@
+/* DO NOT EDIT THIS FILE DIRECTLY */
+/**********************************************************************
+
+  id.h -
+
+  $Author: akr $
+  created at: Sun Oct 19 21:12:51 2008
+
+  Copyright (C) 2007 Koichi Sasada
+
+**********************************************************************/
+
+#ifndef RUBY_ID_H
+#define RUBY_ID_H
+
+#define ID_SCOPE_SHIFT 3
+#define ID_SCOPE_MASK 0x07
+#define ID_LOCAL      0x00
+#define ID_INSTANCE   0x01
+#define ID_GLOBAL     0x03
+#define ID_ATTRSET    0x04
+#define ID_CONST      0x05
+#define ID_CLASS      0x06
+#define ID_JUNK       0x07
+#define ID_INTERNAL   ID_JUNK
+
+#ifdef USE_PARSE_H
+#include "parse.h"
+#endif
+
+#define symIFUNC ID2SYM(idIFUNC)
+#define symCFUNC ID2SYM(idCFUNC)
+
+#if !defined tLAST_TOKEN && defined YYTOKENTYPE
+#define tLAST_TOKEN tLAST_TOKEN
+#endif
+
+enum ruby_method_ids {
+#ifndef tLAST_TOKEN
+    tUPLUS = 321,
+    tUMINUS = 322,
+    tPOW = 323,
+    tCMP = 324,
+    tEQ = 325,
+    tEQQ = 326,
+    tNEQ = 327,
+    tGEQ = 328,
+    tLEQ = 329,
+    tANDOP = 330,
+    tOROP = 331,
+    tMATCH = 332,
+    tNMATCH = 333,
+    tDOT2 = 334,
+    tDOT3 = 335,
+    tAREF = 336,
+    tASET = 337,
+    tLSHFT = 338,
+    tRSHFT = 339,
+    tLAMBDA = 352,
+    idNULL = 365,
+    idRespond_to = 366,
+    idIFUNC = 367,
+    idCFUNC = 368,
+    id_core_set_method_alias = 369,
+    id_core_set_variable_alias = 370,
+    id_core_undef_method = 371,
+    id_core_define_method = 372,
+    id_core_define_singleton_method = 373,
+    id_core_set_postexe = 374,
+    tLAST_TOKEN = 375,
+#endif
+    idDot2 = tDOT2,
+    idDot3 = tDOT3,
+    idUPlus = tUPLUS,
+    idUMinus = tUMINUS,
+    idPow = tPOW,
+    idCmp = tCMP,
+    idPLUS = '+',
+    idMINUS = '-',
+    idMULT = '*',
+    idDIV = '/',
+    idMOD = '%',
+    idLT = '<',
+    idLTLT = tLSHFT,
+    idLE = tLEQ,
+    idGT = '>',
+    idGE = tGEQ,
+    idEq = tEQ,
+    idEqq = tEQQ,
+    idNeq = tNEQ,
+    idNot = '!',
+    idBackquote = '`',
+    idEqTilde = tMATCH,
+    idNeqTilde = tNMATCH,
+    idAREF = tAREF,
+    idASET = tASET,
+    idLAST_TOKEN = tLAST_TOKEN >> ID_SCOPE_SHIFT,
+    tIntern,
+    tMethodMissing,
+    tLength,
+    tSize,
+    tGets,
+    tSucc,
+    tEach,
+    tLambda,
+    tSend,
+    t__send__,
+    tInitialize,
+#if SUPPORT_JOKE
+    tBitblt,
+    tAnswer,
+#endif
+    tLAST_ID,
+#define TOKEN2ID(n) id##n = ((t##n<<ID_SCOPE_SHIFT)|ID_LOCAL)
+#if SUPPORT_JOKE
+    TOKEN2ID(Bitblt),
+    TOKEN2ID(Answer),
+#endif
+    TOKEN2ID(Intern),
+    TOKEN2ID(MethodMissing),
+    TOKEN2ID(Length),
+    TOKEN2ID(Size),
+    TOKEN2ID(Gets),
+    TOKEN2ID(Succ),
+    TOKEN2ID(Each),
+    TOKEN2ID(Lambda),
+    TOKEN2ID(Send),
+    TOKEN2ID(__send__),
+    TOKEN2ID(Initialize)
+};
+
+#ifdef tLAST_TOKEN
+struct ruby_method_ids_check {
+#define ruby_method_id_check_for(name, value) \
+    int checking_for_##name[name == value ? 1 : -1]
+ruby_method_id_check_for(tUPLUS, 321);
+ruby_method_id_check_for(tUMINUS, 322);
+ruby_method_id_check_for(tPOW, 323);
+ruby_method_id_check_for(tCMP, 324);
+ruby_method_id_check_for(tEQ, 325);
+ruby_method_id_check_for(tEQQ, 326);
+ruby_method_id_check_for(tNEQ, 327);
+ruby_method_id_check_for(tGEQ, 328);
+ruby_method_id_check_for(tLEQ, 329);
+ruby_method_id_check_for(tANDOP, 330);
+ruby_method_id_check_for(tOROP, 331);
+ruby_method_id_check_for(tMATCH, 332);
+ruby_method_id_check_for(tNMATCH, 333);
+ruby_method_id_check_for(tDOT2, 334);
+ruby_method_id_check_for(tDOT3, 335);
+ruby_method_id_check_for(tAREF, 336);
+ruby_method_id_check_for(tASET, 337);
+ruby_method_id_check_for(tLSHFT, 338);
+ruby_method_id_check_for(tRSHFT, 339);
+ruby_method_id_check_for(tLAMBDA, 352);
+ruby_method_id_check_for(idNULL, 365);
+ruby_method_id_check_for(idRespond_to, 366);
+ruby_method_id_check_for(idIFUNC, 367);
+ruby_method_id_check_for(idCFUNC, 368);
+ruby_method_id_check_for(id_core_set_method_alias, 369);
+ruby_method_id_check_for(id_core_set_variable_alias, 370);
+ruby_method_id_check_for(id_core_undef_method, 371);
+ruby_method_id_check_for(id_core_define_method, 372);
+ruby_method_id_check_for(id_core_define_singleton_method, 373);
+ruby_method_id_check_for(id_core_set_postexe, 374);
+ruby_method_id_check_for(tLAST_TOKEN, 375);
+};
+#endif
+
+#endif /* RUBY_ID_H */

data/Users/user/work/tests/github/os97673/debase-ruby_core_source/lib/debase/ruby_core_source/ruby-1.9.2-p320/insns.inc

@@ -0,0 +1,179 @@
+/** -*-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(getdynamic)                = 5,
+
+  BIN(setdynamic)                = 6,
+
+  BIN(getinstancevariable)       = 7,
+
+  BIN(setinstancevariable)       = 8,
+
+  BIN(getclassvariable)          = 9,
+
+  BIN(setclassvariable)          = 10,
+
+  BIN(getconstant)               = 11,
+
+  BIN(setconstant)               = 12,
+
+  BIN(getglobal)                 = 13,
+
+  BIN(setglobal)                 = 14,
+
+  BIN(putnil)                    = 15,
+
+  BIN(putself)                   = 16,
+
+  BIN(putobject)                 = 17,
+
+  BIN(putspecialobject)          = 18,
+
+  BIN(putiseq)                   = 19,
+
+  BIN(putstring)                 = 20,
+
+  BIN(concatstrings)             = 21,
+
+  BIN(tostring)                  = 22,
+
+  BIN(toregexp)                  = 23,
+
+  BIN(newarray)                  = 24,
+
+  BIN(duparray)                  = 25,
+
+  BIN(expandarray)               = 26,
+
+  BIN(concatarray)               = 27,
+
+  BIN(splatarray)                = 28,
+
+  BIN(checkincludearray)         = 29,
+
+  BIN(newhash)                   = 30,
+
+  BIN(newrange)                  = 31,
+
+  BIN(pop)                       = 32,
+
+  BIN(dup)                       = 33,
+
+  BIN(dupn)                      = 34,
+
+  BIN(swap)                      = 35,
+
+  BIN(reput)                     = 36,
+
+  BIN(topn)                      = 37,
+
+  BIN(setn)                      = 38,
+
+  BIN(adjuststack)               = 39,
+
+  BIN(defined)                   = 40,
+
+  BIN(trace)                     = 41,
+
+  BIN(defineclass)               = 42,
+
+  BIN(send)                      = 43,
+
+  BIN(invokesuper)               = 44,
+
+  BIN(invokeblock)               = 45,
+
+  BIN(leave)                     = 46,
+
+  BIN(finish)                    = 47,
+
+  BIN(throw)                     = 48,
+
+  BIN(jump)                      = 49,
+
+  BIN(branchif)                  = 50,
+
+  BIN(branchunless)              = 51,
+
+  BIN(getinlinecache)            = 52,
+
+  BIN(onceinlinecache)           = 53,
+
+  BIN(setinlinecache)            = 54,
+
+  BIN(opt_case_dispatch)         = 55,
+
+  BIN(opt_checkenv)              = 56,
+
+  BIN(opt_plus)                  = 57,
+
+  BIN(opt_minus)                 = 58,
+
+  BIN(opt_mult)                  = 59,
+
+  BIN(opt_div)                   = 60,
+
+  BIN(opt_mod)                   = 61,
+
+  BIN(opt_eq)                    = 62,
+
+  BIN(opt_neq)                   = 63,
+
+  BIN(opt_lt)                    = 64,
+
+  BIN(opt_le)                    = 65,
+
+  BIN(opt_gt)                    = 66,
+
+  BIN(opt_ge)                    = 67,
+
+  BIN(opt_ltlt)                  = 68,
+
+  BIN(opt_aref)                  = 69,
+
+  BIN(opt_aset)                  = 70,
+
+  BIN(opt_length)                = 71,
+
+  BIN(opt_size)                  = 72,
+
+  BIN(opt_succ)                  = 73,
+
+  BIN(opt_not)                   = 74,
+
+  BIN(opt_regexpmatch1)          = 75,
+
+  BIN(opt_regexpmatch2)          = 76,
+
+  BIN(opt_call_c_function)       = 77,
+
+  BIN(bitblt)                    = 78,
+
+  BIN(answer)                    = 79,
+
+  VM_INSTRUCTION_SIZE            = 80
+};
+

data/Users/user/work/tests/github/os97673/debase-ruby_core_source/lib/debase/ruby_core_source/ruby-1.9.2-p320/insns_info.inc

@@ -0,0 +1,695 @@
+/** -*-c-*-
+  This file contains instruction information for yarv instruction sequence.
+
+  ----
+  This file is auto generated by insns2vm.rb
+  DO NOT TOUCH!
+
+  If you want to fix something, you must edit 'template/insns_info.inc.tmpl'
+  or insns2vm.rb
+ */
+
+#define TS_ISEQ 'S'
+#define TS_LINDEX 'L'
+#define TS_OFFSET 'O'
+#define TS_GENTRY 'G'
+#define TS_VARIABLE '.'
+#define TS_FUNCPTR 'F'
+#define TS_IC 'C'
+#define TS_ID 'I'
+#define TS_VALUE 'V'
+#define TS_CDHASH 'H'
+#define TS_DINDEX 'D'
+#define TS_NUM 'N'
+
+static const char *const insn_name_info[] = {
+  "nop",
+  "getlocal",
+  "setlocal",
+  "getspecial",
+  "setspecial",
+  "getdynamic",
+  "setdynamic",
+  "getinstancevariable",
+  "setinstancevariable",
+  "getclassvariable",
+  "setclassvariable",
+  "getconstant",
+  "setconstant",
+  "getglobal",
+  "setglobal",
+  "putnil",
+  "putself",
+  "putobject",
+  "putspecialobject",
+  "putiseq",
+  "putstring",
+  "concatstrings",
+  "tostring",
+  "toregexp",
+  "newarray",
+  "duparray",
+  "expandarray",
+  "concatarray",
+  "splatarray",
+  "checkincludearray",
+  "newhash",
+  "newrange",
+  "pop",
+  "dup",
+  "dupn",
+  "swap",
+  "reput",
+  "topn",
+  "setn",
+  "adjuststack",
+  "defined",
+  "trace",
+  "defineclass",
+  "send",
+  "invokesuper",
+  "invokeblock",
+  "leave",
+  "finish",
+  "throw",
+  "jump",
+  "branchif",
+  "branchunless",
+  "getinlinecache",
+  "onceinlinecache",
+  "setinlinecache",
+  "opt_case_dispatch",
+  "opt_checkenv",
+  "opt_plus",
+  "opt_minus",
+  "opt_mult",
+  "opt_div",
+  "opt_mod",
+  "opt_eq",
+  "opt_neq",
+  "opt_lt",
+  "opt_le",
+  "opt_gt",
+  "opt_ge",
+  "opt_ltlt",
+  "opt_aref",
+  "opt_aset",
+  "opt_length",
+  "opt_size",
+  "opt_succ",
+  "opt_not",
+  "opt_regexpmatch1",
+  "opt_regexpmatch2",
+  "opt_call_c_function",
+  "bitblt",
+  "answer",
+
+};
+
+static const char *const insn_operand_info[] = {
+  "", 
+  "L", 
+  "L", 
+  "VN", 
+  "V", 
+  "DN", 
+  "DN", 
+  "IC", 
+  "IC", 
+  "I", 
+  "I", 
+  "I", 
+  "I", 
+  "G", 
+  "G", 
+  "", 
+  "", 
+  "V", 
+  "N", 
+  "S", 
+  "V", 
+  "N", 
+  "", 
+  "NN", 
+  "N", 
+  "V", 
+  "NN", 
+  "", 
+  "V", 
+  "V", 
+  "N", 
+  "N", 
+  "", 
+  "", 
+  "N", 
+  "", 
+  "", 
+  "N", 
+  "N", 
+  "N", 
+  "NVV", 
+  "N", 
+  "ISN", 
+  "INSNC", 
+  "NSN", 
+  "NN", 
+  "", 
+  "", 
+  "N", 
+  "O", 
+  "O", 
+  "O", 
+  "OC", 
+  "OC", 
+  "C", 
+  "HO", 
+  "", 
+  "C", 
+  "C", 
+  "C", 
+  "C", 
+  "C", 
+  "C", 
+  "CC", 
+  "C", 
+  "C", 
+  "C", 
+  "C", 
+  "C", 
+  "C", 
+  "C", 
+  "C", 
+  "C", 
+  "C", 
+  "C", 
+  "V", 
+  "", 
+  "F", 
+  "", 
+  "", 
+
+};
+
+static const int insn_len_info[] = {
+  1,
+  2,
+  2,
+  3,
+  2,
+  3,
+  3,
+  3,
+  3,
+  2,
+  2,
+  2,
+  2,
+  2,
+  2,
+  1,
+  1,
+  2,
+  2,
+  2,
+  2,
+  2,
+  1,
+  3,
+  2,
+  2,
+  3,
+  1,
+  2,
+  2,
+  2,
+  2,
+  1,
+  1,
+  2,
+  1,
+  1,
+  2,
+  2,
+  2,
+  4,
+  2,
+  4,
+  6,
+  4,
+  3,
+  1,
+  1,
+  2,
+  2,
+  2,
+  2,
+  3,
+  3,
+  2,
+  3,
+  1,
+  2,
+  2,
+  2,
+  2,
+  2,
+  2,
+  3,
+  2,
+  2,
+  2,
+  2,
+  2,
+  2,
+  2,
+  2,
+  2,
+  2,
+  2,
+  2,
+  1,
+  2,
+  1,
+  1,
+
+};
+
+#ifdef USE_INSN_RET_NUM
+static const int insn_stack_push_num_info[] = {
+  0,
+  1,
+  0,
+  1,
+  0,
+  1,
+  0,
+  1,
+  0,
+  1,
+  0,
+  1,
+  0,
+  1,
+  0,
+  1,
+  1,
+  1,
+  1,
+  1,
+  1,
+  1,
+  1,
+  1,
+  1,
+  1,
+  1,
+  1,
+  1,
+  2,
+  1,
+  1,
+  0,
+  2,
+  1,
+  2,
+  1,
+  1,
+  1,
+  1,
+  1,
+  0,
+  1,
+  1,
+  1,
+  1,
+  1,
+  1,
+  1,
+  0,
+  0,
+  0,
+  1,
+  1,
+  1,
+  0,
+  0,
+  1,
+  1,
+  1,
+  1,
+  1,
+  1,
+  1,
+  1,
+  1,
+  1,
+  1,
+  1,
+  1,
+  1,
+  1,
+  1,
+  1,
+  1,
+  1,
+  1,
+  0,
+  1,
+  1,
+
+};
+#endif
+
+#ifdef USE_INSN_STACK_INCREASE
+static int
+insn_stack_increase(int depth, int insn, VALUE *opes)
+{
+  switch(insn){
+        case BIN(nop):{
+          return depth + 0;
+        }
+        case BIN(getlocal):{
+          return depth + 1;
+        }
+        case BIN(setlocal):{
+          return depth + -1;
+        }
+        case BIN(getspecial):{
+          return depth + 1;
+        }
+        case BIN(setspecial):{
+          return depth + -1;
+        }
+        case BIN(getdynamic):{
+          return depth + 1;
+        }
+        case BIN(setdynamic):{
+          return depth + -1;
+        }
+        case BIN(getinstancevariable):{
+          return depth + 1;
+        }
+        case BIN(setinstancevariable):{
+          return depth + -1;
+        }
+        case BIN(getclassvariable):{
+          return depth + 1;
+        }
+        case BIN(setclassvariable):{
+          return depth + -1;
+        }
+        case BIN(getconstant):{
+          return depth + 0;
+        }
+        case BIN(setconstant):{
+          return depth + -2;
+        }
+        case BIN(getglobal):{
+          return depth + 1;
+        }
+        case BIN(setglobal):{
+          return depth + -1;
+        }
+        case BIN(putnil):{
+          return depth + 1;
+        }
+        case BIN(putself):{
+          return depth + 1;
+        }
+        case BIN(putobject):{
+          return depth + 1;
+        }
+        case BIN(putspecialobject):{
+          return depth + 1;
+        }
+        case BIN(putiseq):{
+          return depth + 1;
+        }
+        case BIN(putstring):{
+          return depth + 1;
+        }
+        case BIN(concatstrings):{
+          int inc = 0;
+        int num = FIX2INT(opes[0]);
+        inc += 1 - num;;
+        return depth + inc;
+        }
+        case BIN(tostring):{
+          return depth + 0;
+        }
+        case BIN(toregexp):{
+          int inc = 0;
+        int cnt = FIX2INT(opes[1]);
+        inc += 1 - cnt;;
+        return depth + inc;
+        }
+        case BIN(newarray):{
+          int inc = 0;
+        int num = FIX2INT(opes[0]);
+        inc += 1 - num;;
+        return depth + inc;
+        }
+        case BIN(duparray):{
+          return depth + 1;
+        }
+        case BIN(expandarray):{
+          int inc = 0;
+        int num = FIX2INT(opes[0]);
+        int flag = FIX2INT(opes[1]);
+        inc += num - 1 + (flag & 1 ? 1 : 0);;
+        return depth + inc;
+        }
+        case BIN(concatarray):{
+          return depth + -1;
+        }
+        case BIN(splatarray):{
+          return depth + 0;
+        }
+        case BIN(checkincludearray):{
+          return depth + 0;
+        }
+        case BIN(newhash):{
+          int inc = 0;
+        int num = FIX2INT(opes[0]);
+        inc += 1 - num;;
+        return depth + inc;
+        }
+        case BIN(newrange):{
+          return depth + -1;
+        }
+        case BIN(pop):{
+          return depth + -1;
+        }
+        case BIN(dup):{
+          return depth + 1;
+        }
+        case BIN(dupn):{
+          int inc = 0;
+        int n = FIX2INT(opes[0]);
+        inc += n;;
+        return depth + inc;
+        }
+        case BIN(swap):{
+          return depth + 0;
+        }
+        case BIN(reput):{
+          int inc = 0;
+        inc += 0;;
+        return depth + inc;
+        }
+        case BIN(topn):{
+          int inc = 0;
+        inc += 1;;
+        return depth + inc;
+        }
+        case BIN(setn):{
+          int inc = 0;
+        inc += 0;
+        return depth + inc;
+        }
+        case BIN(adjuststack):{
+          int inc = 0;
+        int n = FIX2INT(opes[0]);
+        inc -= n;
+        return depth + inc;
+        }
+        case BIN(defined):{
+          return depth + 0;
+        }
+        case BIN(trace):{
+          return depth + 0;
+        }
+        case BIN(defineclass):{
+          return depth + -1;
+        }
+        case BIN(send):{
+          int inc = 0;
+        int op_argc = FIX2INT(opes[1]);
+        int op_flag = FIX2INT(opes[3]);
+        inc += - (int)(op_argc + ((op_flag & VM_CALL_ARGS_BLOCKARG_BIT) ? 1 : 0));;
+        return depth + inc;
+        }
+        case BIN(invokesuper):{
+          int inc = 0;
+        int op_argc = FIX2INT(opes[0]);
+        int op_flag = FIX2INT(opes[2]);
+        inc += - (int)(op_argc + ((op_flag & VM_CALL_ARGS_BLOCKARG_BIT) ? 1 : 0));;
+        return depth + inc;
+        }
+        case BIN(invokeblock):{
+          int inc = 0;
+        int num = FIX2INT(opes[0]);
+        inc += 1 - num;;
+        return depth + inc;
+        }
+        case BIN(leave):{
+          return depth + 0;
+        }
+        case BIN(finish):{
+          return depth + 0;
+        }
+        case BIN(throw):{
+          return depth + 0;
+        }
+        case BIN(jump):{
+          return depth + 0;
+        }
+        case BIN(branchif):{
+          return depth + -1;
+        }
+        case BIN(branchunless):{
+          return depth + -1;
+        }
+        case BIN(getinlinecache):{
+          return depth + 1;
+        }
+        case BIN(onceinlinecache):{
+          return depth + 1;
+        }
+        case BIN(setinlinecache):{
+          return depth + 0;
+        }
+        case BIN(opt_case_dispatch):{
+          int inc = 0;
+        inc += -1;;
+        return depth + inc;
+        }
+        case BIN(opt_checkenv):{
+          return depth + 0;
+        }
+        case BIN(opt_plus):{
+          return depth + -1;
+        }
+        case BIN(opt_minus):{
+          return depth + -1;
+        }
+        case BIN(opt_mult):{
+          return depth + -1;
+        }
+        case BIN(opt_div):{
+          return depth + -1;
+        }
+        case BIN(opt_mod):{
+          return depth + -1;
+        }
+        case BIN(opt_eq):{
+          return depth + -1;
+        }
+        case BIN(opt_neq):{
+          return depth + -1;
+        }
+        case BIN(opt_lt):{
+          return depth + -1;
+        }
+        case BIN(opt_le):{
+          return depth + -1;
+        }
+        case BIN(opt_gt):{
+          return depth + -1;
+        }
+        case BIN(opt_ge):{
+          return depth + -1;
+        }
+        case BIN(opt_ltlt):{
+          return depth + -1;
+        }
+        case BIN(opt_aref):{
+          return depth + -1;
+        }
+        case BIN(opt_aset):{
+          return depth + -2;
+        }
+        case BIN(opt_length):{
+          return depth + 0;
+        }
+        case BIN(opt_size):{
+          return depth + 0;
+        }
+        case BIN(opt_succ):{
+          return depth + 0;
+        }
+        case BIN(opt_not):{
+          return depth + 0;
+        }
+        case BIN(opt_regexpmatch1):{
+          return depth + 0;
+        }
+        case BIN(opt_regexpmatch2):{
+          return depth + -1;
+        }
+        case BIN(opt_call_c_function):{
+          return depth + 0;
+        }
+        case BIN(bitblt):{
+          return depth + 1;
+        }
+        case BIN(answer):{
+          return depth + 1;
+        }
+
+  default:
+    rb_bug("insn_sp_increase: unreachable");
+  }
+  return 0;
+}
+#endif
+
+/* some utilities */
+
+static int
+insn_len(VALUE insn)
+{
+  return insn_len_info[(int)insn];
+}
+
+static const char *
+insn_name(VALUE insn)
+{
+  return insn_name_info[(int)insn];
+}
+
+static const char *
+insn_op_types(VALUE insn)
+{
+  return insn_operand_info[(int)insn];
+}
+
+static int
+insn_op_type(VALUE insn, long pos)
+{
+  int len = insn_len(insn) - 1;
+  if(pos < len){
+    return insn_operand_info[(int)insn][pos];
+  }
+  else{
+    return 0;
+  }
+}
+
+#ifdef USE_INSN_RET_NUM
+static int
+insn_ret_num(VALUE insn)
+{
+  return insn_stack_push_num_info[(int)insn];
+}
+#endif