X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fstats%2Ffactor.c;h=eae6840f3b2f66716a61582e8863ee9746c673bb;hb=3c5fcaa67efcee56981c16b543fb9f679787a486;hp=e09eaae8b01a6d8d00df277791ccd4adcf2a0eba;hpb=44a9abb173e2b0f33b011a853ae1603fda0ce29b;p=pspp-builds.git

diff --git a/src/language/stats/factor.c b/src/language/stats/factor.c
index e09eaae8..eae6840f 100644
--- a/src/language/stats/factor.c
+++ b/src/language/stats/factor.c
@@ -175,7 +175,7 @@ struct idata
   /* Intermediate values used in calculation */
 
   const gsl_matrix *corr ;  /* The correlation matrix */
-  const gsl_matrix *cov ;   /* The covariance matrix */
+  gsl_matrix *cov ;         /* The covariance matrix */
   const gsl_matrix *n ;     /* Matrix of number of samples */
 
   gsl_vector *eval ;  /* The eigenvalues */
@@ -206,6 +206,8 @@ idata_free (struct idata *id)
   gsl_vector_free (id->msr);
   gsl_vector_free (id->eval);
   gsl_matrix_free (id->evec);
+  if (id->cov != NULL)
+    gsl_matrix_free (id->cov);
 
   free (id);
 }