Mercurial > octave-nkf
comparison liboctave/Array.cc @ 15020:560317fd5977
maint: Cuddle open bracket used for indexing C++ arrays in source code.
* Array-util.cc, Array.cc, DASPK.cc, DASRT.cc, DASSL.cc, LSODE.cc,
MatrixType.cc, Sparse.cc, Sparse.h, dim-vector.h, eigs-base.cc, idx-vector.cc,
oct-alloc.cc, oct-locbuf.cc, oct-locbuf.h, oct-mem.h, oct-sort.cc, oct-time.cc,
sparse-base-chol.cc, sparse-dmsolve.cc, ccolamd.cc, colamd.cc, spparms.cc,
symbfact.cc, symrcm.cc, help.cc, ls-mat5.cc, pt-idx.cc, utils.cc, variables.cc,
zfstream.cc: Cuddle open bracket used for indexing C++ arrays in source code.
author | Rik <rik@octave.org> |
---|---|
date | Thu, 26 Jul 2012 09:25:47 -0700 |
parents | 3d8ace26c5b4 |
children | 9020dddc925a |
comparison
equal
deleted
inserted
replaced
15019:ae3670d4df29 | 15020:560317fd5977 |
---|---|
647 assert (odv.length () == l); | 647 assert (odv.length () == l); |
648 octave_idx_type ld = 1; | 648 octave_idx_type ld = 1; |
649 int i = 0; | 649 int i = 0; |
650 for (; i < l-1 && ndv(i) == odv(i); i++) ld *= ndv(i); | 650 for (; i < l-1 && ndv(i) == odv(i); i++) ld *= ndv(i); |
651 n = l - i; | 651 n = l - i; |
652 cext = new octave_idx_type[3*n]; | 652 cext = new octave_idx_type [3*n]; |
653 // Trick to avoid three allocations | 653 // Trick to avoid three allocations |
654 sext = cext + n; | 654 sext = cext + n; |
655 dext = sext + n; | 655 dext = sext + n; |
656 | 656 |
657 octave_idx_type sld = ld, dld = ld; | 657 octave_idx_type sld = ld, dld = ld; |