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

[Ben Pfaff]

CVSROOT:        /cvsroot/pspp
Module name:    pspp
Changes by:     Ben Pfaff <blp> 06/10/14 23:55:18

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

Log message:
        Fix memory leak in rank_sorted_casefile().

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/pspp/src/language/stats/rank.q?cvsroot=pspp&r1=1.12&r2=1.13
http://cvs.savannah.gnu.org/viewcvs/pspp/src/language/stats/ChangeLog?cvsroot=pspp&r1=1.29&r2=1.30

Patches:
Index: rank.q
===================================================================
RCS file: /cvsroot/pspp/pspp/src/language/stats/rank.q,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -b -r1.12 -r1.13
--- rank.q      8 Oct 2006 01:49:15 -0000       1.12
+++ rank.q      14 Oct 2006 23:55:18 -0000      1.13
@@ -626,11 +626,14 @@
                          dest_idx, dest);
 
               w = 0.0;
+              case_destroy (&group_case);
               case_move (&group_case, &this_case);
             }
          if ( !value_is_missing (mv, this_value) )
            w += c;
+          case_destroy (&this_case);
         }
+      case_destroy (&group_case);
       rank_cases (pos, ULONG_MAX, ultimate_crit, mv, w,
                  rs, n_rank_specs, dest_idx, dest);
     }

Index: ChangeLog
===================================================================
RCS file: /cvsroot/pspp/pspp/src/language/stats/ChangeLog,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -b -r1.29 -r1.30
--- ChangeLog   8 Oct 2006 01:49:15 -0000       1.29
+++ ChangeLog   14 Oct 2006 23:55:18 -0000      1.30
@@ -1,3 +1,8 @@
+Sat Oct 14 16:52:28 2006  Ben Pfaff  <address@hidden>
+
+       * rank.q: (rank_sorted_casefile) Add some missing case_destroy()
+       calls to fix a memory leak.
+
 Sun Oct  8 09:45:40 WST 2006 John Darrington <address@hidden>
 
        * rank.q: Plugged a small memory leak which occurred under error