ruby-dev

　ささだです。

Tanaka Akira wrote:
> m {|(*,(*)),|} で SEGV します。

　パーサ部分は正直よくわかんないんですが、こんな感じでしょう
か。とりあえず落ちなくなりました。

> Index: bootstraptest/test_block.rb
> ===================================================================
> --- bootstraptest/test_block.rb	(リビジョン 12717)
> +++ bootstraptest/test_block.rb	(作業コピー)
> @@ -335,3 +335,34 @@ assert_equal %q{[1, nil]}, %q{
>      [i, j]
>    }
>  }
> +
> +# block parameter (shouldn't SEGV: [ruby-dev:31143])
> +assert_equal '0', %q{
> +def m()
> +end
> +m {|(v0,*,(*)),|}
> +m {|(*v0,(*)),|}
> +m {|(v0,*v1,(*)),|}
> +m {|((v0,*v1,v2)),|}
> +m {|(v0,*v1,v2),|}
> +m {|(v0,*v1,(v2)),|}
> +m {|((*),*v0,v1),|}
> +m {|((v0),*v1,v2),|}
> +m {|(v0,v1,*v2,v3),|}
> +m {|v0,(v1,*v2,v3),|}
> +m {|(v0,*v1,v2),v3,|}
> +m {|(v0,*v1,v2)|}
> +m {|(v0,*v1,v2),&v3|}
> +m {|(v0,*v1,v2),*|}
> +m {|(v0,*v1,v2),*,&v3|}
> +m {|*,(v0,*v1,v2)|}
> +m {|*,(v0,*v1,v2),&v3|}
> +m {|v0,*,(v1,*v2,v3)|}
> +m {|v0,*,(v1,*v2,v3),&v4|}
> +m {|(v0,*v1,v2),*,v3|}
> +m {|(v0,*v1,v2),*,v3,&v4|}
> +m {|(v0, *v1, v2)|}
> +m {|(*,v)|}
> +0
> +}
> +
> Index: compile.c
> ===================================================================
> --- compile.c	(リビジョン 12717)
> +++ compile.c	(作業コピー)
> @@ -319,8 +319,7 @@ verify_list(char *info, LINK_ANCHOR *anc
>      }
>  
>      if (flag != 0) {
> -	rb_compile_error(ERROR_ARGS "list verify error: %08x (%s)",
> -			 flag, info);
> +	rb_bug("list verify error: %08x (%s)", flag, info);
>      }
>  #endif
>  }
> @@ -2073,8 +2072,7 @@ compile_massign(rb_iseq_t *iseq, LINK_AN
>  
>  		while (n) {
>  		    DECL_ANCHOR(lhs);
> -
> -		    COMPILE_POPED(lhs, "post", n->nd_head);
> +		    COMPILE_POPED(lhs, "post/each", n->nd_head);
>  
>  		    if (nd_type(n->nd_head) != NODE_MASGN) {
>  			REMOVE_ELEM(FIRST_ELEMENT(lhs));
> Index: parse.y
> ===================================================================
> --- parse.y	(リビジョン 12717)
> +++ parse.y	(作業コピー)
> @@ -3003,7 +3003,7 @@ f_marg		: f_norm_arg
>  		| tLPAREN f_margs rparen
>  		    {
>  		    /*%%%*/
> -			$$ = $2;
> +			$$ = NEW_LIST($2);
>  		    /*%
>  			$$ = dispatch1(mlhs_paren, $2);
>  		    %*/
> @@ -3013,7 +3013,7 @@ f_marg		: f_norm_arg
>  f_marg_head	: f_marg
>  		    {
>  		    /*%%%*/
> -			$$ = NEW_LIST($1);
> +			$$ = $1;
>  		    /*%
>  			$$ = mlhs_add(mlhs_new(), $1);
>  		    %*/
> @@ -3047,7 +3047,7 @@ f_margs		: f_marg_head
>  		| f_marg_head ',' tSTAR f_norm_arg ',' f_marg
>  		    {
>  		    /*%%%*/
> -			$$ = NEW_MASGN($1, NEW_POSTARG($4,$6));
> +			$$ = NEW_MASGN($1, NEW_POSTARG(assignable($4, 0), $6));
>  		    /*%
>  			$$ = mlhs_add_star($1, $4);
>  		    %*/


-- 
// SASADA Koichi at atdot dot net
// さて、簡単に Thunderbird で行折り返しを一部無効にする方法
// はないもんですかねぇ。クリップボードの内容を添付ファイル
// にしてくれる何かがあればいいのかなぁ。