From: John Darrington <john@darrington.wattle.id.au>
Date: Sat, 3 Mar 2012 10:49:22 +0000 (+0100)
Subject: Categoricals.c: Call payload->destroy inside categoricals_done
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=665a2cafacdb038478c614b040958b5f81cb7548;p=pspp

Categoricals.c: Call payload->destroy inside categoricals_done
---

diff --git a/src/math/categoricals.c b/src/math/categoricals.c
index d4d4324370..5aeb7e213c 100644
--- a/src/math/categoricals.c
+++ b/src/math/categoricals.c
@@ -575,6 +575,8 @@ categoricals_done (const struct categoricals *cat_)
 	      const double bin = categoricals_get_code_for_case (cat, x, iv->ccase); \
 	      iap->enc_sum [x - iap->base_subscript_short] += bin * iv->cc;
 	    }
+	  if (cat->payload && cat->payload->destroy)
+	    cat->payload->destroy (cat->aux1, cat->aux2, iv->user_data);
 	}
     }