# HG changeset patch
# User jwe
# Date 832742480 0
# Node ID aaeccf9e1d321b12538bfc55b7042192a2c8ace1
# Parent  d864935059f42be76acb54688a636725fc8939eb
[project @ 1996-05-22 05:21:16 by jwe]

diff -r d864935059f4 -r aaeccf9e1d32 liboctave/Array-idx.h
--- a/liboctave/Array-idx.h	Wed May 22 04:46:30 1996 +0000
+++ b/liboctave/Array-idx.h	Wed May 22 05:21:20 1996 +0000
@@ -118,13 +118,23 @@
 
       if (num_to_delete != 0)
 	{
-	  int new_len = len - num_to_delete;
+	  int new_len = len;
+
+	  int iidx = 0;
+
+	  for (int i = 0; i < len; i++)
+	    if (i == idx.elem (iidx))
+	      {
+		iidx++;
+		new_len--;
+	      }
+
 	  if (new_len > 0)
 	    {
 	      T *new_data = new T [new_len];
 
 	      int ii = 0;
-	      int iidx = 0;
+	      iidx = 0;
 	      for (int i = 0; i < len; i++)
 		{
 		  if (i == idx.elem (iidx))
diff -r d864935059f4 -r aaeccf9e1d32 liboctave/Array2-idx.h
--- a/liboctave/Array2-idx.h	Wed May 22 04:46:30 1996 +0000
+++ b/liboctave/Array2-idx.h	Wed May 22 05:21:20 1996 +0000
@@ -208,13 +208,23 @@
 		resize (0, 0);
 	      else
 		{
-		  int new_nc = nc - num_to_delete;
+		  int new_nc = nc;
+
+		  int idx = 0;
+
+		  for (int j = 0; j < nc; j++)
+		    if (j == idx_j.elem (idx))
+		      {
+			idx++;
+			new_nc--;
+		      }
+
 		  if (new_nc > 0)
 		    {
 		      T *new_data = new T [nr * new_nc];
 
 		      int jj = 0;
-		      int idx = 0;
+		      idx = 0;
 		      for (int j = 0; j < nc; j++)
 			{
 			  if (j == idx_j.elem (idx))
@@ -257,13 +267,23 @@
 		resize (0, 0);
 	      else 
 		{
-		  int new_nr = nr - num_to_delete;
+		  int new_nr = nr;
+
+		  int idx = 0;
+
+		  for (int i = 0; i < nr; i++)
+		    if (i == idx_i.elem (idx))
+		      {
+			idx++;
+			new_nr--;
+		      }
+
 		  if (new_nr > 0)
 		    {
 		      T *new_data = new T [new_nr * nc];
 
 		      int ii = 0;
-		      int idx = 0;
+		      idx = 0;
 		      for (int i = 0; i < nr; i++)
 			{
 			  if (i == idx_i.elem (idx))