From 286fe5a93b54a3c22d4c28468ff269afb859fb49 Mon Sep 17 00:00:00 2001 From: Ben Pfaff Date: Sat, 14 Oct 2006 23:55:18 +0000 Subject: [PATCH] Fix memory leak in rank_sorted_casefile(). --- src/language/stats/ChangeLog | 5 +++++ src/language/stats/rank.q | 3 +++ 2 files changed, 8 insertions(+) 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 + + * 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 * 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); } -- 2.30.2