mirror of
https://gitlab.com/libeigen/eigen.git
synced 2025-09-12 09:23:12 +08:00
fix memory leak from Cholmod data in SPQR support
This commit is contained in:
parent
43bb942365
commit
122b16d841
@ -64,7 +64,7 @@ class SPQR
|
||||
typedef PermutationMatrix<Dynamic, Dynamic> PermutationType;
|
||||
public:
|
||||
SPQR()
|
||||
: m_ordering(SPQR_ORDERING_DEFAULT),
|
||||
: m_ordering(SPQR_ORDERING_AMD),
|
||||
m_allow_tol(SPQR_DEFAULT_TOL),
|
||||
m_tolerance (NumTraits<Scalar>::epsilon())
|
||||
{
|
||||
@ -72,7 +72,7 @@ class SPQR
|
||||
}
|
||||
|
||||
SPQR(const _MatrixType& matrix)
|
||||
: m_ordering(SPQR_ORDERING_DEFAULT),
|
||||
: m_ordering(SPQR_ORDERING_AMD),
|
||||
m_allow_tol(SPQR_DEFAULT_TOL),
|
||||
m_tolerance (NumTraits<Scalar>::epsilon())
|
||||
{
|
||||
@ -83,10 +83,12 @@ class SPQR
|
||||
~SPQR()
|
||||
{
|
||||
// Calls SuiteSparseQR_free()
|
||||
cholmod_free_sparse(&m_H, &m_cc);
|
||||
cholmod_free_dense(&m_HTau, &m_cc);
|
||||
delete[] m_E;
|
||||
delete[] m_HPinv;
|
||||
cholmod_l_free_sparse(&m_H, &m_cc);
|
||||
cholmod_l_free_sparse(&m_cR, &m_cc);
|
||||
cholmod_l_free_dense(&m_HTau, &m_cc);
|
||||
std::free(m_E);
|
||||
std::free(m_HPinv);
|
||||
cholmod_l_finish(&m_cc);
|
||||
}
|
||||
void compute(const _MatrixType& matrix)
|
||||
{
|
||||
@ -244,7 +246,7 @@ struct SPQR_QProduct : ReturnByValue<SPQR_QProduct<SPQRType,Derived> >
|
||||
y_cd = viewAsCholmod(m_other.const_cast_derived());
|
||||
x_cd = SuiteSparseQR_qmult<Scalar>(method, m_spqr.m_H, m_spqr.m_HTau, m_spqr.m_HPinv, &y_cd, cc);
|
||||
res = Matrix<Scalar,ResType::RowsAtCompileTime,ResType::ColsAtCompileTime>::Map(reinterpret_cast<Scalar*>(x_cd->x), x_cd->nrow, x_cd->ncol);
|
||||
cholmod_free_dense(&x_cd, cc);
|
||||
cholmod_l_free_dense(&x_cd, cc);
|
||||
}
|
||||
const SPQRType& m_spqr;
|
||||
const Derived& m_other;
|
||||
@ -301,4 +303,4 @@ struct solve_retval<SPQR<_MatrixType>, Rhs>
|
||||
} // end namespace internal
|
||||
|
||||
}// End namespace Eigen
|
||||
#endif
|
||||
#endif
|
||||
|
Loading…
x
Reference in New Issue
Block a user