rubinius-compiler 2.3.1 → 3.0

data/spec/cdecl_spec.rb

@@ -1,70 +0,0 @@
-describe "A Cdecl node" do
-  relates "X = 42" do
-    compile do |g|
-      g.push_scope
-      g.push_literal :X
-      g.push 42
-      g.send :const_set, 2
-    end
-  end
-
-  relates "::X = 1" do
-    compile do |g|
-      g.push_cpath_top
-      g.push_literal :X
-      g.push 1
-      g.send :const_set, 2
-    end
-  end
-
-  relates "X::Y = 1" do
-    compile do |g|
-      g.push 1
-      g.push_literal :Y
-      g.push_const :X
-      g.rotate 3
-      g.send :const_set, 2
-    end
-  end
-
-  relates "X::Y::Z = a" do
-    compile do |g|
-      g.push :self
-      g.send :a, 0, true
-      g.push_literal :Z
-      g.push_const :X
-      g.find_const :Y
-      g.rotate 3
-      g.send :const_set, 2
-    end
-  end
-
-  relates "a::A = 1" do
-    compile do |g|
-      g.push 1
-      g.push_literal :A
-      g.push :self
-      g.send :a, 0, true
-      g.rotate 3
-      g.send :const_set, 2
-    end
-  end
-
-  relates <<-ruby do
-      a = Object
-      a::B = b
-    ruby
-
-    compile do |g|
-      g.push_const :Object
-      g.set_local 0
-      g.pop
-      g.push :self
-      g.send :b, 0, true
-      g.push_literal :B
-      g.push_local 0
-      g.rotate 3
-      g.send :const_set, 2
-    end
-  end
-end

data/spec/class_spec.rb

@@ -1,120 +0,0 @@
-describe "A Class node" do
-  relates <<-ruby do
-      class X
-        puts((1 + 1))
-        def blah
-          puts("hello")
-        end
-      end
-    ruby
-
-    compile do |g|
-      in_class :X do |d|
-        d.push :self
-        d.push 1
-        d.push 1
-        d.send :+, 1, false
-        d.send :puts, 1, true
-        d.pop
-
-        d.in_method :blah do |d2|
-          d2.push :self
-          d2.push_literal "hello"
-          d2.string_dup
-          d2.send :puts, 1, true
-        end
-      end
-    end
-  end
-
-  relates <<-ruby do
-      class ::Y
-        c
-      end
-    ruby
-
-    compile do |g|
-      g.push_rubinius
-      g.push_literal :Y
-      g.push :nil
-      g.push_cpath_top
-      g.send :open_class_under, 3
-      d = new_generator(g, :Y)
-      g.create_block d
-      d.push_self
-      d.add_scope
-      d.push :self
-      d.send :c, 0, true
-      d.ret
-
-      g.swap
-      g.push_scope
-      g.push_true
-      g.send :call_under, 3
-    end
-  end
-
-  relates <<-ruby do
-      class X::Y
-        c
-      end
-    ruby
-
-    compile do |g|
-      in_class "X::Y" do |d|
-        d.push :self
-        d.send :c, 0, true
-      end
-    end
-  end
-
-  relates <<-ruby do
-      class X < Array
-      end
-    ruby
-
-    compile do |g|
-      g.push_rubinius
-      g.push_literal :X
-      g.push_const :Array
-      g.push_scope
-      g.send :open_class, 3
-      g.pop
-      g.push :nil
-    end
-  end
-
-  relates <<-ruby do
-      class X < expr
-      end
-    ruby
-
-    compile do |g|
-      g.push_rubinius
-      g.push_literal :X
-      g.push :self
-      g.send :expr, 0, true
-      g.push_scope
-      g.send :open_class, 3
-
-      g.pop
-      g.push :nil
-    end
-  end
-
-  relates <<-ruby do
-      class X < Object
-      end
-    ruby
-
-    compile do |g|
-      g.push_rubinius
-      g.push_literal :X
-      g.push_const :Object
-      g.push_scope
-      g.send :open_class, 3
-      g.pop
-      g.push :nil
-    end
-  end
-end

data/spec/colon2_spec.rb

@@ -1,8 +0,0 @@
-describe "A Colon2 node" do
-  relates "X::Y" do
-    compile do |g|
-      g.push_const :X
-      g.find_const :Y
-    end
-  end
-end

data/spec/colon3_spec.rb

@@ -1,8 +0,0 @@
-describe "A Colon3 node" do
-  relates "::X" do
-    compile do |g|
-      g.push_cpath_top
-      g.find_const :X
-    end
-  end
-end

data/spec/const_spec.rb

@@ -1,7 +0,0 @@
-describe "A Const node" do
-  relates "X" do
-    compile do |g|
-      g.push_const :X
-    end
-  end
-end

data/spec/custom/guards/profiler.rb

@@ -1,18 +0,0 @@
-require 'tooling/profiler/profiler'
-
-class ProfilerGuard < SpecGuard
-  def match?
-    Rubinius::Profiler::Instrumenter.available? and
-      not Rubinius::Profiler::Instrumenter.active?
-  end
-end
-
-class Object
-  def with_profiler
-    g = ProfilerGuard.new
-    g.name = :with_profiler
-    yield if g.yield?
-  ensure
-    g.unregister
-  end
-end

data/spec/custom/helpers/generator.rb

@@ -1,828 +0,0 @@
-# TODO: document TestGenerator
-module Rubinius
-  class TestGenerator
-    class Label
-      attr_reader :ip
-
-      def initialize(gen)
-        @generator = gen
-        @ip = nil
-        @used = false
-      end
-
-      attr_reader :used
-      alias_method :used?, :used
-
-      def used!
-        @used = true
-      end
-
-      def inspect
-        self.to_sym.inspect
-      end
-
-      def to_sym
-        return :UNSET_LABEL unless @ip
-        # raise "Unset label!" unless @ip
-        :"label_#{@ip}"
-      end
-
-      def set!
-        @ip = @generator.new_label_id
-        @generator.set_label self.to_sym
-      end
-
-      def ==(lbl)
-        raise "Unset label!" unless @ip
-        return self.to_sym == lbl if Symbol === lbl
-        @ip == lbl.ip
-      end
-    end
-
-    # TestGenerator methods
-
-    def self.define_opcode_method(name)
-      class_eval <<-CODE
-        def #{name}(*args)
-          add :#{name}, *args
-        end
-      CODE
-    end
-
-    excluded_opcodes = [:class, :goto, :set_label, :cast_array, :setup_unwind]
-
-    Rubinius::InstructionSet.opcodes.each do |opcode|
-      next if excluded_opcodes.include? opcode.name
-      define_opcode_method opcode.name
-    end
-
-    [:add_literal,
-     :pop_modifiers,
-     :push,
-     :push_literal_at,
-     :push_modifiers,
-     :invoke_primitive,
-     :last_match,
-     :send,
-     :send_super,
-     :send_with_block,
-     :send_with_splat,
-     :swap].each do |name|
-      define_opcode_method name
-    end
-
-    def git(lbl)
-      lbl.used!
-      add :goto_if_true, lbl
-    end
-
-    def gif(lbl)
-      lbl.used!
-      add :goto_if_false, lbl
-    end
-
-    def send_vcall(meth)
-      send meth, 0, true
-    end
-
-    # The :g accessor is provided to make the code in the
-    # utility methods below clearer
-    attr_reader   :g
-    attr_accessor :stream, :ip, :redo, :break, :next, :retry,
-                  :name, :file, :line, :primitive, :for_block, :for_module_body,
-                  :required_args, :post_args, :total_args, :splat_index,
-                  :local_count, :local_names, :block_index
-
-
-    def initialize
-      @stream = []
-      @ip     = 0
-      @lbl    = 0
-      @slot   = 0
-      @g      = self
-      @state = []
-      @stack_locals = 0
-    end
-
-    def new_stack_local
-      idx = @stack_locals
-      @stack_locals += 1
-      return idx
-    end
-
-    def state
-      @state.last
-    end
-
-    # TODO: put TestGenerator under Rubinius
-    def push_state(scope)
-      @state << Rubinius::ToolSets::Spec::AST::State.new(scope)
-    end
-
-    def pop_state
-      @state.pop
-    end
-    def run(node)
-      node.bytecode(self)
-    end
-
-    def convert_to_ary(ary)
-      ary.map do |item|
-        if item.respond_to? :to_ary
-          convert_to_ary item.to_ary
-        elsif item.kind_of? TestGenerator
-          item.to_a
-        else
-          item
-        end
-      end
-    end
-
-    def to_a
-      convert_to_ary [:test_generator, @stream]
-    end
-
-    def pretty_inspect
-      to_a.pretty_inspect
-    end
-
-    def inspect
-      to_a.inspect
-    end
-
-    def add(*args)
-      @last = args
-      @stream << args
-      @ip += 1
-    end
-
-    def new_slot
-      @ip
-    end
-
-    def new_label
-      Label.new self
-    end
-
-    def new_label_id
-      @lbl += 1
-      @lbl
-    end
-
-    def dup
-      add :dup
-    end
-
-    def definition_line(line)
-      # nothing
-    end
-
-    def set_line(line)
-      @line = line
-    end
-
-    def set_label(lbl)
-      @stream << [:set_label, lbl.to_sym]
-    end
-
-    def close
-    end
-
-    def ==(tg)
-      tg.class == self.class && tg.stream == @stream
-    end
-
-    # Hack to provide expected semantics
-    def ===(other)
-      equal? other
-    end
-
-    def find_literal(lit)
-      lit
-    end
-
-    def goto(x)
-      raise "Bad goto: #{x.inspect} on #{caller.first}" unless Label === x
-      x.used!
-      add :goto, x
-    end
-
-    def setup_unwind(label, *)
-      add :setup_unwind, label
-    end
-
-    def send_primitive(name)
-      @primitive = name
-    end
-
-    def push_unique_literal(lit)
-      push_literal lit
-    end
-
-    def push_generator(desc)
-      push_literal desc
-    end
-
-    def new_block_generator(g)
-      blk = g.class.new
-      blk.name == :__block__
-
-      blk
-    end
-
-    def new_generator(g, name=nil)
-      meth = g.class.new
-      meth.name = name
-
-      meth
-    end
-
-    def splatted_array(n=1)
-      bottom = g.new_label
-
-      if block_given?
-        yield
-      else
-        g.push 1
-      end
-      g.make_array n
-
-      g.cast_array
-      g.dup
-      g.send :size, 0
-      g.push 1
-      g.send :>, 1
-      g.git bottom
-
-      g.push 0
-      g.send :at, 1
-
-      bottom.set!
-    end
-
-    def in_block_send(name, type, required=nil, call_count=0, vis=true)
-      d = new_block_generator(g)
-
-      # Arguments for blocks are handled differently in 1.9
-      ruby_version_is ""..."1.9" do
-        count = nil
-
-        case type
-        when :none
-          required = -1
-        when :empty
-          required = 0
-        when :blank
-          required = -1
-          d.cast_for_splat_block_arg
-        when :single
-          required = 1
-          d.cast_for_single_block_arg
-          d.set_local 0
-        when :splat
-          required = -1
-          d.cast_for_splat_block_arg
-          d.set_local 0
-        when :rest
-          count = required.abs - 1
-        when :multi
-          count = required.abs
-        end
-
-        if count
-          d.cast_for_multi_block_arg
-
-          (0...count).each do |n|
-            d.shift_array
-            d.set_local n
-            d.pop
-          end
-        end
-
-        if type == :rest
-          d.set_local count
-        end
-
-        if type != :none and type != :empty and type != 0
-          d.pop
-        end
-      end
-
-      d.push_modifiers
-      d.new_label.set!
-
-      yield d
-
-      d.pop_modifiers
-      d.ret
-
-      g.create_block(d)
-
-      g.send_with_block name, call_count, vis
-    end
-
-    def in_class(name)
-      case name
-      when Symbol
-        g.push_rubinius
-        g.push_literal name
-        g.push :nil
-
-        g.push_scope
-        g.send :open_class, 3
-      when String
-        g.push_rubinius
-
-        levels = name.split(/::/).map { |s| s.to_sym }
-        klass = levels.pop
-
-        g.push_literal klass
-        g.push :nil
-
-        levels.each do |level|
-          g.push_const level
-        end
-
-        g.send :open_class_under, 3
-      end
-
-      return unless block_given?
-
-      d = new_generator(g, :Y)
-
-      g.create_block d
-
-      d.push_self
-      d.add_scope
-
-      yield d
-
-      d.ret
-
-      g.swap
-      g.push_scope
-      g.push_true
-      g.send :call_under, 3
-    end
-
-    def in_singleton_method(name, sing)
-      g.push_rubinius
-
-      g.push_literal name
-
-      d = new_generator(g, name)
-
-      yield d
-      d.ret
-
-      g.push_literal(d)
-
-      g.push_scope
-
-      if sing.kind_of? Array
-        g.add *sing
-      else
-        g.add sing
-      end
-
-      g.send :attach_method, 4
-    end
-
-    def in_method(name, singleton=false)
-      if singleton
-        raise "use in_singleton_method"
-      end
-
-      g.push_rubinius
-
-      g.push_literal name
-
-      d = new_generator(g, name)
-
-      yield d
-      d.ret
-
-      g.push_literal(d)
-
-      g.push_scope
-
-      g.push_variables
-      g.send :method_visibility, 0
-      g.send :add_defn_method, 4
-    end
-
-    def in_module(name)
-      case name
-      when Symbol
-        g.push_rubinius
-        g.push_literal name
-        g.push_scope
-        g.send :open_module, 2
-      when String
-        levels = name.split(/::/).map { |s| s.to_sym }
-        klass = levels.pop
-
-        g.push_rubinius
-        g.push_literal klass
-
-        levels.each do |level|
-          g.push_const level
-        end
-
-        g.send :open_module_under, 2
-      end
-
-      return unless block_given?
-
-      d = new_generator(g, :Y)
-
-      g.create_block d
-
-      d.push_self
-      d.add_scope
-
-      yield d
-
-      d.ret
-
-      g.swap
-      g.push_scope
-      g.push_true
-      g.send :call_under, 3
-    end
-
-    def save_exception
-      idx = new_stack_local
-      push_exception_state
-      set_stack_local idx
-      pop
-
-      return idx
-    end
-
-    def restore_exception(idx)
-      push_stack_local idx
-      restore_exception_state
-    end
-
-    class Break
-      def initialize(g)
-        @label = g.new_label
-        @original = g.break
-        @emit = false
-      end
-
-      attr_accessor :label, :original, :emit
-    end
-
-    class Next < Break
-    end
-
-    class RescueBlock
-      def initialize(g)
-        @body = nil
-        @conditions = []
-        @else = nil
-        @break = nil
-        @next = nil
-        @g = g
-      end
-
-      attr_reader :conditions, :current_break
-      attr_accessor :saved_exc
-
-      def set_break(b)
-        @break = b
-      end
-
-      def body(&block)
-        @body ||= block
-      end
-
-      def condition(klass, top_level = false, &block)
-        @conditions << [klass, block, top_level]
-      end
-
-      def raw_condition(&block)
-        @conditions << [nil, block, false]
-      end
-
-      def els(&block)
-        @else ||= block
-      end
-
-      def new_break
-        @break = Break.new(@g)
-      end
-
-      def new_next
-        @next = Next.new(@g)
-      end
-
-      def clear_break
-        @break = nil
-      end
-
-      def clear_next
-        @next = nil
-      end
-
-      def break
-        raise "no break info" unless @break
-        @g.goto @break.label
-        @break.emit = true
-      end
-
-      def next
-        raise "no next info" unless @next
-        @g.goto @next.label
-        @next.emit = true
-      end
-
-      def restore_exception
-        @g.restore_exception @saved_exc
-      end
-
-    end
-
-    def for_rescue
-      rb = RescueBlock.new(self)
-      yield rb
-
-      jump_retry = g.new_label
-      jump_else  = g.new_label
-      jump_last  = g.new_label
-
-      g.push_modifiers
-
-      rb.saved_exc = save_exception
-
-      jump_retry.set!
-
-      exc_lbl = g.new_label
-      g.setup_unwind exc_lbl
-
-      g.new_label.set!
-
-      br = rb.new_break
-      nx = rb.new_next
-
-      rb.body.call
-
-      g.pop_unwind
-      g.goto jump_else
-
-      if br.emit
-        br.label.set!
-        g.pop_unwind
-
-        g.restore_exception rb.saved_exc
-
-        if br.original
-          g.goto br.original
-        else
-          g.goto jump_else
-        end
-      end
-
-      if nx.emit
-        nx.label.set!
-
-        g.pop_unwind
-
-        g.restore_exception rb.saved_exc
-
-        if nx.original
-          g.goto nx.original
-        else
-          g.ret
-        end
-      end
-
-      exc_lbl.set!
-
-      g.push_exception_state
-      raised_state = g.new_stack_local
-      g.set_stack_local raised_state
-      g.pop
-
-      g.push_current_exception
-
-      rb.conditions.each do |klass, code, top_level|
-        jump_body = g.new_label
-        jump_next = g.new_label
-
-        if klass
-          g.dup
-          if top_level
-            g.push_cpath_top
-            g.find_const klass
-          else
-            g.push_const klass
-          end
-          g.swap
-          g.send :===, 1
-          g.git jump_body
-
-          g.goto jump_next
-
-          jump_body.set!
-
-          g.pop # remove the saved exception on the stack
-        end
-
-        br = rb.new_break
-        nx = rb.new_next
-
-        code.call(jump_body, jump_next)
-
-        g.clear_exception
-        g.goto jump_last
-
-        if br.emit
-          br.label.set!
-          g.clear_exception
-
-          g.restore_exception rb.saved_exc
-
-          if br.original
-            g.goto br.original
-          else
-            g.raise_break
-          end
-        end
-
-        if nx.emit
-          nx.label.set!
-          g.clear_exception
-
-          g.restore_exception rb.saved_exc
-
-          if br.original
-            g.goto br.original
-          else
-            g.ret
-          end
-        end
-
-        jump_next.set!
-      end
-
-      g.pop
-
-      g.push_stack_local raised_state
-      g.restore_exception_state
-      g.reraise
-
-      jump_else.set!
-
-      rb.els.call if rb.els
-
-      jump_last.set!
-
-      restore_exception rb.saved_exc
-
-      g.pop_modifiers
-    end
-
-    class EnsureBlock
-      def initialize
-        @body = nil
-        @handler = nil
-      end
-
-      def body(&block)
-        @body ||= block
-      end
-
-      def handler(&block)
-        @handler ||= block
-      end
-    end
-
-    def for_ensure
-      eb = EnsureBlock.new
-
-      yield eb
-
-      ensure_good = g.new_label
-      ensure_bad = g.new_label
-
-      g.setup_unwind ensure_bad
-
-      jump_top = g.new_label
-      jump_top.set!
-
-      g.save_exception
-
-      old_break = g.break
-      new_break = g.new_label
-      g.break = new_break
-
-      eb.body.call
-
-      g.break = old_break
-
-      g.pop_unwind
-      g.goto ensure_good
-
-      check_break = nil
-
-      if new_break.used?
-        used_break_local = g.new_stack_local
-        check_break = g.new_label
-
-        new_break.set!
-        g.pop_unwind
-
-        g.push :true
-        g.set_stack_local used_break_local
-        g.pop
-
-        g.goto check_break
-      end
-
-      ensure_bad.set!
-      g.push_exception_state
-
-      eb.handler.call
-      g.restore_exception_state
-      g.reraise
-
-      ensure_good.set!
-
-      if check_break
-        g.push :false
-        g.set_stack_local used_break_local
-        g.pop
-
-        check_break.set!
-      end
-
-      eb.handler.call
-
-      if check_break
-        post = g.new_label
-
-        g.push_stack_local used_break_local
-        g.gif post
-
-        if g.break
-          g.goto g.break
-        else
-          g.raise_break
-        end
-
-        post.set!
-      end
-    end
-
-    def optional_arg(slot)
-      if_set = g.new_label
-      g.passed_arg slot
-      g.git if_set
-      g.push 42
-      g.set_local slot
-      g.pop
-      if_set.set!
-    end
-
-    def block_arg(slot)
-      g.push_proc
-      g.set_local slot
-      g.pop
-    end
-
-    def memoize
-      memo = g.new_label
-      g.add_literal nil
-      slot = new_slot
-      g.push_literal_at slot
-      g.dup
-      g.is_nil
-      g.gif memo
-      g.pop
-
-      yield g
-
-      g.set_literal slot
-      memo.set!
-    end
-
-    def undef_bytecode(*names)
-      last_name = names.last
-      names.each do |name|
-        g.push_scope
-        g.push_literal name
-        g.send :__undef_method__, 1
-        g.pop unless name == last_name
-      end
-    end
-
-    def cast_array
-      unless @last and [:cast_array, :make_array].include? @last.first
-        add :cast_array
-      end
-    end
-  end
-end