Mercurial > octave
comparison liboctave/numeric/svd.cc @ 33248:7f73e4805a1f
replace calls to assert with liboctave_panic functions liboctave
* lo-error.h (liboctave_panic_impossible, liboctave_panic_if,
liboctave_panic_unless): New macros.
Replace all calls to assert with panic_if, panic_impossible, or
panic_unless as appropriate. Include "lo-error.h" as needed. Don't
include <cassert>. Affected files: Array-base.cc, Array-util.cc,
Array.h, CSparse.cc, DiagArray2.cc, 1 DiagArray2.h, Sparse.cc,
Sparse.h, dim-vector.h, idx-vector.cc, idx-vector.h, CollocWt.cc,
Quad.cc, oct-rand.cc, qrp.cc, svd.cc, Sparse-perm-op-defs.h, and
oct-sort.cc.
| author | John W. Eaton <jwe@octave.org> |
|---|---|
| date | Sun, 24 Mar 2024 18:12:34 -0400 |
| parents | f53ac65ffba6 |
| children |
comparison
equal
deleted
inserted
replaced
| 33247:55e1412aca35 | 33248:7f73e4805a1f |
|---|---|
| 25 | 25 |
| 26 #if defined (HAVE_CONFIG_H) | 26 #if defined (HAVE_CONFIG_H) |
| 27 # include "config.h" | 27 # include "config.h" |
| 28 #endif | 28 #endif |
| 29 | 29 |
| 30 #include <cassert> | |
| 31 | |
| 32 #include <algorithm> | 30 #include <algorithm> |
| 33 #include <unordered_map> | 31 #include <unordered_map> |
| 34 | 32 |
| 35 #include "CMatrix.h" | 33 #include "CMatrix.h" |
| 36 #include "dDiagMatrix.h" | 34 #include "dDiagMatrix.h" |
| 772 if (m_driver == svd::Driver::GESVD) | 770 if (m_driver == svd::Driver::GESVD) |
| 773 gesvd (jobu, jobv, m, n, tmp_data, m1, s_vec, u, vt, nrow_vt1, | 771 gesvd (jobu, jobv, m, n, tmp_data, m1, s_vec, u, vt, nrow_vt1, |
| 774 work, lwork, info); | 772 work, lwork, info); |
| 775 else if (m_driver == svd::Driver::GESDD) | 773 else if (m_driver == svd::Driver::GESDD) |
| 776 { | 774 { |
| 777 assert (jobu == jobv); | 775 liboctave_panic_unless (jobu == jobv); |
| 778 char jobz = jobu; | 776 char jobz = jobu; |
| 779 | 777 |
| 780 std::vector<F77_INT> iwork (8 * std::min (m, n)); | 778 std::vector<F77_INT> iwork (8 * std::min (m, n)); |
| 781 | 779 |
| 782 gesdd (jobz, m, n, tmp_data, m1, s_vec, u, vt, nrow_vt1, | 780 gesdd (jobz, m, n, tmp_data, m1, s_vec, u, vt, nrow_vt1, |