Mercurial > octave
changeset 4236:a01ea6c855a3
[project @ 2002-12-25 03:06:51 by jwe]
| author | jwe |
|---|---|
| date | Wed, 25 Dec 2002 03:06:51 +0000 |
| parents | 23bb43fc1184 |
| children | 9c8034434982 |
| files | src/ChangeLog src/parse.y |
| diffstat | 2 files changed, 11 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/src/ChangeLog Wed Dec 25 02:59:54 2002 +0000 +++ b/src/ChangeLog Wed Dec 25 03:06:51 2002 +0000 @@ -1,5 +1,8 @@ 2002-12-24 John W. Eaton <jwe@bevo.che.wisc.edu> + * parse.y (postfix_expr): Reset lexer_flags.looking_at_object_index + in () and {} cases too. + * ov-usr-fcn.cc (clear_symbol_table): Clear variables only. 2002-12-21 John W. Eaton <jwe@bevo.che.wisc.edu>
--- a/src/parse.y Wed Dec 25 02:59:54 2002 +0000 +++ b/src/parse.y Wed Dec 25 03:06:51 2002 +0000 @@ -712,14 +712,20 @@ postfix_expr : primary_expr { $$ = $1; } | postfix_expr '(' begin_obj_idx ')' - { $$ = make_index_expression ($1, 0, '('); } + { + $$ = make_index_expression ($1, 0, '('); + lexer_flags.looking_at_object_index = false; + } | postfix_expr '(' begin_obj_idx arg_list ')' { $$ = make_index_expression ($1, $4, '('); lexer_flags.looking_at_object_index = false; } | postfix_expr '{' begin_obj_idx '}' - { $$ = make_index_expression ($1, 0, '{'); } + { + $$ = make_index_expression ($1, 0, '{'); + lexer_flags.looking_at_object_index = false; + } | postfix_expr '{' begin_obj_idx arg_list '}' { $$ = make_index_expression ($1, $4, '{');