Mercurial > octave

comparison libinterp/corefcn/data.cc @ 33250:40fde86be9b0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
replace calls to error_* with corresponding panic_* functions in libinterp Affected files: __isprimelarge__.cc, cellfun.cc, daspk.cc, dasrt.cc, dassl.cc, data.cc, graphics.cc, kron.cc, mex.cc, oct-map.cc, oct-stream.cc, pr-output.cc, schur.cc, variables.cc, and ops.h.
author John W. Eaton <jwe@octave.org>
date Mon, 25 Mar 2024 00:42:04 -0400
parents ef4ad50ca70f
children 59ee9d370307
comparison
equal deleted inserted replaced
33249:06a308cae32c 33250:40fde86be9b0
8152 while (order > 0 && k > 0) 8152 while (order > 0 && k > 0)
8153 { 8153 {
8154 idx_vector col1 (':'), col2 (':'), sl1 (1, k), sl2 (0, k-1); 8154 idx_vector col1 (':'), col2 (':'), sl1 (1, k), sl2 (0, k-1);
8155 retval = SparseT (retval.index (col1, sl1)) 8155 retval = SparseT (retval.index (col1, sl1))
8156 - SparseT (retval.index (col2, sl2)); 8156 - SparseT (retval.index (col2, sl2));
8157 error_unless (retval.columns () == k-1); 8157 panic_unless (retval.columns () == k-1);
8158 order--; 8158 order--;
8159 k--; 8159 k--;
8160 } 8160 }
8161 } 8161 }
8162 else 8162 else
8165 while (order > 0 && k > 0) 8165 while (order > 0 && k > 0)
8166 { 8166 {
8167 idx_vector col1 (':'), col2 (':'), sl1 (1, k), sl2 (0, k-1); 8167 idx_vector col1 (':'), col2 (':'), sl1 (1, k), sl2 (0, k-1);
8168 retval = SparseT (retval.index (sl1, col1)) 8168 retval = SparseT (retval.index (sl1, col1))
8169 - SparseT (retval.index (sl2, col2)); 8169 - SparseT (retval.index (sl2, col2));
8170 error_unless (retval.rows () == k-1); 8170 panic_unless (retval.rows () == k-1);
8171 order--; 8171 order--;
8172 k--; 8172 k--;
8173 } 8173 }
8174 } 8174 }
8175 8175