From: John Darrington <john@darrington.wattle.id.au>
Date: Mon, 27 Aug 2007 05:05:54 +0000 (+0000)
Subject: Plugged some memory leaks.
X-Git-Tag: v0.6.0~291
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=7658146ef345fbddfad02e76673afbb62c9aa4d6;p=pspp-builds.git

Plugged some memory leaks.
---

diff --git a/src/language/dictionary/vector.c b/src/language/dictionary/vector.c
index a623a349..dd5c0cf4 100644
--- a/src/language/dictionary/vector.c
+++ b/src/language/dictionary/vector.c
@@ -77,7 +77,7 @@ cmd_vector (struct lexer *lexer, struct dataset *ds)
           if (vector_cnt == vector_cap)
             vectors = pool_2nrealloc (pool,
                                        vectors, &vector_cap, sizeof *vectors);
-          vectors[vector_cnt++] = xstrdup (lex_tokid (lexer));
+          vectors[vector_cnt++] = pool_strdup (pool, lex_tokid (lexer));
 
 	  lex_get (lexer);
 	  lex_match (lexer, ',');
diff --git a/src/language/stats/t-test.q b/src/language/stats/t-test.q
index 9691578e..a1665d53 100644
--- a/src/language/stats/t-test.q
+++ b/src/language/stats/t-test.q
@@ -1849,6 +1849,8 @@ calculate(struct cmd_t_test *cmd,
       trbox_populate(&test_results_box,cmd);
       trbox_finalize(&test_results_box);
     }
+
+  taint_destroy (taint);
 }
 
 short which_group(const struct group_statistics *g,
diff --git a/src/output/output.c b/src/output/output.c
index 9527c46f..5a24d895 100644
--- a/src/output/output.c
+++ b/src/output/output.c
@@ -435,6 +435,7 @@ void
 outp_done (void)
 {
   struct outp_driver_class_list *n = outp_class_list ;
+  outp_configure_clear ();
   destroy_list (&outp_driver_list);
 
   while (n)