From c29c6011291530fa0d9f267921fbc93c5e3e0cb6 Mon Sep 17 00:00:00 2001
From: Kevin B Kenny <kennykb@acm.org>
Date: Sat, 6 Aug 2011 16:27:00 +0000
Subject: Plug another memory leak. [Bug 3384840]

---
 ChangeLog             | 4 ++++
 generic/tclAssembly.c | 7 +++++++
 2 files changed, 11 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index 1523872..30568c7 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2011-08-06  Kevin B, Kenny  <kennykb@acm.org>
+
+	* generic/tclAssemnbly.c: Plug another memory leak. [Bug 3384840]
+
 2011-08-05  Kevin B. Kenny  <kennykb@acm.org>
 
 	* generic/tclStrToD.c: Plugged a memory leak in double->string
diff --git a/generic/tclAssembly.c b/generic/tclAssembly.c
index f45ae07..3c23358 100644
--- a/generic/tclAssembly.c
+++ b/generic/tclAssembly.c
@@ -3893,11 +3893,18 @@ BuildExceptionRanges(
 	prevPtr = bbPtr;
     }
 
+    /* Make sure that all catches are closed */
+
     if (catchDepth != 0) {
 	Tcl_Panic("unclosed catch at end of code in "
 		"tclAssembly.c:BuildExceptionRanges, can't happen");
     }
 
+    /* Free temp storage */
+
+    ckfree(catchIndices);
+    ckfree(catches);
+
     return TCL_OK;
 }
 
-- 
cgit v0.12