From: Ben Pfaff <blp@cs.stanford.edu>
Date: Sun, 21 Jul 2019 02:58:56 +0000 (-0700)
Subject: EXAMINE: Fix leak in Shapiro-Wilk test.
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=383a4d349c650259bb8509c3c9bf9f83d7c5f911;p=pspp

EXAMINE: Fix leak in Shapiro-Wilk test.

CC: John Darrington <john@darrington.wattle.id.au>
Fixes: 0b7e8882ce9b ("EXAMINE: Implement the Shapiro-Wilk Test.")
---

diff --git a/src/language/stats/examine.c b/src/language/stats/examine.c
index 794fefe6c1..a9deed66b9 100644
--- a/src/language/stats/examine.c
+++ b/src/language/stats/examine.c
@@ -1320,6 +1320,12 @@ cleanup_exploratory_stats (struct examine *cmd)
 		  stat->destroy (stat);
 		}
 
+              if (es[v].shapiro_wilk)
+                {
+                  stat = &es[v].shapiro_wilk->parent.parent;
+                  stat->destroy (stat);
+                }
+
 	      os = &es[v].trimmed_mean->parent;
 	      stat = &os->parent;
 	      stat->destroy (stat);