Mercurial > octave-nkf

comparison src/pt-except.cc @ 3770:bf6116ca10eb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2001-02-02 02:21:40 by jwe]
author jwe
date Fri, 02 Feb 2001 02:21:42 +0000
parents 0689afb1d001
children 6e86256e9c54
comparison
equal deleted inserted replaced
3769:7c8e3c42ed04 3770:bf6116ca10eb
29 #endif 29 #endif
30 30
31 #include "error.h" 31 #include "error.h"
32 #include "oct-lvalue.h" 32 #include "oct-lvalue.h"
33 #include "ov.h" 33 #include "ov.h"
34 #include "pt-bp.h"
34 #include "pt-cmd.h" 35 #include "pt-cmd.h"
35 #include "pt-except.h" 36 #include "pt-except.h"
36 #include "pt-exp.h" 37 #include "pt-exp.h"
37 #include "pt-jump.h" 38 #include "pt-jump.h"
38 #include "pt-stmt.h" 39 #include "pt-stmt.h"
76 77
77 void 78 void
78 tree_try_catch_command::eval (void) 79 tree_try_catch_command::eval (void)
79 { 80 {
80 unwind_protect::begin_frame ("tree_try_catch::eval"); 81 unwind_protect::begin_frame ("tree_try_catch::eval");
82
83 MAYBE_DO_BREAKPOINT;
81 84
82 if (catch_code) 85 if (catch_code)
83 { 86 {
84 unwind_protect_bool (buffer_error_messages); 87 unwind_protect_bool (buffer_error_messages);
85 buffer_error_messages = true; 88 buffer_error_messages = true;
206 void 209 void
207 tree_unwind_protect_command::eval (void) 210 tree_unwind_protect_command::eval (void)
208 { 211 {
209 unwind_protect::add (do_unwind_protect_cleanup_code, cleanup_code); 212 unwind_protect::add (do_unwind_protect_cleanup_code, cleanup_code);
210 213
214 MAYBE_DO_BREAKPOINT;
215
211 if (unwind_protect_code) 216 if (unwind_protect_code)
212 unwind_protect_code->eval (); 217 unwind_protect_code->eval ();
213 218
214 unwind_protect::run (); 219 unwind_protect::run ();
215 } 220 }