X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fstats%2Fkruskal-wallis.c;h=63ede78a34377c0a9d5bdcf460922a736af5379a;hb=758bb90bac15899ca7f18a55dc4f90e1345c7179;hp=420b1a038d89f33cac8c6ce8fb5ca9a1aab7dcf7;hpb=c8b02c29026c095ce912faf5fdba7e29b42cb135;p=pspp

diff --git a/src/language/stats/kruskal-wallis.c b/src/language/stats/kruskal-wallis.c
index 420b1a038d..63ede78a34 100644
--- a/src/language/stats/kruskal-wallis.c
+++ b/src/language/stats/kruskal-wallis.c
@@ -203,6 +203,17 @@ kruskal_wallis_execute (const struct dataset *ds,
   show_ranks_box (nst, kw, total_n_groups);
   show_sig_box (nst, kw);
 
+  for (i = 0 ; i < nst->n_vars; ++i)
+    {
+      struct rank_entry *mre, *next;
+      HMAP_FOR_EACH_SAFE (mre, next, struct rank_entry, node, &kw[i].map)
+	{
+	  hmap_delete (&kw[i].map, &mre->node);
+	  free (mre);
+	}
+      hmap_destroy (&kw[i].map);
+    }
+
   free (kw);
 }