Mercurial > octave
diff src/pt-bp.cc @ 8831:71742f45571e
pt-bp.cc: call accept for function and script commands
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Fri, 20 Feb 2009 14:11:04 -0500 |
parents | 73c4516fae10 |
children | eb63fbe60fab |
line wrap: on
line diff
--- a/src/pt-bp.cc Fri Feb 20 12:24:03 2009 -0500 +++ b/src/pt-bp.cc Fri Feb 20 14:11:04 2009 -0500 @@ -160,15 +160,21 @@ } void -tree_breakpoint::visit_octave_user_script (octave_user_script&) +tree_breakpoint::visit_octave_user_script (octave_user_script& fcn) { - panic_impossible (); + tree_statement_list *cmd_list = fcn.body (); + + if (cmd_list) + cmd_list->accept (*this); } void -tree_breakpoint::visit_octave_user_function (octave_user_function&) +tree_breakpoint::visit_octave_user_function (octave_user_function& fcn) { - panic_impossible (); + tree_statement_list *cmd_list = fcn.body (); + + if (cmd_list) + cmd_list->accept (*this); } void