X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fstats%2Ffactor.c;h=208307d0f11e781b1a5dceaf4fdd7a1c88e8df8a;hb=e17bbcc7e6eef7fc509e9b4a874141c9c18140f8;hp=5d1b242d814ab285c4706a117e805155754b148d;hpb=370a9db5a646d56f62b6915f92d2e8da5c28467b;p=pspp

diff --git a/src/language/stats/factor.c b/src/language/stats/factor.c
index 5d1b242d81..208307d0f1 100644
--- a/src/language/stats/factor.c
+++ b/src/language/stats/factor.c
@@ -904,6 +904,23 @@ rotate (const struct cmd_factor *cf, const gsl_matrix *unrot,
 			      pm1);
 
       gsl_matrix_memcpy (result, pm1);
+
+
+      gsl_matrix_free (QQinv);
+      gsl_matrix_free (C);
+      gsl_matrix_free (Cinv);
+
+      gsl_matrix_free (D);
+      gsl_matrix_free (Q);
+      gsl_matrix_free (L);
+      gsl_matrix_free (P);
+
+      gsl_permutation_free (perm);
+
+      gsl_matrix_free (mm1);
+      gsl_matrix_free (mm2);
+      gsl_matrix_free (mp1);
+      gsl_matrix_free (pm1);
     }