X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fstats%2Ffactor.c;h=18341b8db50d470e2c4ac5d3c2128ec63f512921;hb=29ff1e6f7b8220c0800740e525381053ca53d2d4;hp=797c5a67255eb920df2fb107bce3b8c003111aba;hpb=5cab4cf3322f29c0ed7134d23740e07382914f20;p=pspp

diff --git a/src/language/stats/factor.c b/src/language/stats/factor.c
index 797c5a6725..18341b8db5 100644
--- a/src/language/stats/factor.c
+++ b/src/language/stats/factor.c
@@ -1533,6 +1533,10 @@ cmd_factor (struct lexer *lexer, struct dataset *ds)
 	{
 	  do_factor_by_matrix (&factor, id);
 
+          gsl_matrix_free (id->ai_cov);
+          id->ai_cov = NULL;
+          gsl_matrix_free (id->ai_cor);
+          id->ai_cor = NULL;
 	  gsl_matrix_free (id->mm.corr);
 	  id->mm.corr = NULL;
 	  gsl_matrix_free (id->mm.cov);