From: Ben Pfaff <blp@gnu.org>
Date: Sat, 14 Oct 2006 23:55:18 +0000 (+0000)
Subject: Fix memory leak in rank_sorted_casefile().
X-Git-Tag: v0.6.0~731
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=286fe5a93b54a3c22d4c28468ff269afb859fb49;p=pspp-builds.git

Fix memory leak in rank_sorted_casefile().
---

diff --git a/src/language/stats/ChangeLog b/src/language/stats/ChangeLog
index c96b2861..e891f6d5 100644
--- a/src/language/stats/ChangeLog
+++ b/src/language/stats/ChangeLog
@@ -1,3 +1,8 @@
+Sat Oct 14 16:52:28 2006  Ben Pfaff  <blp@gnu.org>
+
+	* 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 <john@darrington.wattle.id.au>
 
 	* rank.q: Plugged a small memory leak which occurred under error
diff --git a/src/language/stats/rank.q b/src/language/stats/rank.q
index 59846c85..491160b6 100644
--- a/src/language/stats/rank.q
+++ b/src/language/stats/rank.q
@@ -626,11 +626,14 @@ rank_sorted_casefile (struct casefile *cf,
 			  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);
     }