Mercurial > hg > octave-max

comparison liboctave/Array.cc @ 10535:3f973f6c841c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
improve sparse concatenation operator
author Jaroslav Hajek <highegg@gmail.com>
date Tue, 20 Apr 2010 08:42:03 +0200
parents f094ac9bc93e
children f5f6bde82e19
comparison
equal deleted inserted replaced
10534:eb55e736060e 10535:3f973f6c841c
2600 { 2600 {
2601 if (dim < 0) 2601 if (dim < 0)
2602 (*current_liboctave_error_handler) 2602 (*current_liboctave_error_handler)
2603 ("cat: invalid dimension"); 2603 ("cat: invalid dimension");
2604 2604
2605 if (n == 1)
2606 return array_list[0];
2607
2605 dim_vector dv; 2608 dim_vector dv;
2606 for (octave_idx_type i = 0; i < n; i++) 2609 for (octave_idx_type i = 0; i < n; i++)
2607 if (! dv.concat (array_list[i].dims (), dim)) 2610 if (! dv.concat (array_list[i].dims (), dim))
2608 (*current_liboctave_error_handler) 2611 (*current_liboctave_error_handler)
2609 ("cat: dimension mismatch"); 2612 ("cat: dimension mismatch");