X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fstats%2Fcorrelations.c;h=6af8ba32ffd54cc32f8e84baa8f77ee0192eee1d;hb=758bb90bac15899ca7f18a55dc4f90e1345c7179;hp=995675e2cbf4b36cecab0e37ba7374df8e30c9a3;hpb=f550aee00a62fe1d8baf62d83cd7efef6cc2ee92;p=pspp

diff --git a/src/language/stats/correlations.c b/src/language/stats/correlations.c
index 995675e2cb..6af8ba32ff 100644
--- a/src/language/stats/correlations.c
+++ b/src/language/stats/correlations.c
@@ -281,7 +281,7 @@ run_corr (struct casereader *r, const struct corr_opts *opts, const struct corr
   const gsl_matrix *cov_matrix;
   gsl_matrix *corr_matrix;
   struct covariance *cov = covariance_2pass_create (corr->n_vars_total, corr->vars,
-						    0, NULL,
+						    NULL,
 						    opts->wv, opts->exclude);
 
   struct casereader *rc = casereader_clone (r);
@@ -498,10 +498,13 @@ cmd_correlation (struct lexer *lexer, struct dataset *ds)
 
 
   /* Done. */
+  free (corr->vars);
   free (corr);
+
   return ok ? CMD_SUCCESS : CMD_CASCADING_FAILURE;
 
  error:
+  free (corr->vars);
   free (corr);
   return CMD_FAILURE;
 }