llrb 0.0.1

data/ext/llrb/cruby/vm_debug.h

@@ -0,0 +1,37 @@
+/**********************************************************************
+
+  vm_debug.h - YARV Debug function interface
+
+  $Author$
+  created at: 04/08/25 02:33:49 JST
+
+  Copyright (C) 2004-2007 Koichi Sasada
+
+**********************************************************************/
+
+#ifndef RUBY_DEBUG_H
+#define RUBY_DEBUG_H
+
+#include "ruby/ruby.h"
+#include "node.h"
+
+RUBY_SYMBOL_EXPORT_BEGIN
+
+#define dpv(h,v) ruby_debug_print_value(-1, 0, (h), (v))
+#define dp(v)    ruby_debug_print_value(-1, 0, "", (v))
+#define dpi(i)   ruby_debug_print_id(-1, 0, "", (i))
+#define dpn(n)   ruby_debug_print_node(-1, 0, "", (n))
+
+#define bp()     ruby_debug_breakpoint()
+
+VALUE ruby_debug_print_value(int level, int debug_level, const char *header, VALUE v);
+ID    ruby_debug_print_id(int level, int debug_level, const char *header, ID id);
+NODE *ruby_debug_print_node(int level, int debug_level, const char *header, const NODE *node);
+int   ruby_debug_print_indent(int level, int debug_level, int indent_level);
+void  ruby_debug_breakpoint(void);
+void  ruby_debug_gc_check_func(void);
+void ruby_set_debug_option(const char *str);
+
+RUBY_SYMBOL_EXPORT_END
+
+#endif /* RUBY_DEBUG_H */

data/ext/llrb/cruby/vm_exec.h

@@ -0,0 +1,182 @@
+/**********************************************************************
+
+  vm.h -
+
+  $Author$
+  created at: 04/01/01 16:56:59 JST
+
+  Copyright (C) 2004-2007 Koichi Sasada
+
+**********************************************************************/
+
+#ifndef RUBY_VM_EXEC_H
+#define RUBY_VM_EXEC_H
+
+typedef long OFFSET;
+typedef unsigned long lindex_t;
+typedef VALUE GENTRY;
+typedef rb_iseq_t *ISEQ;
+
+#ifdef __GCC__
+/* TODO: machine dependent prefetch instruction */
+#define PREFETCH(pc)
+#else
+#define PREFETCH(pc)
+#endif
+
+#if VMDEBUG > 0
+#define debugs printf
+#define DEBUG_ENTER_INSN(insn) \
+    rb_vmdebug_debug_print_pre(th, GET_CFP(),GET_PC());
+
+#if OPT_STACK_CACHING
+#define SC_REGS() , reg_a, reg_b
+#else
+#define SC_REGS()
+#endif
+
+#define DEBUG_END_INSN() \
+  rb_vmdebug_debug_print_post(th, GET_CFP() SC_REGS());
+
+#else
+
+#define debugs
+#define DEBUG_ENTER_INSN(insn)
+#define DEBUG_END_INSN()
+#endif
+
+#define throwdebug if(0)printf
+/* #define throwdebug printf */
+
+/************************************************/
+#if defined(DISPATCH_XXX)
+error !
+/************************************************/
+#elif OPT_CALL_THREADED_CODE
+
+#define LABEL(x)  insn_func_##x
+#define ELABEL(x)
+#define LABEL_PTR(x) &LABEL(x)
+
+#define INSN_ENTRY(insn) \
+  static rb_control_frame_t * \
+    FUNC_FASTCALL(LABEL(insn))(rb_thread_t *th, rb_control_frame_t *reg_cfp) {
+
+#define END_INSN(insn) return reg_cfp;}
+
+#define NEXT_INSN() return reg_cfp;
+
+/************************************************/
+#elif OPT_TOKEN_THREADED_CODE || OPT_DIRECT_THREADED_CODE
+/* threaded code with gcc */
+
+#define LABEL(x)  INSN_LABEL_##x
+#define ELABEL(x) INSN_ELABEL_##x
+#define LABEL_PTR(x) &&LABEL(x)
+
+#define INSN_ENTRY_SIG(insn)
+
+
+#define INSN_DISPATCH_SIG(insn)
+
+#define INSN_ENTRY(insn) \
+  LABEL(insn): \
+  INSN_ENTRY_SIG(insn); \
+
+/* dispatcher */
+#if defined(__GNUC__) && (defined(__i386__) || defined(__x86_64__)) && __GNUC__ == 3
+#define DISPATCH_ARCH_DEPEND_WAY(addr) \
+  __asm__ __volatile__("jmp *%0;\t# -- inserted by vm.h\t[length = 2]" : : "r" (addr))
+
+#else
+#define DISPATCH_ARCH_DEPEND_WAY(addr) \
+				/* do nothing */
+
+#endif
+
+
+/**********************************/
+#if OPT_DIRECT_THREADED_CODE
+
+/* for GCC 3.4.x */
+#define TC_DISPATCH(insn) \
+  INSN_DISPATCH_SIG(insn); \
+  goto *(void const *)GET_CURRENT_INSN(); \
+  ;
+
+#else
+/* token threaded code */
+
+#define TC_DISPATCH(insn)  \
+  DISPATCH_ARCH_DEPEND_WAY(insns_address_table[GET_CURRENT_INSN()]); \
+  INSN_DISPATCH_SIG(insn); \
+  goto *insns_address_table[GET_CURRENT_INSN()]; \
+  rb_bug("tc error");
+
+
+#endif /* DISPATCH_DIRECT_THREADED_CODE */
+
+#define END_INSN(insn)      \
+  DEBUG_END_INSN();         \
+  TC_DISPATCH(insn);
+
+#define INSN_DISPATCH()     \
+  TC_DISPATCH(__START__)    \
+  {
+
+#define END_INSNS_DISPATCH()    \
+      rb_bug("unknown insn: %"PRIdVALUE, GET_CURRENT_INSN());   \
+  }   /* end of while loop */   \
+
+#define NEXT_INSN() TC_DISPATCH(__NEXT_INSN__)
+
+/************************************************/
+#else /* no threaded code */
+/* most common method */
+
+#define INSN_ENTRY(insn) \
+case BIN(insn):
+
+#define END_INSN(insn)                        \
+  DEBUG_END_INSN();                           \
+  break;
+
+
+#define INSN_DISPATCH()         \
+  while (1) {			\
+    switch (GET_CURRENT_INSN()) {
+
+#define END_INSNS_DISPATCH()    \
+default:                        \
+  SDR(); \
+      rb_bug("unknown insn: %ld", GET_CURRENT_INSN());   \
+    } /* end of switch */       \
+  }   /* end of while loop */   \
+
+#define NEXT_INSN() goto first
+
+#endif
+
+#define VM_SP_CNT(th, sp) ((sp) - (th)->stack)
+
+#if OPT_CALL_THREADED_CODE
+#define THROW_EXCEPTION(exc) do { \
+    th->errinfo = (VALUE)(exc); \
+    return 0; \
+} while (0)
+#else
+#define THROW_EXCEPTION(exc) return (VALUE)(exc)
+#endif
+
+#define SCREG(r) (reg_##r)
+
+#define VM_DEBUG_STACKOVERFLOW 0
+
+#if VM_DEBUG_STACKOVERFLOW
+#define CHECK_VM_STACK_OVERFLOW_FOR_INSN(cfp, margin) \
+    WHEN_VM_STACK_OVERFLOWED(cfp, (cfp)->sp, margin) vm_stack_overflow_for_insn()
+#else
+#define CHECK_VM_STACK_OVERFLOW_FOR_INSN(cfp, margin)
+#endif
+
+#endif /* RUBY_VM_EXEC_H */

data/ext/llrb/cruby/vm_opts.h

@@ -0,0 +1,57 @@
+/*-*-c-*-*/
+/**********************************************************************
+
+  vm_opts.h - VM optimize option
+
+  $Author$
+
+  Copyright (C) 2004-2007 Koichi Sasada
+
+**********************************************************************/
+
+
+#ifndef RUBY_VM_OPTS_H
+#define RUBY_VM_OPTS_H
+
+/* Compile options.
+ * You can change these options at runtime by VM::CompileOption.
+ * 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
+#define OPT_INLINE_CONST_CACHE          1
+#define OPT_FROZEN_STRING_LITERAL       0
+#define OPT_DEBUG_FROZEN_STRING_LITERAL 0
+
+/* Build Options.
+ * You can't change these options at runtime.
+ */
+
+/* C compiler dependent */
+#define OPT_DIRECT_THREADED_CODE     1
+#define OPT_TOKEN_THREADED_CODE      0
+#define OPT_CALL_THREADED_CODE       0
+
+/* VM running option */
+#define OPT_CHECKED_RUN              1
+#define OPT_INLINE_METHOD_CACHE      1
+#define OPT_GLOBAL_METHOD_CACHE      1
+#define OPT_BLOCKINLINING            0
+
+/* architecture independent, affects generated code */
+#define OPT_OPERANDS_UNIFICATION     1
+#define OPT_INSTRUCTIONS_UNIFICATION 0
+#define OPT_UNIFY_ALL_COMBINATION    0
+#define OPT_STACK_CACHING            0
+
+/* misc */
+#define SUPPORT_JOKE                 0
+
+#ifndef VM_COLLECT_USAGE_DETAILS
+#define VM_COLLECT_USAGE_DETAILS     0
+#endif
+
+#endif /* RUBY_VM_OPTS_H */

data/ext/llrb/cruby_extra/id.h

@@ -0,0 +1,220 @@
+/* DO NOT EDIT THIS FILE DIRECTLY */
+/**********************************************************************
+
+  id.h -
+
+  $Author$
+  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_STATIC_SYM  = 0x01,
+    RUBY_ID_LOCAL       = 0x00,
+    RUBY_ID_INSTANCE    = (0x01<<1),
+    RUBY_ID_GLOBAL      = (0x03<<1),
+    RUBY_ID_ATTRSET     = (0x04<<1),
+    RUBY_ID_CONST       = (0x05<<1),
+    RUBY_ID_CLASS       = (0x06<<1),
+    RUBY_ID_JUNK        = (0x07<<1),
+    RUBY_ID_INTERNAL    = RUBY_ID_JUNK,
+    RUBY_ID_SCOPE_SHIFT = 4,
+    RUBY_ID_SCOPE_MASK  = (~(~0U<<(RUBY_ID_SCOPE_SHIFT-1))<<1)
+};
+
+#define ID_STATIC_SYM  RUBY_ID_STATIC_SYM
+#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 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_ANDOP 148
+#define RUBY_TOKEN_OROP 149
+#define RUBY_TOKEN_ANDDOT 150
+#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 = '%',
+    idLTLT = RUBY_TOKEN(LSHFT),
+    idGTGT = RUBY_TOKEN(RSHFT),
+    idLT = '<',
+    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),
+    idCOLON2 = RUBY_TOKEN(COLON2),
+    idANDOP = RUBY_TOKEN(ANDOP),
+    idOROP = RUBY_TOKEN(OROP),
+    idANDDOT = RUBY_TOKEN(ANDDOT),
+    tPRESERVED_ID_BEGIN = 150,
+    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,
+    id_debug_created_info,
+    tPRESERVED_ID_END,
+    tMax,
+    tMin,
+    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,
+    tTo_int,
+    tTo_ary,
+    tTo_str,
+    tTo_sym,
+    tTo_hash,
+    tTo_proc,
+    tTo_io,
+    tTo_a,
+    tTo_s,
+    tTo_i,
+    tBt,
+    tBt_locations,
+    tCall,
+    tMesg,
+    tException,
+    tUScore,
+    tLASTLINE,
+    tBACKREF,
+    tNEXT_ID,
+#define TOKEN2LOCALID(n) id##n = ((t##n<<ID_SCOPE_SHIFT)|ID_LOCAL|ID_STATIC_SYM)
+    TOKEN2LOCALID(Max),
+    TOKEN2LOCALID(Min),
+    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(To_int),
+    TOKEN2LOCALID(To_ary),
+    TOKEN2LOCALID(To_str),
+    TOKEN2LOCALID(To_sym),
+    TOKEN2LOCALID(To_hash),
+    TOKEN2LOCALID(To_proc),
+    TOKEN2LOCALID(To_io),
+    TOKEN2LOCALID(To_a),
+    TOKEN2LOCALID(To_s),
+    TOKEN2LOCALID(To_i),
+    TOKEN2LOCALID(Bt),
+    TOKEN2LOCALID(Bt_locations),
+    TOKEN2LOCALID(Call),
+    TOKEN2LOCALID(Mesg),
+    TOKEN2LOCALID(Exception),
+    TOKEN2LOCALID(UScore),
+#define TOKEN2GLOBALID(n) id##n = ((t##n<<ID_SCOPE_SHIFT)|ID_GLOBAL|ID_STATIC_SYM)
+    TOKEN2GLOBALID(LASTLINE),
+    TOKEN2GLOBALID(BACKREF),
+    tLAST_OP_ID = tPRESERVED_ID_END-1,
+    idLAST_OP_ID = tLAST_OP_ID >> ID_SCOPE_SHIFT
+};
+
+#endif /* RUBY_ID_H */