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	Wed Jan 31 22:15:55 2001 +0000
+++ b/src/pt-loop.cc	Fri Feb 02 02:21:42 2001 +0000
@@ -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);