Mercurial > octave-nkf
diff src/pt-bp.cc @ 3930:61d4427c016e
[project @ 2002-05-07 00:47:31 by jwe]
author | jwe |
---|---|
date | Tue, 07 May 2002 00:47:31 +0000 |
parents | 44386b0e53da |
children | f9ea3dcf58ee |
line wrap: on
line diff
--- a/src/pt-bp.cc Sat May 04 02:47:14 2002 +0000 +++ b/src/pt-bp.cc Tue May 07 00:47:31 2002 +0000 @@ -345,26 +345,23 @@ if (found) return; - tree_expression *expr = cmd.expression (); - - if (expr) - if (expr->line () >= line) - take_action (*expr); - - tree_argument_list *lst = cmd.arg_list (); + if (cmd.expr_type () == tree_index_expression::dot) + { + if (cmd.line () >= line) + take_action (cmd); + } + else + { + tree_expression *expr = cmd.expression (); - if (lst) - lst->accept (*this); -} + if (expr && expr->line () >= line) + take_action (*expr); -void -tree_breakpoint::visit_indirect_ref (tree_indirect_ref& cmd) -{ - if (found) - return; + tree_argument_list *lst = cmd.arg_list (); - if (cmd.line () >= line) - take_action (cmd); + if (lst) + lst->accept (*this); + } } void