comparison 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
comparison
equal deleted inserted replaced
8830:fa981a053064 8831:71742f45571e
158 lst->accept (*this); 158 lst->accept (*this);
159 } 159 }
160 } 160 }
161 161
162 void 162 void
163 tree_breakpoint::visit_octave_user_script (octave_user_script&) 163 tree_breakpoint::visit_octave_user_script (octave_user_script& fcn)
164 { 164 {
165 panic_impossible (); 165 tree_statement_list *cmd_list = fcn.body ();
166 } 166
167 167 if (cmd_list)
168 void 168 cmd_list->accept (*this);
169 tree_breakpoint::visit_octave_user_function (octave_user_function&) 169 }
170 { 170
171 panic_impossible (); 171 void
172 tree_breakpoint::visit_octave_user_function (octave_user_function& fcn)
173 {
174 tree_statement_list *cmd_list = fcn.body ();
175
176 if (cmd_list)
177 cmd_list->accept (*this);
172 } 178 }
173 179
174 void 180 void
175 tree_breakpoint::visit_octave_user_function_header (octave_user_function&) 181 tree_breakpoint::visit_octave_user_function_header (octave_user_function&)
176 { 182 {