Mercurial > hg > octave-nkf

diff liboctave/Array.cc @ 6881:cd2c6a69a70d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-09-07 21:48:09 by jwe]
author jwe
date Fri, 07 Sep 2007 21:48:10 +0000
parents 83619ae96c1d
children 1cbb8b606d63
line wrap: on
line diff
--- a/liboctave/Array.cc
+++ b/liboctave/Array.cc
@@ -1217,11 +1217,8 @@
 T *
 Array<T>::fortran_vec (void)
 {
-  if (rep->count > 1)
-    {
-      --rep->count;
-      rep = new typename Array<T>::ArrayRep (*rep);
-    }
+  make_unique ();
+
   return rep->data;
 }
 
@@ -1256,7 +1253,7 @@
 
 template <class T>
 void
-Array<T>::clear_index (void)
+Array<T>::clear_index (void) const
 {
   delete [] idx;
   idx = 0;
@@ -1265,7 +1262,7 @@
 
 template <class T>
 void
-Array<T>::set_index (const idx_vector& idx_arg)
+Array<T>::set_index (const idx_vector& idx_arg) const
 {
   int nd = ndims ();
 
@@ -2012,7 +2009,7 @@
 
 template <class T>
 Array<T>
-Array<T>::value (void)
+Array<T>::value (void) const
 {
   Array<T> retval;