cast_off 0.2.0

data/ext/cast_off/cast_off.h

@@ -0,0 +1,24 @@
+#include <ruby.h>
+
+#include "vm_core.h"
+#include "eval_intern.h"
+#include "iseq.h"
+#include "gc.h"
+#include <ruby/vm.h>
+#include <ruby/encoding.h>
+#include "vm_insnhelper.h"
+#include "vm_insnhelper.c"
+#include "vm_exec.h"
+
+#ifdef  USE_INSN_STACK_INCREASE
+#undef  USE_INSN_STACK_INCREASE
+#endif
+#define USE_INSN_STACK_INCREASE 1
+
+#ifdef USE_INSN_RET_NUM
+#undef USE_INSN_RET_NUM
+#endif
+#define USE_INSN_RET_NUM 1
+
+#include "insns_info.inc"
+#include "manual_update.h"

data/ext/cast_off/depend

@@ -0,0 +1,70 @@
+$(srcdir)/generated_c_include/unbox_api.h:	\
+  $(srcdir)/generated_c_include/unbox_api.h.rb
+	$(RUBY) -- $(srcdir)/generated_c_include/unbox_api.h.rb > $@
+
+
+cast_off.c:					\
+  $(srcdir)/ruby_source/debug.h			\
+  $(srcdir)/ruby_source/gc.h			\
+  $(srcdir)/ruby_source/id.h			\
+  $(srcdir)/ruby_source/eval_intern.h		\
+  $(srcdir)/ruby_source/iseq.h			\
+  $(srcdir)/ruby_source/method.h		\
+  $(srcdir)/ruby_source/node.h			\
+  $(srcdir)/ruby_source/thread_pthread.h	\
+  $(srcdir)/ruby_source/thread_win32.h		\
+  $(srcdir)/ruby_source/vm_core.h		\
+  $(srcdir)/ruby_source/vm_exec.h		\
+  $(srcdir)/ruby_source/vm_insnhelper.c		\
+  $(srcdir)/ruby_source/vm_insnhelper.h		\
+  $(srcdir)/ruby_source/vm_opts.h		\
+  $(srcdir)/ruby_source/insns_info.inc		\
+  $(srcdir)/ruby_source/insns.inc		\
+  $(srcdir)/ruby_source/constant.h		\
+  $(srcdir)/ruby_source/atomic.h		\
+  $(srcdir)/ruby_source/internal.h		\
+  $(srcdir)/ruby_source/manual_update.h		\
+  $(srcdir)/generated_c_include/iter_api.h	\
+  $(srcdir)/generated_c_include/vm_api.h	\
+  $(srcdir)/generated_c_include/inline_api.h	\
+  $(srcdir)/generated_c_include/unbox_api.h	\
+  $(srcdir)/generated_c_include/unbox_api.h.rb	\
+  $(srcdir)/extconf.h				\
+  $(srcdir)/cast_off.h				\
+  $(srcdir)/cast_off.c.rb
+	$(RUBY) -- $(srcdir)/cast_off.c.rb $(srcdir)/ruby_source $(srcdir)/generated_c_include > $@
+
+
+cast_off.o:					\
+  $(arch_hdrdir)/ruby/config.h			\
+  $(hdrdir)/ruby/defines.h			\
+  $(hdrdir)/ruby/intern.h			\
+  $(hdrdir)/ruby/missing.h			\
+  $(hdrdir)/ruby/ruby.h				\
+  $(hdrdir)/ruby/st.h				\
+  $(srcdir)/ruby_source/eval_intern.h		\
+  $(srcdir)/ruby_source/iseq.h			\
+  $(srcdir)/ruby_source/method.h		\
+  $(srcdir)/ruby_source/node.h			\
+  $(srcdir)/ruby_source/thread_pthread.h	\
+  $(srcdir)/ruby_source/thread_win32.h		\
+  $(srcdir)/ruby_source/vm_core.h		\
+  $(srcdir)/ruby_source/vm_exec.h		\
+  $(srcdir)/ruby_source/vm_insnhelper.c		\
+  $(srcdir)/ruby_source/vm_insnhelper.h		\
+  $(srcdir)/ruby_source/vm_opts.h		\
+  $(srcdir)/ruby_source/insns_info.inc		\
+  $(srcdir)/ruby_source/insns.inc		\
+  $(srcdir)/ruby_source/constant.h		\
+  $(srcdir)/ruby_source/atomic.h		\
+  $(srcdir)/ruby_source/internal.h		\
+  $(srcdir)/ruby_source/manual_update.h		\
+  $(srcdir)/generated_c_include/iter_api.h	\
+  $(srcdir)/generated_c_include/vm_api.h	\
+  $(srcdir)/generated_c_include/inline_api.h	\
+  $(srcdir)/generated_c_include/unbox_api.h	\
+  $(srcdir)/generated_c_include/unbox_api.h.rb	\
+  $(srcdir)/extconf.h				\
+  $(srcdir)/cast_off.h				\
+  $(srcdir)/cast_off.c
+

data/ext/cast_off/extconf.rb

@@ -0,0 +1,19 @@
+# coding=utf-8
+
+# Ruby to C  (and then, to machine executable)  compiler, originally written by
+# Urabe  Shyouhei <shyouhei@ruby-lang.org>  during 2010.   See the  COPYING for
+# legal info.
+
+require 'mkmf'
+require 'rbconfig'
+extend RbConfig
+
+$defs.push '-DCABI_OPERANDS' if enable_config 'cabi-operands', true
+$defs.push '-DCABI_PASS_CFP' if enable_config 'cabi-pass-cfp', true
+
+$INCFLAGS << ' -I$(srcdir)/ruby_source'
+$objs = %w'cast_off.o'
+$srcs = %w'cast_off.c.rb'
+create_header
+create_makefile 'cast_off'
+

data/ext/cast_off/generated_c_include/inline_api.h

@@ -0,0 +1,507 @@
+#define TYPE_ERROR_MESSAGE() "type mismatch"
+
+static inline VALUE
+cast_off_inline_fixnum_fixnum_plus(VALUE recv, VALUE obj)
+{
+#if 0
+#ifdef INJECT_GUARD
+  if (UNLIKELY(!FIXNUM_2_P(recv, obj))) {
+    rb_raise(rb_eCastOffExecutionError, TYPE_ERROR_MESSAGE());
+  }
+#endif
+#endif
+
+#ifndef LONG_LONG_VALUE
+  {
+    VALUE val = (recv + (obj & (~1)));
+#ifdef INJECT_GUARD
+    if ((~(recv ^ obj) & (recv ^ val)) & ((VALUE)0x01 << ((sizeof(VALUE) * CHAR_BIT) - 1))) {
+      rb_raise(rb_eCastOffExecutionError, TYPE_ERROR_MESSAGE());
+    }
+#endif /* INJECT_GUARD */
+    return val;
+  }
+#else  /* LONG_LONG_VALUE */
+  {
+    long a, b, c;
+    a = FIX2LONG(recv);
+    b = FIX2LONG(obj);
+    c = a + b;
+#ifdef INJECT_GUARD
+    if (UNLIKELY(!FIXABLE(c))) {
+      rb_raise(rb_eCastOffExecutionError, TYPE_ERROR_MESSAGE());
+    }
+#endif /* INJECT_GUARD */
+    return LONG2FIX(c);
+  }
+#endif /* LONG_LONG_VALUE */
+}
+
+static inline VALUE
+cast_off_inline_fixnum_float_plus(VALUE recv, VALUE obj)
+{
+  return DBL2NUM((double)FIX2LONG(recv) + RFLOAT_VALUE(obj));
+}
+
+static inline VALUE
+cast_off_inline_fixnum_fixnum_minus(VALUE recv, VALUE obj)
+{
+  long a, b, c;
+
+#if 0
+#ifdef INJECT_GUARD
+  if (UNLIKELY(!FIXNUM_2_P(recv, obj))) {
+    rb_raise(rb_eCastOffExecutionError, TYPE_ERROR_MESSAGE());
+  }
+#endif
+#endif
+
+  a = FIX2LONG(recv);
+  b = FIX2LONG(obj);
+  c = a - b;
+#ifdef INJECT_GUARD
+  if (LIKELY(FIXABLE(c))) {
+#endif
+    return LONG2FIX(c);
+#ifdef INJECT_GUARD
+  } else {
+    rb_raise(rb_eCastOffExecutionError, TYPE_ERROR_MESSAGE());
+  }
+#endif
+}
+
+static inline VALUE
+cast_off_inline_fixnum_float_minus(VALUE recv, VALUE obj)
+{
+  return DBL2NUM((double)FIX2LONG(recv) - RFLOAT_VALUE(obj));
+}
+
+static inline VALUE
+cast_off_inline_fixnum_fixnum_mult(VALUE recv, VALUE obj)
+{
+  long a, b, c;
+
+#if 0
+#ifdef INJECT_GUARD
+  if (UNLIKELY(!FIXNUM_2_P(recv, obj))) {
+    rb_raise(rb_eCastOffExecutionError, TYPE_ERROR_MESSAGE());
+  }
+#endif
+#endif
+
+  a = FIX2LONG(recv);
+  b = FIX2LONG(obj);
+  c = a * b;
+#ifdef INJECT_GUARD
+  if (LIKELY(FIXABLE(c))) {
+#endif
+    return LONG2FIX(c);
+#ifdef INJECT_GUARD
+  } else {
+    rb_raise(rb_eCastOffExecutionError, TYPE_ERROR_MESSAGE());
+  }
+#endif
+}
+
+static inline VALUE
+cast_off_inline_fixnum_float_mult(VALUE recv, VALUE obj)
+{
+  return DBL2NUM((double)FIX2LONG(recv) * RFLOAT_VALUE(obj));
+}
+
+static inline VALUE
+cast_off_inline_fixnum_le(VALUE recv, VALUE obj)
+{
+  long a, b;
+
+#if 0
+#ifdef INJECT_GUARD
+  if (UNLIKELY(!FIXNUM_2_P(recv, obj))) {
+    rb_raise(rb_eCastOffExecutionError, TYPE_ERROR_MESSAGE());
+  }
+#endif
+#endif
+
+  a = FIX2LONG(recv);
+  b = FIX2LONG(obj);
+  if (a <= b) {
+    return Qtrue;
+  } else {
+    return Qfalse;
+  }
+}
+
+static inline VALUE
+cast_off_inline_fixnum_lt(VALUE recv, VALUE obj)
+{
+  long a, b;
+
+#if 0
+#ifdef INJECT_GUARD
+  if (UNLIKELY(!FIXNUM_2_P(recv, obj))) {
+    rb_raise(rb_eCastOffExecutionError, TYPE_ERROR_MESSAGE());
+  }
+#endif
+#endif
+
+  a = FIX2LONG(recv);
+  b = FIX2LONG(obj);
+  if (a < b) {
+    return Qtrue;
+  } else {
+    return Qfalse;
+  }
+}
+
+static inline VALUE
+cast_off_inline_fixnum_ge(VALUE recv, VALUE obj)
+{
+  long a, b;
+
+#if 0
+#ifdef INJECT_GUARD
+  if (UNLIKELY(!FIXNUM_2_P(recv, obj))) {
+    rb_raise(rb_eCastOffExecutionError, TYPE_ERROR_MESSAGE());
+  }
+#endif
+#endif
+  a = FIX2LONG(recv);
+  b = FIX2LONG(obj);
+  if (a >= b) {
+    return Qtrue;
+  } else {
+    return Qfalse;
+  }
+}
+
+static inline VALUE
+cast_off_inline_fixnum_gt(VALUE recv, VALUE obj)
+{
+  long a, b;
+
+#if 0
+#ifdef INJECT_GUARD
+  if (UNLIKELY(!FIXNUM_2_P(recv, obj))) {
+    rb_raise(rb_eCastOffExecutionError, TYPE_ERROR_MESSAGE());
+  }
+#endif
+#endif
+  a = FIX2LONG(recv);
+  b = FIX2LONG(obj);
+  if (a > b) {
+    return Qtrue;
+  } else {
+    return Qfalse;
+  }
+}
+
+static inline VALUE
+cast_off_inline_fixnum_eq(VALUE recv, VALUE obj)
+{
+#if 0
+#ifdef INJECT_GUARD
+  if (UNLIKELY(!FIXNUM_2_P(recv, obj))) {
+    rb_raise(rb_eCastOffExecutionError, TYPE_ERROR_MESSAGE());
+  }
+#endif
+#endif
+  if (recv == obj) {
+    return Qtrue;
+  } else {
+    return Qfalse;
+  }
+}
+#define cast_off_inline_fixnum_eqq(recv, obj) cast_off_inline_fixnum_eq((recv), (obj))
+
+static inline VALUE
+cast_off_inline_fixnum_neq(VALUE recv, VALUE obj)
+{
+#if 0
+#ifdef INJECT_GUARD
+  if (UNLIKELY(!FIXNUM_2_P(recv, obj))) {
+    rb_raise(rb_eCastOffExecutionError, TYPE_ERROR_MESSAGE());
+  }
+#endif
+#endif
+  if (recv != obj) {
+    return Qtrue;
+  } else {
+    return Qfalse;
+  }
+}
+
+static inline VALUE
+cast_off_inline_fixnum_and(VALUE recv, VALUE obj)
+{
+  long val;
+
+#if 0
+#ifdef INJECT_GUARD
+  if (UNLIKELY(!FIXNUM_2_P(recv, obj))) {
+    rb_raise(rb_eCastOffExecutionError, TYPE_ERROR_MESSAGE());
+  }
+#endif
+#endif
+
+  val = FIX2LONG(recv) & FIX2LONG(obj);
+#ifdef INJECT_GUARD
+  if (LIKELY(FIXABLE(val))) {
+#endif
+    return LONG2FIX(val);
+#ifdef INJECT_GUARD
+  } else {
+    rb_raise(rb_eCastOffExecutionError, TYPE_ERROR_MESSAGE());
+  }
+#endif
+}
+
+static inline VALUE
+cast_off_inline_array_entry(VALUE ary, VALUE index)
+{
+  long offset;
+
+#if 0
+#ifdef INJECT_GUARD
+  if (UNLIKELY(rb_class_of(ary) != rb_cArray || !FIXNUM_P(index))) {
+    rb_raise(rb_eCastOffExecutionError, TYPE_ERROR_MESSAGE());
+  }
+#endif
+#endif
+  offset = FIX2LONG(index);
+
+#ifdef ARRAY_CONSERVATIVE
+  return rb_ary_entry(ary, offset);
+#else
+  return RARRAY_PTR(ary)[offset];
+#endif
+}
+
+static inline VALUE
+cast_off_inline_array_store(VALUE ary, VALUE index, VALUE val)
+{
+#if 0
+#ifdef INJECT_GUARD
+  if (UNLIKELY(rb_class_of(ary) != rb_cArray || !FIXNUM_P(index))) {
+    rb_raise(rb_eCastOffExecutionError, TYPE_ERROR_MESSAGE());
+  }
+#endif
+#endif
+
+#ifdef ARRAY_CONSERVATIVE
+  rb_ary_store(ary, FIX2LONG(index), val);
+#else
+  RARRAY_PTR(ary)[FIX2LONG(index)] = val;
+#endif
+  return val;
+}
+
+static inline VALUE
+cast_off_inline_array_length(VALUE ary)
+{
+  long len;
+
+#if 0
+#ifdef INJECT_GUARD
+  if (UNLIKELY(rb_class_of(ary) != rb_cArray)) {
+    rb_raise(rb_eCastOffExecutionError, TYPE_ERROR_MESSAGE());
+  }
+#endif
+#endif
+
+  len = RARRAY_LEN(ary);
+
+#ifdef INJECT_GUARD
+  if (LIKELY(FIXABLE(len))) {
+#endif
+    return LONG2FIX(len);
+#ifdef INJECT_GUARD
+  } else {
+    rb_raise(rb_eCastOffExecutionError, TYPE_ERROR_MESSAGE());
+  }
+#endif
+}
+#define cast_off_inline_array_size(ary) cast_off_inline_array_length((ary))
+
+static inline VALUE
+cast_off_inline_array_empty_p(VALUE ary)
+{
+#if 0
+#ifdef INJECT_GUARD
+  if (UNLIKELY(rb_class_of(ary) != rb_cArray)) {
+    rb_raise(rb_eCastOffExecutionError, TYPE_ERROR_MESSAGE());
+  }
+#endif
+#endif
+
+  if (RARRAY_LEN(ary) == 0) {
+    return Qtrue;
+  } else {
+    return Qfalse;
+  }
+}
+
+static inline VALUE
+cast_off_inline_array_first(VALUE ary)
+{
+#if 0
+#ifdef INJECT_GUARD
+  if (UNLIKELY(rb_class_of(ary) != rb_cArray)) {
+    rb_raise(rb_eCastOffExecutionError, TYPE_ERROR_MESSAGE());
+  }
+#endif
+#endif
+
+#ifdef ARRAY_CONSERVATIVE
+  if (RARRAY_LEN(ary) == 0) return Qnil;
+#endif
+  return RARRAY_PTR(ary)[0];
+}
+
+static inline VALUE
+cast_off_inline_array_last(VALUE ary)
+{
+#if 0
+#ifdef INJECT_GUARD
+  if (UNLIKELY(rb_class_of(ary) != rb_cArray)) {
+    rb_raise(rb_eCastOffExecutionError, TYPE_ERROR_MESSAGE());
+  }
+#endif
+#endif
+
+#ifdef ARRAY_CONSERVATIVE
+  if (RARRAY_LEN(ary) == 0) return Qnil;
+#endif
+  return RARRAY_PTR(ary)[RARRAY_LEN(ary)-1];
+}
+
+static inline VALUE
+cast_off_inline_string_eq(VALUE str1, VALUE str2)
+{
+#if 0
+#ifdef INJECT_GUARD
+  if (UNLIKELY(rb_class_of(str1) != rb_cString || rb_class_of(str2) != rb_cString)) {
+    rb_raise(rb_eCastOffExecutionError, TYPE_ERROR_MESSAGE());
+  }
+#endif
+#endif
+
+  if (str1 == str2) return Qtrue;
+  if (RSTRING_LEN(str1) != RSTRING_LEN(str2)) return Qfalse;
+  return rb_str_equal(str1, str2);
+}
+#define cast_off_inline_string_eqq(str1, str2) cast_off_inline_string_eq((str1), (str2))
+
+static inline VALUE
+cast_off_inline_string_neq(VALUE str1, VALUE str2)
+{
+#if 0
+#ifdef INJECT_GUARD
+  if (UNLIKELY(rb_class_of(str1) != rb_cString || rb_class_of(str2) != rb_cString)) {
+    rb_raise(rb_eCastOffExecutionError, TYPE_ERROR_MESSAGE());
+  }
+#endif
+#endif
+
+  if (str1 == str2) return Qfalse;
+  if (RSTRING_LEN(str1) != RSTRING_LEN(str2)) return Qtrue;
+  if (rb_str_equal(str1, str2) == Qtrue) {
+    return Qfalse;
+  } else {
+    return Qtrue;
+  }
+}
+
+static inline VALUE
+cast_off_inline_string_empty_p(VALUE str)
+{
+#if 0
+#ifdef INJECT_GUARD
+  if (UNLIKELY(rb_class_of(str) != rb_cString)) {
+    rb_raise(rb_eCastOffExecutionError, TYPE_ERROR_MESSAGE());
+  }
+#endif
+#endif
+
+  if (RSTRING_LEN(str) == 0) {
+    return Qtrue;
+  } else {
+    return Qfalse;
+  }
+}
+
+static inline VALUE
+cast_off_inline_float_float_plus(VALUE x, VALUE y)
+{
+  return DBL2NUM(RFLOAT_VALUE(x) + RFLOAT_VALUE(y));
+}
+static inline VALUE
+cast_off_inline_float_fixnum_plus(VALUE x, VALUE y)
+{
+  return DBL2NUM(RFLOAT_VALUE(x) + (double)FIX2LONG(y));
+}
+
+static inline VALUE
+cast_off_inline_float_float_minus(VALUE x, VALUE y)
+{
+  return DBL2NUM(RFLOAT_VALUE(x) - RFLOAT_VALUE(y));
+}
+static inline VALUE
+cast_off_inline_float_fixnum_minus(VALUE x, VALUE y)
+{
+  return DBL2NUM(RFLOAT_VALUE(x) - (double)FIX2LONG(y));
+}
+
+static inline VALUE
+cast_off_inline_float_float_mult(VALUE x, VALUE y)
+{
+  return DBL2NUM(RFLOAT_VALUE(x) * RFLOAT_VALUE(y));
+}
+static inline VALUE
+cast_off_inline_float_fixnum_mult(VALUE x, VALUE y)
+{
+  return DBL2NUM(RFLOAT_VALUE(x) * (double)FIX2LONG(y));
+}
+
+static inline VALUE
+cast_off_inline_float_float_div(VALUE x, VALUE y)
+{
+  return DBL2NUM(RFLOAT_VALUE(x) / RFLOAT_VALUE(y));
+}
+static inline VALUE
+cast_off_inline_float_fixnum_div(VALUE x, VALUE y)
+{
+  return DBL2NUM(RFLOAT_VALUE(x) / (double)FIX2LONG(y));
+}
+
+static inline VALUE
+cast_off_inline_string_plus(VALUE str1, VALUE str2)
+{
+    VALUE str3;
+    rb_encoding *enc;
+
+    /* StringValue(str2); */ /* str2 is always String */
+    enc = rb_enc_check(str1, str2);
+    str3 = rb_str_new(0, RSTRING_LEN(str1)+RSTRING_LEN(str2));
+    memcpy(RSTRING_PTR(str3), RSTRING_PTR(str1), RSTRING_LEN(str1));
+    memcpy(RSTRING_PTR(str3) + RSTRING_LEN(str1),
+           RSTRING_PTR(str2), RSTRING_LEN(str2));
+    RSTRING_PTR(str3)[RSTRING_LEN(str3)] = '\0';
+
+    if (OBJ_TAINTED(str1) || OBJ_TAINTED(str2))
+        OBJ_TAINT(str3);
+    ENCODING_CODERANGE_SET(str3, rb_enc_to_index(enc),
+                           ENC_CODERANGE_AND(ENC_CODERANGE(str1), ENC_CODERANGE(str2)));
+    return str3;
+}
+
+static inline VALUE
+cast_off_inline_string_concat(VALUE str1, VALUE str2)
+{
+  /* StringValue(str2); */ /* str2 is always String */
+  if (RSTRING_LEN(str2) > 0 && STR_ASSOC_P(str1)) {
+    return rb_str_append(str1, str2);
+  } else {
+    return rb_str_buf_append(str1, str2);
+  }
+}
+