Mercurial > hg > octave-lyh

diff src/data.cc @ 6399:e4d3e9bddff3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-03-08 21:12:59 by dbateman]
author dbateman
date Thu, 08 Mar 2007 21:12:59 +0000
parents 06bee64edc08
children f8cbc0871ed6
line wrap: on
line diff
--- a/src/data.cc
+++ b/src/data.cc
@@ -736,7 +736,8 @@
 
 	  octave_value tmp;
 
-          for (int i = 1; i < n_args; i++)
+	  int i;
+          for (i = 1; i < n_args; i++)
 	    {
 	      if (! args (i).all_zero_dims ())
 		{
@@ -752,14 +753,14 @@
 
 	  Array<int> ra_idx (dv.length (), 0);
 
-	  for (int i = 1; i < n_args; i++)
+	  for (int j = i; j < n_args; j++)
 	    {
-	      tmp = do_cat_op (tmp, args (i), ra_idx);
+	      tmp = do_cat_op (tmp, args (j), ra_idx);
 
 	      if (error_state)
 		return retval;
 
-	      dim_vector dv_tmp = args (i).dims ();
+	      dim_vector dv_tmp = args (j).dims ();
 
 	      ra_idx (dim) += (dim < dv_tmp.length () ? dv_tmp (dim) : 1);
 	    }