# HG changeset patch
# User jwe
# Date 1106078710 0
# Node ID 10004c9625c379f87c647a9f0a6efd78da7eb7a4
# Parent  c891dd97b837fd681ff6b7c8991dfd665f5685bd
[project @ 2005-01-18 20:05:10 by jwe]

diff -r c891dd97b837 -r 10004c9625c3 liboctave/Array.cc
--- a/liboctave/Array.cc	Wed Jan 12 19:49:18 2005 +0000
+++ b/liboctave/Array.cc	Tue Jan 18 20:05:10 2005 +0000
@@ -1056,17 +1056,15 @@
       if (dva.numel ())
         {
 	  const T *a_data = a.data ();   
-	  int numel_to_move = dva (0);
-	  int skip = dv (0);
-	  for (int i = 0; i < len_a - 1; i++)
+	  int numel_to_move = 1;
+	  int skip = 0;
+	  for (int i = 0; i < len_a; i++) 
 	    if (ra_idx(i) == 0 && dva(i) == dv(i))
-	      {
-		numel_to_move *= dva(i+1);
-		skip *= dv(i+1);
-	      }
+	      numel_to_move *= dva(i);
 	    else
 	      {
-		skip -= dva(i);
+		skip = numel_to_move * (dv(i) - dva(i));
+		numel_to_move *= dva(i);
 		break;
 	      }
 
diff -r c891dd97b837 -r 10004c9625c3 liboctave/ChangeLog
--- a/liboctave/ChangeLog	Wed Jan 12 19:49:18 2005 +0000
+++ b/liboctave/ChangeLog	Tue Jan 18 20:05:10 2005 +0000
@@ -1,3 +1,13 @@
+2005-01-18  David Bateman <dbateman@free.fr>
+
+	* Array.cc (Array<T>::insert (const Array<T>&, const Array<int>&)):
+	Modify calculation of number elements to skip between copied blocks.
+
+2005-01-18  John W. Eaton  <jwe@octave.org>
+
+	* idx-vector.cc (IDX_VEC_REP::freeze): Call warning handler, not
+	error handler, to warn about resizing.
+
 2004-12-27  Martin Dalecki  <martin@dalecki.de>
 
 	* Array.cc, ArrayN.cc, base-lu.cc, boolMatrix.cc, boolNDArray.cc,
diff -r c891dd97b837 -r 10004c9625c3 liboctave/idx-vector.cc
--- a/liboctave/idx-vector.cc	Wed Jan 12 19:49:18 2005 +0000
+++ b/liboctave/idx-vector.cc	Tue Jan 18 20:05:10 2005 +0000
@@ -585,11 +585,11 @@
 	      if (warn_resize && max_val >= z_len)
 		{
 		  if (tag)
-		    (*current_liboctave_error_handler)
+		    (*current_liboctave_warning_handler)
 		      ("resizing object with %s index = %d out of bounds",
 		       tag, max_val+1);
 		  else
-		    (*current_liboctave_error_handler)
+		    (*current_liboctave_warning_handler)
 		      ("resizing object with index = %d out of bounds",
 		       max_val+1);
 		}
diff -r c891dd97b837 -r 10004c9625c3 scripts/ChangeLog
--- a/scripts/ChangeLog	Wed Jan 12 19:49:18 2005 +0000
+++ b/scripts/ChangeLog	Tue Jan 18 20:05:10 2005 +0000
@@ -1,3 +1,7 @@
+2005-01-18  John W. Eaton  <jwe@octave.org>
+
+	* linear-algebra/cross.m: Allocate idx1 before use.
+
 2004-12-08  Heikki Junes  <Heikki.Junes@hut.fi>
 
 	* statistics/base/range.m: Fix varargin usage.
diff -r c891dd97b837 -r 10004c9625c3 scripts/linear-algebra/cross.m
--- a/scripts/linear-algebra/cross.m	Wed Jan 12 19:49:18 2005 +0000
+++ b/scripts/linear-algebra/cross.m	Tue Jan 18 20:05:10 2005 +0000
@@ -71,7 +71,7 @@
 
   nd = ndims (x);
   sz = size (x);
-  idx1 = cell ();
+  idx1 = cell (1, nd);
   for i = 1:nd
     idx1{i} = 1:sz(i);
   endfor