[ruby-dev:24913] ZSUPER with restargs dumps core

なかだです。

変数名のない*がついたメソッドで引数なしのsuperを使うと、coreを
吐きます。

  $ ruby -e 'class X;def foo(a) a; end; end' -e 'class Y<X; def foo(*);super;end;end' -e 'p Y.new.foo(1)'
  -e:2: [BUG] Segmentation fault
  ruby 1.9.0 (2004-11-17) [i686-linux]

  アボートしました (core dumped)


Index: parse.y
===================================================================
RCS file: /cvs/ruby/src/ruby/parse.y,v
retrieving revision 1.359
diff -u -2 -p -r1.359 parse.y
--- parse.y	17 Nov 2004 02:27:37 -0000	1.359
+++ parse.y	18 Nov 2004 06:22:54 -0000
@@ -3974,5 +3974,5 @@ f_rest_arg	: restarg_mark tIDENTIFIER
 		    {
 		    /*%%%*/
-			$$ = -2;
+			$$ = local_append((ID)-1);
 		    /*%
 			$$ = dispatch1(restparam, Qnil);
Index: test/ruby/test_super.rb
===================================================================
RCS file: test/ruby/test_super.rb
diff -N test/ruby/test_super.rb
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ test/ruby/test_super.rb	18 Nov 2004 06:41:58 -0000
@@ -0,0 +1,68 @@
+require 'test/unit'
+
+class TestSuper < Test::Unit::TestCase
+  class Base
+    def single(a) a end
+    def double(a, b) [a,b] end
+    def array(*a) a end
+  end
+  class Single1 < Base
+    def single(*) super end
+  end
+  class Single2 < Base
+    def single(a,*) super end
+  end
+  class Double1 < Base
+    def double(*) super end
+  end
+  class Double2 < Base
+    def double(a,*) super end
+  end
+  class Double3 < Base
+    def double(a,b,*) super end
+  end
+  class Array1 < Base
+    def array(*) super end
+  end
+  class Array2 < Base
+    def array(a,*) super end
+  end
+  class Array3 < Base
+    def array(a,b,*) super end
+  end
+  class Array4 < Base
+    def array(a,b,c,*) super end
+  end
+
+  def test_single1
+    assert_equal(1, Single1.new.single(1))
+  end
+  def test_single2
+    assert_equal(1, Single2.new.single(1))
+  end
+  def test_double1
+    assert_equal([1, 2], Double1.new.double(1, 2))
+  end
+  def test_double2
+    assert_equal([1, 2], Double2.new.double(1, 2))
+  end
+  def test_double3
+    assert_equal([1, 2], Double3.new.double(1, 2))
+  end
+  def test_array1
+    assert_equal([], Array1.new.array())
+    assert_equal([1], Array1.new.array(1))
+  end
+  def test_array2
+    assert_equal([1], Array2.new.array(1))
+    assert_equal([1,2], Array2.new.array(1, 2))
+  end
+  def test_array3
+    assert_equal([1,2], Array3.new.array(1, 2))
+    assert_equal([1,2,3], Array3.new.array(1, 2, 3))
+  end
+  def test_array4
+    assert_equal([1,2,3], Array4.new.array(1, 2, 3))
+    assert_equal([1,2,3,4], Array4.new.array(1, 2, 3, 4))
+  end
+end


-- 
--- 僕の前にBugはない。
--- 僕の後ろにBugはできる。
    中田 伸悦