Mercurial > octave

diff liboctave/array/dNDArray.cc @ 29931:7faff48840eb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
prefer data over fortran_vec for read-only access to data See also the discussion here: https://octave.discourse.group/t/rename-uses-of-fortran-vec-to-data-for-clarity/1439 * Array.h (const T * Array<T>::fortran_vec (void) const): Deprecate. Change all uses to call data instead.
author John W. Eaton <jwe@octave.org>
date Fri, 30 Jul 2021 11:46:05 -0400
parents 7854d5752dd2
children da7210e30f3e
line wrap: on
line diff
--- a/liboctave/array/dNDArray.cc	Fri Jul 30 17:34:10 2021 +0200
+++ b/liboctave/array/dNDArray.cc	Fri Jul 30 11:46:05 2021 -0400
@@ -47,7 +47,7 @@
 NDArray::NDArray (const Array<octave_idx_type>& a, bool zero_based,
                   bool negative_to_nan)
 {
-  const octave_idx_type *pa = a.fortran_vec ();
+  const octave_idx_type *pa = a.data ();
   resize (a.dims ());
   double *ptmp = fortran_vec ();
   if (negative_to_nan)
@@ -115,7 +115,7 @@
   octave_idx_type nloop = (stride == 1 ? 1 : numel () / dv(dim) / stride);
   octave_idx_type dist = (stride == 1 ? n : 1);
 
-  const double *in (fortran_vec ());
+  const double *in (data ());
   ComplexNDArray retval (dv);
   Complex *out (retval.fortran_vec ());
 
@@ -165,7 +165,7 @@
     return ComplexNDArray ();
 
   dim_vector dv2 (dv(0), dv(1));
-  const double *in = fortran_vec ();
+  const double *in = data ();
   ComplexNDArray retval (dv);
   Complex *out = retval.fortran_vec ();
   octave_idx_type howmany = numel () / dv(0) / dv(1);
@@ -202,7 +202,7 @@
   dim_vector dv = dims ();
   int rank = dv.ndims ();
 
-  const double *in (fortran_vec ());
+  const double *in (data ());
   ComplexNDArray retval (dv);
   Complex *out (retval.fortran_vec ());