Mercurial > hg > octave-nkf

diff liboctave/Array2-idx.h @ 2917:5c285800ebe2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1997-04-30 20:58:04 by jwe] Array-idx.h
author jwe
date Wed, 30 Apr 1997 20:58:04 +0000
parents 8b262e771614
children 8ae394247559
line wrap: on
line diff
--- a/liboctave/Array2-idx.h
+++ b/liboctave/Array2-idx.h
@@ -243,6 +243,9 @@
 		      {
 			idx++;
 			new_nc--;
+
+			if (idx == num_to_delete)
+			  break;
 		      }
 
 		  if (new_nc > 0)
@@ -253,7 +256,7 @@
 		      idx = 0;
 		      for (int j = 0; j < nc; j++)
 			{
-			  if (j == idx_j.elem (idx))
+			  if (idx < num_to_delete && j == idx_j.elem (idx))
 			    idx++;
 			  else
 			    {
@@ -302,6 +305,9 @@
 		      {
 			idx++;
 			new_nr--;
+
+			if (idx == num_to_delete)
+			  break;
 		      }
 
 		  if (new_nr > 0)
@@ -312,7 +318,7 @@
 		      idx = 0;
 		      for (int i = 0; i < nr; i++)
 			{
-			  if (i == idx_i.elem (idx))
+			  if (idx < num_to_delete && i == idx_i.elem (idx))
 			    idx++;
 			  else
 			    {