Mercurial > octave-libgccjit
diff src/parse.y @ 504:be155b3d5a2f
[project @ 1994-07-08 23:45:33 by jwe]
author | jwe |
---|---|
date | Fri, 08 Jul 1994 23:52:12 +0000 |
parents | e7c5b23b34d3 |
children | 2dba380d2d85 |
line wrap: on
line diff
--- a/src/parse.y Fri Jul 08 23:41:39 1994 +0000 +++ b/src/parse.y Fri Jul 08 23:52:12 1994 +0000 @@ -1042,6 +1042,13 @@ quote_is_transpose = 0; $$ = (tree_parameter_list *) NULL; } + | '(' ELLIPSIS ')' + { + quote_is_transpose = 0; + tree_parameter_list *tmp = new tree_parameter_list (); + tmp->mark_varargs_only (); + $$ = tmp; + } | param_list1 ')' { quote_is_transpose = 0; @@ -1057,6 +1064,7 @@ tmp->mark_varargs (); $$ = tmp; } + ; param_list1 : '(' identifier { $$ = new tree_parameter_list ($2); } @@ -1077,8 +1085,11 @@ ; identifier : NAME - { $$ = new tree_identifier - ($1->sym_rec (), $1->line (), $1->column ()); } + { + $$ = new tree_identifier + ($1->sym_rec (), $1->line (), $1->column ()); + } + ; arg_list : arg_list1 { $$ = $1->reverse (); }