# HG changeset patch
# User John W. Eaton <jwe@octave.org>
# Date 1235110984 18000
# Node ID 352f111b04cedf1c283012692059d6559343505f
# Parent  89b95972e17806caadb6d47f05d4487543e43664
ov-base-mat.cc: correctly compute all-scalar index for assignment

diff -r 89b95972e178 -r 352f111b04ce src/ChangeLog
--- a/src/ChangeLog	Fri Feb 20 07:08:09 2009 +0100
+++ b/src/ChangeLog	Fri Feb 20 01:23:04 2009 -0500
@@ -1,5 +1,8 @@
 2009-02-20  John W. Eaton  <jwe@octave.org>
 
+	* ov-base-mat.cc (octave_base_matrix<MT>::assign):
+	Correctly compute all-scalar index.
+
 	* symbtab.cc (symbol_table::stash_dir_name_for_subfunctions):
 	New function.
 	* symtab.h: Provide decl.
diff -r 89b95972e178 -r 352f111b04ce src/ov-base-mat.cc
--- a/src/ov-base-mat.cc	Fri Feb 20 07:08:09 2009 +0100
+++ b/src/ov-base-mat.cc	Fri Feb 20 01:23:04 2009 -0500
@@ -356,7 +356,7 @@
                 octave_idx_type k = 1, j = 0;
                 for (octave_idx_type i = 0; i < n_idx; i++)
                   {
-                    j += i * k;
+                    j += idx_vec(i)(0) * k;
                     k *= dv (i);
                   }
                 matrix(j) = rhs;