rubinius-compiler 2.1.0 → 2.1.1

data/spec/gasgn_spec.rb

@@ -0,0 +1,15 @@
+describe "A Gasgn node" do
+  relates "$x = 42" do
+    compile do |g|
+      g.push_rubinius
+      g.find_const :Globals
+      g.push_literal :"$x" # REFACTOR g.get_global("$x")
+      g.push 42
+      g.send :[]=, 2
+    end
+  end
+
+  relates "$a = *[1]" do
+    # gasgn splat
+  end
+end

data/spec/generator/encode_spec.rb

@@ -0,0 +1,34 @@
+describe "Rubinius::Generator#encode" do
+  before :each do
+    @g = Rubinius::ToolSets::Spec::Generator.new
+    @g.set_line 1
+  end
+
+  it "raises a CompileError if the method exits with an empty stack" do
+    @g.ret
+    @g.close
+
+    lambda { @g.encode }.should raise_error(Rubinius::ToolSets::Spec::CompileError)
+  end
+
+  it "raises a CompileError if pop is called on an empty stack" do
+    @g.pop
+    @g.ret
+    @g.close
+
+    lambda { @g.encode }.should raise_error(Rubinius::ToolSets::Spec::CompileError)
+  end
+
+  it "raises a CompileError if a BasicBlock's minimum stack size is negative" do
+    label = @g.new_label
+    @g.push :nil
+    @g.gif label
+    label.set!
+    @g.pop
+    @g.push :true
+    @g.ret
+    @g.close
+
+    lambda { @g.encode }.should raise_error(Rubinius::ToolSets::Spec::CompileError)
+  end
+end

data/spec/gvar_spec.rb

@@ -0,0 +1,37 @@
+describe "A Gvar node" do
+  relates "$x" do
+    compile do |g|
+      g.push_rubinius
+      g.find_const :Globals
+      g.push_literal :"$x" # REFACTOR g.get_global("$x")
+      g.send :[], 1
+    end
+  end
+
+  relates "$stderr" do
+    compile do |g|
+      g.push_rubinius
+      g.find_const :Globals
+      g.push_literal :"$stderr"
+      g.send :[], 1
+    end
+  end
+
+  relates "$__blah" do
+    compile do |g|
+      g.push_rubinius
+      g.find_const :Globals
+      g.push_literal :"$__blah"
+      g.send :[], 1
+    end
+  end
+
+  relates "$_" do
+    compile do |g|
+      g.push_rubinius
+      g.find_const :Globals
+      g.push_literal :"$_"
+      g.send :[], 1
+    end
+  end
+end

data/spec/hash_spec.rb

@@ -0,0 +1,108 @@
+describe "A Hash node" do
+  relates "{ 1 => 2, 3 => 4 }" do
+    compile do |g|
+      g.push_cpath_top
+      g.find_const :Hash
+      g.push 2
+      g.send :new_from_literal, 1
+
+      g.dup
+      g.push 1
+      g.push 2
+      g.send :[]=, 2
+      g.pop
+
+      g.dup
+      g.push 3
+      g.push 4
+      g.send :[]=, 2
+      g.pop
+    end
+  end
+
+  relates "{ 1 => (2 rescue 3) }" do
+    compile do |g|
+      g.push_cpath_top
+      g.find_const :Hash
+      g.push 1
+      g.send :new_from_literal, 1
+
+      g.dup
+      g.push 1
+
+      g.for_rescue do |rb|
+        rb.body do
+          g.push 2
+        end
+
+        rb.condition :StandardError, true do
+          g.push 3
+        end
+      end
+
+      g.send :[]=, 2
+      g.pop
+    end
+  end
+
+  relates "{ 1 => [*1] }" do
+    compile do |g|
+      g.push_cpath_top
+      g.find_const :Hash
+      g.push 1
+      g.send :new_from_literal, 1
+
+      g.dup
+      g.push 1
+      g.push 1
+      g.cast_array
+      g.send :[]=, 2
+      g.pop
+    end
+  end
+
+  relates <<-ruby do
+      a = 1
+      { :a => a }
+    ruby
+
+    compile do |g|
+      g.push 1
+      g.set_local 0
+      g.pop
+      g.push_cpath_top
+      g.find_const :Hash
+      g.push 1
+      g.send :new_from_literal, 1
+
+      g.dup
+      g.push_literal :a
+      g.push_local 0
+      g.send :[]=, 2
+      g.pop
+    end
+  end
+
+  ruby_version_is "1.9" do
+    relates "{ a: 1, b: 2 }" do
+      compile do |g|
+        g.push_cpath_top
+        g.find_const :Hash
+        g.push 2
+        g.send :new_from_literal, 1
+
+        g.dup
+        g.push_literal :a
+        g.push 1
+        g.send :[]=, 2
+        g.pop
+
+        g.dup
+        g.push_literal :b
+        g.push 2
+        g.send :[]=, 2
+        g.pop
+      end
+    end
+  end
+end

data/spec/iasgn_spec.rb

@@ -0,0 +1,26 @@
+describe "A Iasgn node" do
+  relates "@a = 4" do
+    compile do |g|
+      g.push 4
+      g.set_ivar :@a
+    end
+  end
+
+  relates "@a = *[1]" do
+    # iasgn splat
+  end
+
+  relates <<-ruby do
+      a = 1
+      @a = a
+    ruby
+
+    compile do |g|
+      g.push 1
+      g.set_local 0
+      g.pop
+      g.push_local 0
+      g.set_ivar :@a
+    end
+  end
+end

data/spec/if_spec.rb

@@ -0,0 +1,415 @@
+describe "An If node" do
+  nil_condition = lambda do |g|
+    f = g.new_label
+    done = g.new_label
+
+    g.push :nil
+    g.gif f
+
+    g.push :self
+    g.send :a, 0, true
+    g.goto done
+
+    f.set!
+    g.push :nil
+
+    done.set!
+  end
+
+  not_nil_condition = lambda do |g|
+    f = g.new_label
+    done = g.new_label
+
+    g.push :nil
+    g.send :"!", 0, false
+    g.gif f
+
+    g.push :nil
+    g.goto done
+
+    f.set!
+    g.push :self
+    g.send :a, 0, true
+
+    done.set!
+  end
+
+  relates <<-ruby do
+      if true then
+        10
+      else
+        12
+      end
+    ruby
+
+    compile do |g|
+      g.push :true
+      els = g.new_label
+      fin = g.new_label
+      g.gif els
+      g.push 10
+      g.goto fin
+      els.set!
+      g.push 12
+      fin.set!
+    end
+  end
+
+  relates "if b then a end" do
+    compile do |g|
+      nope = g.new_label
+      done = g.new_label
+
+      g.push :self
+      g.send :b, 0, true
+      g.gif nope
+
+      g.push :self
+      g.send :a, 0, true
+      g.goto done
+
+      nope.set!
+      g.push :nil
+
+      done.set!
+    end
+  end
+
+  relates <<-ruby do
+      if (x = 5
+      (x + 1)) then
+        nil
+      end
+    ruby
+
+    compile do |g|
+      f      = g.new_label
+      bottom = g.new_label
+
+      g.push 5
+      g.set_local 0
+      g.pop
+
+      g.push_local 0
+      g.push 1
+      g.send :+, 1, false
+      g.gif f
+
+      g.push :nil
+      g.goto bottom
+
+      f.set!
+      g.push :nil
+
+      bottom.set!
+    end
+  end
+
+  relates <<-ruby do
+      if x = obj.x then
+        x.do_it
+      end
+    ruby
+
+    compile do |g|
+      f      = g.new_label
+      bottom = g.new_label
+
+      g.push :self
+      g.send :obj, 0, true
+      g.send :x, 0, false
+      g.set_local 0
+
+      g.gif f
+
+      g.push_local 0
+      g.send :do_it, 0, false
+      g.goto bottom
+
+      f.set!
+      g.push :nil
+
+      bottom.set!
+    end
+  end
+
+  relates "return if false unless true" do
+    compile do |g|
+      else1 = g.new_label
+      else2 = g.new_label
+      done1 = g.new_label
+      done2 = g.new_label
+
+      g.push :true
+      g.gif else1
+      g.push :nil
+      g.goto done1
+
+      else1.set!
+      g.push :false
+      g.gif else2
+      g.push :nil
+      g.ret
+      g.goto done2
+
+      else2.set!
+      g.push :nil
+
+      done2.set!
+      done1.set!
+    end
+  end
+
+  relates "a if b" do
+    compile do |g|
+      nope = g.new_label
+      done = g.new_label
+
+      g.push :self
+      g.send :b, 0, true
+      g.gif nope
+
+      g.push :self
+      g.send :a, 0, true
+      g.goto done
+
+      nope.set!
+      g.push :nil
+
+      done.set!
+    end
+  end
+
+  relates "if b then a end" do
+    compile do |g|
+      nope = g.new_label
+      done = g.new_label
+
+      g.push :self
+      g.send :b, 0, true
+      g.gif nope
+
+      g.push :self
+      g.send :a, 0, true
+      g.goto done
+
+      nope.set!
+      g.push :nil
+
+      done.set!
+    end
+  end
+
+  relates "a if ()" do
+    compile(&nil_condition)
+  end
+
+  relates "if () then a end" do
+    compile(&nil_condition)
+  end
+
+  relates "a unless b" do
+    compile do |g|
+      else_label = g.new_label
+      done = g.new_label
+
+      g.push :self
+      g.send :b, 0, true
+      g.gif else_label
+      g.push :nil
+      g.goto done
+
+      else_label.set!
+      g.push :self
+      g.send :a, 0, true
+
+      done.set!
+    end
+  end
+
+  relates "unless b then a end" do
+    compile do |g|
+      else_label = g.new_label
+      done = g.new_label
+
+      g.push :self
+      g.send :b, 0, true
+      g.gif else_label
+      g.push :nil
+      g.goto done
+
+      else_label.set!
+      g.push :self
+      g.send :a, 0, true
+
+      done.set!
+    end
+  end
+
+  ruby_version_is ""..."1.9" do
+    relates "a if not b" do
+      compile do |g|
+        else_label = g.new_label
+        done = g.new_label
+
+        g.push :self
+        g.send :b, 0, true
+        g.gif else_label
+        g.push :nil
+        g.goto done
+
+        else_label.set!
+        g.push :self
+        g.send :a, 0, true
+
+        done.set!
+      end
+    end
+
+    relates "if not b then a end" do
+      compile do |g|
+        else_label = g.new_label
+        done = g.new_label
+
+        g.push :self
+        g.send :b, 0, true
+        g.gif else_label
+        g.push :nil
+        g.goto done
+
+        else_label.set!
+        g.push :self
+        g.send :a, 0, true
+
+        done.set!
+      end
+    end
+
+    relates "a unless ! ()" do
+      compile(&nil_condition)
+    end
+
+    relates "unless ! () then a end" do
+      compile(&nil_condition)
+    end
+
+    relates "a unless not b" do
+      compile do |g|
+        nope = g.new_label
+        done = g.new_label
+
+        g.push :self
+        g.send :b, 0, true
+        g.gif nope
+
+        g.push :self
+        g.send :a, 0, true
+        g.goto done
+
+        nope.set!
+        g.push :nil
+
+        done.set!
+      end
+    end
+
+    relates "unless not b then a end" do
+      compile do |g|
+        nope = g.new_label
+        done = g.new_label
+
+        g.push :self
+        g.send :b, 0, true
+        g.gif nope
+
+        g.push :self
+        g.send :a, 0, true
+        g.goto done
+
+        nope.set!
+        g.push :nil
+
+        done.set!
+      end
+    end
+  end
+
+  ruby_version_is "1.9" do
+    relates "a if not b" do
+      compile do |g|
+        f = g.new_label
+        done = g.new_label
+
+        g.push :self
+        g.send :b, 0, true
+        g.send :"!", 0, false
+        g.gif f
+
+        g.push :self
+        g.send :a, 0, true
+        g.goto done
+
+        f.set!
+        g.push :nil
+
+        done.set!
+      end
+    end
+
+    relates "if not b then a end" do
+      compile do |g|
+        f = g.new_label
+        done = g.new_label
+
+        g.push :self
+        g.send :b, 0, true
+        g.send :"!", 0, false
+        g.gif f
+
+        g.push :self
+        g.send :a, 0, true
+        g.goto done
+
+        f.set!
+        g.push :nil
+
+        done.set!
+      end
+    end
+
+    relates "a unless ! ()" do
+      compile(&not_nil_condition)
+    end
+
+    relates "unless ! () then a end" do
+      compile(&not_nil_condition)
+    end
+
+    unless_not_condition = lambda do |g|
+      f = g.new_label
+      done = g.new_label
+
+      g.push :self
+      g.send :b, 0, true
+      g.send :"!", 0, false
+      g.gif f
+
+      g.push :nil
+      g.goto done
+
+      f.set!
+      g.push :self
+      g.send :a, 0, true
+
+      done.set!
+    end
+
+    relates "a unless not b" do
+      compile(&unless_not_condition)
+    end
+
+    relates "unless not b then a end" do
+      compile(&unless_not_condition)
+    end
+  end
+end