Mercurial > octave

comparison libinterp/corefcn/__pchip_deriv__.cc @ 33037:7d5a531a058a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
eliminate obsolete volatile declarations on integer variables (bug #65321) Affected files: __pchip_deriv__.cc, CSparse.cc, dSparse.cc, lu.cc, qr.cc, and sparse-qr.cc.
author John W. Eaton <jwe@octave.org>
date Fri, 16 Feb 2024 16:38:35 -0500
parents f53ac65ffba6
children
comparison
equal deleted inserted replaced
33036:4c98d5d31993 33037:7d5a531a058a
73 73
74 FloatComplexMatrix dmat (nyr, nyc); 74 FloatComplexMatrix dmat (nyr, nyc);
75 75
76 F77_INT ierr; 76 F77_INT ierr;
77 const F77_INT incfd = (rows ? to_f77_int (2*nyr) : 2); 77 const F77_INT incfd = (rows ? to_f77_int (2*nyr) : 2);
78 volatile const octave_idx_type inc = (rows ? 2 : 2*nyr); 78 const octave_idx_type inc = (rows ? 2 : 2*nyr);
79 volatile octave_idx_type k = 0; 79 octave_idx_type k = 0;
80 80
81 for (volatile octave_idx_type i = (rows ? nyr : nyc); i > 0; i--) 81 for (octave_idx_type i = (rows ? nyr : nyc); i > 0; i--)
82 { 82 {
83 F77_XFCN (pchim, PCHIM, (nx, xvec.data (), 83 F77_XFCN (pchim, PCHIM, (nx, xvec.data (),
84 reinterpret_cast<float const *> (ymat.data ()) + k * inc, 84 reinterpret_cast<float const *> (ymat.data ()) + k * inc,
85 reinterpret_cast<float *> (dmat.rwdata ()) + k * inc, 85 reinterpret_cast<float *> (dmat.rwdata ()) + k * inc,
86 incfd, ierr)); 86 incfd, ierr));
115 115
116 FloatMatrix dmat (nyr, nyc); 116 FloatMatrix dmat (nyr, nyc);
117 117
118 F77_INT ierr; 118 F77_INT ierr;
119 const F77_INT incfd = (rows ? to_f77_int (nyr) : 1); 119 const F77_INT incfd = (rows ? to_f77_int (nyr) : 1);
120 volatile const octave_idx_type inc = (rows ? 1 : nyr); 120 const octave_idx_type inc = (rows ? 1 : nyr);
121 volatile octave_idx_type k = 0; 121 octave_idx_type k = 0;
122 122
123 for (volatile octave_idx_type i = (rows ? nyr : nyc); i > 0; i--) 123 for (octave_idx_type i = (rows ? nyr : nyc); i > 0; i--)
124 { 124 {
125 F77_XFCN (pchim, PCHIM, (nx, xvec.data (), 125 F77_XFCN (pchim, PCHIM, (nx, xvec.data (),
126 ymat.data () + k * inc, 126 ymat.data () + k * inc,
127 dmat.rwdata () + k * inc, 127 dmat.rwdata () + k * inc,
128 incfd, ierr)); 128 incfd, ierr));
156 156
157 ComplexMatrix dmat (nyr, nyc); 157 ComplexMatrix dmat (nyr, nyc);
158 158
159 F77_INT ierr; 159 F77_INT ierr;
160 const F77_INT incfd = (rows ? to_f77_int (2*nyr) : 2); 160 const F77_INT incfd = (rows ? to_f77_int (2*nyr) : 2);
161 volatile const octave_idx_type inc = (rows ? 2 : 2*nyr); 161 const octave_idx_type inc = (rows ? 2 : 2*nyr);
162 volatile octave_idx_type k = 0; 162 octave_idx_type k = 0;
163 163
164 for (volatile octave_idx_type i = (rows ? nyr : nyc); i > 0; i--) 164 for (octave_idx_type i = (rows ? nyr : nyc); i > 0; i--)
165 { 165 {
166 F77_XFCN (dpchim, DPCHIM, (nx, xvec.data (), 166 F77_XFCN (dpchim, DPCHIM, (nx, xvec.data (),
167 reinterpret_cast<double const *> (ymat.data ()) + k * inc, 167 reinterpret_cast<double const *> (ymat.data ()) + k * inc,
168 reinterpret_cast<double *> (dmat.rwdata ()) + k * inc, 168 reinterpret_cast<double *> (dmat.rwdata ()) + k * inc,
169 incfd, ierr)); 169 incfd, ierr));
198 198
199 Matrix dmat (nyr, nyc); 199 Matrix dmat (nyr, nyc);
200 200
201 F77_INT ierr; 201 F77_INT ierr;
202 const F77_INT incfd = (rows ? to_f77_int (nyr) : 1); 202 const F77_INT incfd = (rows ? to_f77_int (nyr) : 1);
203 volatile const octave_idx_type inc = (rows ? 1 : nyr); 203 const octave_idx_type inc = (rows ? 1 : nyr);
204 volatile octave_idx_type k = 0; 204 octave_idx_type k = 0;
205 205
206 for (volatile octave_idx_type i = (rows ? nyr : nyc); i > 0; i--) 206 for (octave_idx_type i = (rows ? nyr : nyc); i > 0; i--)
207 { 207 {
208 F77_XFCN (dpchim, DPCHIM, (nx, xvec.data (), 208 F77_XFCN (dpchim, DPCHIM, (nx, xvec.data (),
209 ymat.data () + k * inc, 209 ymat.data () + k * inc,
210 dmat.rwdata () + k * inc, 210 dmat.rwdata () + k * inc,
211 incfd, ierr)); 211 incfd, ierr));