From: John Darrington <john@darrington.wattle.id.au>
Date: Tue, 14 Aug 2012 19:49:26 +0000 (+0200)
Subject: Fix leaks in REGRESSION
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=4578c8923824a14086313d6946a48cd94551afbe;p=pspp

Fix leaks in REGRESSION
---

diff --git a/src/language/stats/regression.c b/src/language/stats/regression.c
index 9974ea4c2c..9e1aba8815 100644
--- a/src/language/stats/regression.c
+++ b/src/language/stats/regression.c
@@ -267,6 +267,7 @@ subcommand_save (const struct regression *cmd)
 int
 cmd_regression (struct lexer *lexer, struct dataset *ds)
 {
+  int k;
   struct regression regression;
   const struct dictionary *dict = dataset_dict (ds);
 
@@ -403,12 +404,16 @@ cmd_regression (struct lexer *lexer, struct dataset *ds)
     subcommand_save (&regression);
  
 
+  for (k = 0; k < regression.n_dep_vars; k++)
+    linreg_free (regression.models[k]);
   free (regression.models);
   free (regression.vars);
   free (regression.dep_vars);
   return CMD_SUCCESS;
   
  error:
+  for (k = 0; k < regression.n_dep_vars; k++)
+    linreg_free (regression.models[k]);
   free (regression.models);
   free (regression.vars);
   free (regression.dep_vars);