Mercurial > hg > octave-nkf
changeset 4796:962457f25a6d
[project @ 2004-02-23 15:35:00 by jwe]
| author | jwe |
|---|---|
| date | Mon, 23 Feb 2004 15:35:00 +0000 |
| parents | 0bae5ef79e66 |
| children | 19b8225bdaa2 |
| files | liboctave/Array.cc liboctave/ChangeLog |
| diffstat | 2 files changed, 11 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/liboctave/Array.cc +++ b/liboctave/Array.cc @@ -891,11 +891,13 @@ dim_vector dv_old = dimensions; - if (n > dv_old.length ()) + int dv_old_orig_len = dv_old.length (); + + if (n > dv_old_orig_len) { dv_old.resize (n); - for (int i = dv_old.length (); i < n; i++) + for (int i = dv_old_orig_len; i < n; i++) dv_old.elem (i) = 1; } @@ -2967,7 +2969,9 @@ final_lhs_dims = new_dims; lhs.resize_and_fill (new_dims, rfv); + lhs_dims = lhs.dims (); + lhs_dims_len = lhs_dims.length (); frozen_len = freeze (idx, lhs_dims, true);
--- a/liboctave/ChangeLog +++ b/liboctave/ChangeLog @@ -1,3 +1,8 @@ +2004-02-23 John W. Eaton <jwe@bevo.che.wisc.edu> + + * Array.cc (Array<T>::resize_and_fill (const dim_vector&, const T&)): + Fix thinko in extending dimensions. + 2004-02-20 John W. Eaton <jwe@bevo.che.wisc.edu> * Range.cc (Range::matrix_value, Range::min, Range::max):