Mercurial > hg > octave-nkf

comparison liboctave/Array.cc @ 6389:f427b33aeb4c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-03-07 09:13:50 by jwe]
author jwe
date Wed, 07 Mar 2007 09:13:50 +0000
parents 4109a2386346
children e8c42df3d234
comparison
equal deleted inserted replaced
6388:4109a2386346 6389:f427b33aeb4c
2514 2514
2515 octave_idx_type n = lhs_idx.freeze (lhs_len, "vector", true); 2515 octave_idx_type n = lhs_idx.freeze (lhs_len, "vector", true);
2516 2516
2517 if (n != 0) 2517 if (n != 0)
2518 { 2518 {
2519 dim_vector lhs_dims = lhs.dims ();
2520
2521 if (lhs_len == 0 && ! lhs_dims.all_zero ())
2522 {
2523 (*current_liboctave_error_handler)
2524 ("A(I) = X: unable to resize A");
2525
2526 retval = 0;
2527 }
2528
2519 if (rhs_len == n || rhs_len == 1) 2529 if (rhs_len == n || rhs_len == 1)
2520 { 2530 {
2521 octave_idx_type max_idx = lhs_idx.max () + 1; 2531 octave_idx_type max_idx = lhs_idx.max () + 1;
2522 if (max_idx > lhs_len) 2532 if (max_idx > lhs_len)
2523 lhs.resize_and_fill (max_idx, rfv); 2533 lhs.resize_and_fill (max_idx, rfv);