Mercurial > octave-nkf
changeset 4941:6af62cc045f7
[project @ 2004-08-25 16:37:30 by jwe]
| author | jwe |
|---|---|
| date | Wed, 25 Aug 2004 16:37:30 +0000 |
| parents | 954cc2ba6a49 |
| children | a0f2839f6ac8 |
| files | src/ChangeLog src/ov-cell.cc |
| diffstat | 2 files changed, 9 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/src/ChangeLog Tue Aug 24 19:32:46 2004 +0000 +++ b/src/ChangeLog Wed Aug 25 16:37:30 2004 +0000 @@ -1,3 +1,8 @@ +2004-08-25 David Bateman <dbateman@free.fr> + + * ov-cell.cc (octave_cell::subsasgn): Delete elements of cell array + when type is "(" and rhs is empty. + 2004-08-09 John W. Eaton <jwe@octave.org> * ov-intx.h (OCTAVE_VALUE_INT_MATRIX_T::index_vector,
--- a/src/ov-cell.cc Tue Aug 24 19:32:46 2004 +0000 +++ b/src/ov-cell.cc Wed Aug 25 16:37:30 2004 +0000 @@ -201,7 +201,10 @@ if (t_rhs.is_cell ()) octave_base_matrix<Cell>::assign (i, t_rhs.cell_value ()); else - octave_base_matrix<Cell>::assign (i, Cell (t_rhs)); + if (t_rhs.is_empty ()) + octave_base_matrix<Cell>::assign (i, Cell()); + else + octave_base_matrix<Cell>::assign (i, Cell (t_rhs)); retval = octave_value (this, count + 1); }