Mercurial > hg > octave-lyh
diff liboctave/fMatrix.cc @ 11574:a83bad07f7e3
attempt better backward compatibility for Array resize functions
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Thu, 20 Jan 2011 00:12:05 -0500 |
parents | 57632dea2446 |
children | 12df7854fa7c |
line wrap: on
line diff
--- a/liboctave/fMatrix.cc +++ b/liboctave/fMatrix.cc @@ -755,7 +755,7 @@ lwork = static_cast<octave_idx_type> (z(0)); lwork = (lwork < 2 *nc ? 2*nc : lwork); - z.resize (lwork, 1); + z.resize (dim_vector (lwork, 1)); float *pz = z.fortran_vec (); info = 0; @@ -1116,7 +1116,7 @@ nsamples = nr; nn = 4*npts+15; - wsave.resize (nn, 1); + wsave.resize (dim_vector (nn, 1)); pwsave = wsave.fortran_vec (); Array<FloatComplex> tmp (dim_vector (npts, 1)); @@ -1185,7 +1185,7 @@ nsamples = nr; nn = 4*npts+15; - wsave.resize (nn, 1); + wsave.resize (dim_vector (nn, 1)); pwsave = wsave.fortran_vec (); Array<FloatComplex> tmp (dim_vector (npts, 1)); @@ -2354,7 +2354,7 @@ } lwork = static_cast<octave_idx_type> (work(0)); - work.resize (lwork, 1); + work.resize (dim_vector (lwork, 1)); F77_XFCN (sgelsd, SGELSD, (m, n, nrhs, tmp_data, m, pretval, maxmn, ps, rcon, rank, @@ -2508,7 +2508,7 @@ lwork, piwork, info)); lwork = static_cast<octave_idx_type> (work(0)); - work.resize (lwork, 1); + work.resize (dim_vector (lwork, 1)); F77_XFCN (sgelsd, SGELSD, (m, n, nrhs, tmp_data, m, pretval, maxmn, ps, rcon, rank, @@ -2792,7 +2792,7 @@ if (nr > 0 && nc > 0) { result.resize (nr); - idx_arg.resize (nr, 1); + idx_arg.resize (dim_vector (nr, 1)); for (octave_idx_type i = 0; i < nr; i++) { @@ -2847,7 +2847,7 @@ if (nr > 0 && nc > 0) { result.resize (nr); - idx_arg.resize (nr, 1); + idx_arg.resize (dim_vector (nr, 1)); for (octave_idx_type i = 0; i < nr; i++) { @@ -2902,7 +2902,7 @@ if (nr > 0 && nc > 0) { result.resize (nc); - idx_arg.resize (1, nc); + idx_arg.resize (dim_vector (1, nc)); for (octave_idx_type j = 0; j < nc; j++) { @@ -2957,7 +2957,7 @@ if (nr > 0 && nc > 0) { result.resize (nc); - idx_arg.resize (1, nc); + idx_arg.resize (dim_vector (1, nc)); for (octave_idx_type j = 0; j < nc; j++) {