Mercurial > hg > octave-lyh
diff liboctave/Array-idx.h @ 1619:1a35c8c91349
[project @ 1995-11-04 11:07:21 by jwe]
author | jwe |
---|---|
date | Sat, 04 Nov 1995 11:07:21 +0000 |
parents | 1c39163722ce |
children | 43df82dfb1f7 |
line wrap: on
line diff
--- a/liboctave/Array-idx.h +++ b/liboctave/Array-idx.h @@ -21,6 +21,7 @@ */ +#include "error.h" #include "idx-vector.h" #include "lo-error.h" @@ -38,8 +39,10 @@ template <class T> void -ArrayRep<T>::clear_index (void) +Array<T>::clear_index (void) { + cerr << "clearing index for " << this << "\n"; + delete [] idx; idx = 0; idx_count = 0; @@ -47,8 +50,10 @@ template <class T> void -ArrayRep<T>::set_index (const idx_vector& i) +Array<T>::set_index (const idx_vector& i) { + cerr << "setting index for " << this << "\n"; + if (! idx) idx = new idx_vector [max_indices]; @@ -60,6 +65,7 @@ { (*current_liboctave_error_handler) ("invalid number of indices specified"); + clear_index (); } }