[Pspp-cvs] pspp/src language/dictionary/vector.c language/...

[John Darrington]

CVSROOT:        /sources/pspp
Module name:    pspp
Changes by:     John Darrington <jmd>   07/08/27 05:05:54

Modified files:
        src/language/dictionary: vector.c 
        src/language/stats: t-test.q 
        src/output     : output.c 

Log message:
        Plugged some memory leaks.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/pspp/src/language/dictionary/vector.c?cvsroot=pspp&r1=1.15&r2=1.16
http://cvs.savannah.gnu.org/viewcvs/pspp/src/language/stats/t-test.q?cvsroot=pspp&r1=1.26&r2=1.27
http://cvs.savannah.gnu.org/viewcvs/pspp/src/output/output.c?cvsroot=pspp&r1=1.25&r2=1.26

Patches:
Index: language/dictionary/vector.c
===================================================================
RCS file: /sources/pspp/pspp/src/language/dictionary/vector.c,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -b -r1.15 -r1.16
--- language/dictionary/vector.c        7 Jul 2007 06:14:14 -0000       1.15
+++ language/dictionary/vector.c        27 Aug 2007 05:05:54 -0000      1.16
@@ -77,7 +77,7 @@
           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, ',');

Index: language/stats/t-test.q
===================================================================
RCS file: /sources/pspp/pspp/src/language/stats/t-test.q,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -b -r1.26 -r1.27
--- language/stats/t-test.q     28 Jul 2007 00:40:53 -0000      1.26
+++ language/stats/t-test.q     27 Aug 2007 05:05:54 -0000      1.27
@@ -1849,6 +1849,8 @@
       trbox_populate(&test_results_box,cmd);
       trbox_finalize(&test_results_box);
     }
+
+  taint_destroy (taint);
 }
 
 short which_group(const struct group_statistics *g,

Index: output/output.c
===================================================================
RCS file: /sources/pspp/pspp/src/output/output.c,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -b -r1.25 -r1.26
--- output/output.c     16 Aug 2007 06:30:23 -0000      1.25
+++ output/output.c     27 Aug 2007 05:05:54 -0000      1.26
@@ -435,6 +435,7 @@
 outp_done (void)
 {
   struct outp_driver_class_list *n = outp_class_list ;
+  outp_configure_clear ();
   destroy_list (&outp_driver_list);
 
   while (n)