Mercurial > hg > octave-nkf
diff src/pt-loop.cc @ 3770:bf6116ca10eb
[project @ 2001-02-02 02:21:40 by jwe]
| author | jwe |
|---|---|
| date | Fri, 02 Feb 2001 02:21:42 +0000 |
| parents | 0689afb1d001 |
| children | 55648fc616c8 |
line wrap: on
line diff
--- a/src/pt-loop.cc +++ b/src/pt-loop.cc @@ -34,6 +34,7 @@ #include "oct-lvalue.h" #include "ov.h" #include "pt-arg-list.h" +#include "pt-bp.h" #include "pt-cmd.h" #include "pt-exp.h" #include "pt-jump.h" @@ -130,6 +131,8 @@ for (;;) { + MAYBE_DO_BREAKPOINT; + if (list) { list->eval (); @@ -200,6 +203,8 @@ { \ for (int i = 0; i < steps; i++) \ { \ + MAYBE_DO_BREAKPOINT; \ + \ octave_value val (arg); \ \ bool quit = false; \ @@ -244,6 +249,8 @@ for (int i = 0; i < steps; i++) { + MAYBE_DO_BREAKPOINT; + double tmp_val = b + i * increment; octave_value val (tmp_val); @@ -259,6 +266,8 @@ else if (rhs.is_scalar_type ()) { bool quit = false; + + MAYBE_DO_BREAKPOINT; do_for_loop_once (ult, rhs, quit); } @@ -277,6 +286,8 @@ { for (int i = 0; i < steps; i++) { + MAYBE_DO_BREAKPOINT; + octave_value val (chm_tmp.extract (0, i, nr-1, i), true); bool quit = false; @@ -333,6 +344,8 @@ for (Pix p = tmp_val.first (); p != 0; tmp_val.next (p)) { + MAYBE_DO_BREAKPOINT; + octave_value val = tmp_val.contents (p); bool quit = false; @@ -435,6 +448,8 @@ octave_value key = tmp_val.key (p); octave_value val = tmp_val.contents (p); + MAYBE_DO_BREAKPOINT; + bool quit = false; do_for_loop_once (key_ref, val_ref, key, val, quit);