# HG changeset patch
# User Jaroslav Hajek <highegg@gmail.com>
# Date 1235111620 -3600
# Node ID 40ff50ce30520fd223c1331ec9047c9e63ecd7f0
# Parent  352f111b04cedf1c283012692059d6559343505f
ov-base-mat.cc: correctly compute all-scalar index for indexing

diff -r 352f111b04ce -r 40ff50ce3052 src/ChangeLog
--- a/src/ChangeLog	Fri Feb 20 01:23:04 2009 -0500
+++ b/src/ChangeLog	Fri Feb 20 07:33:40 2009 +0100
@@ -1,3 +1,8 @@
+2009-02-20  Jaroslav Hajek  <highegg@gmail.com>
+
+	* ov-base-mat.cc (octave_base_matrix<MT>::do_index_op):
+	Correctly compute all-scalar index.
+
 2009-02-20  John W. Eaton  <jwe@octave.org>
 
 	* ov-base-mat.cc (octave_base_matrix<MT>::assign):
diff -r 352f111b04ce -r 40ff50ce3052 src/ov-base-mat.cc
--- a/src/ov-base-mat.cc	Fri Feb 20 01:23:04 2009 -0500
+++ b/src/ov-base-mat.cc	Fri Feb 20 07:33:40 2009 +0100
@@ -205,7 +205,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);
                   }
                 retval = const_cast<const MT&> (matrix)(j);