[Pspp-cvs] pspp/src/language/stats ChangeLog crosstabs.q

[Ben Pfaff]

CVSROOT:        /cvsroot/pspp
Module name:    pspp
Changes by:     Ben Pfaff <blp> 07/09/05 04:49:42

Modified files:
        src/language/stats: ChangeLog crosstabs.q 

Log message:
        (cmd_crosstabs): Free xtab and the structures that it points to, to
        plug a memory leak.  Fixes bug #18315.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/pspp/src/language/stats/ChangeLog?cvsroot=pspp&r1=1.62&r2=1.63
http://cvs.savannah.gnu.org/viewcvs/pspp/src/language/stats/crosstabs.q?cvsroot=pspp&r1=1.32&r2=1.33

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/pspp/pspp/src/language/stats/ChangeLog,v
retrieving revision 1.62
retrieving revision 1.63
diff -u -b -r1.62 -r1.63
--- ChangeLog   15 Aug 2007 19:24:17 -0000      1.62
+++ ChangeLog   5 Sep 2007 04:49:41 -0000       1.63
@@ -1,3 +1,8 @@
+2007-09-04  Ben Pfaff  <address@hidden>
+
+       * crosstabs.q (cmd_crosstabs): Free xtab and the structures that
+       it points to, to plug a memory leak.  Fixes bug #18315.
+
 2007-08-15  Jason Stover  <address@hidden>
 
        * regression.q (identify_indep_vars): Print an error if dependent

Index: crosstabs.q
===================================================================
RCS file: /cvsroot/pspp/pspp/src/language/stats/crosstabs.q,v
retrieving revision 1.32
retrieving revision 1.33
diff -u -b -r1.32 -r1.33
--- crosstabs.q 7 Jul 2007 06:14:16 -0000       1.32
+++ crosstabs.q 5 Sep 2007 04:49:42 -0000       1.33
@@ -191,11 +191,16 @@
 cmd_crosstabs (struct lexer *lexer, struct dataset *ds)
 {
   int result = internal_cmd_crosstabs (lexer, ds);
+  int i;
 
   free (variables);
   pool_destroy (pl_tc);
   pool_destroy (pl_col);
 
+  for (i = 0; i < nxtab; i++)
+    free (xtab[i]);
+  free (xtab);
+
   return result;
 }