From afe83cbf85df2fa657c86e95af1892a567643896 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Fri, 11 Jul 2014 15:44:42 +0000
Subject: [9b352768e6] Plug memleak in INST_DICT_FIRST.

---
 generic/tclExecute.c | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index d8c5935..2f9aac3 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -7474,6 +7474,14 @@ TEBCresume(
 	searchPtr = ckalloc(sizeof(Tcl_DictSearch));
 	if (Tcl_DictObjFirst(interp, dictPtr, searchPtr, &keyPtr,
 		&valuePtr, &done) != TCL_OK) {
+
+	    /*
+	     * dictPtr is no longer on the stack, and we're not
+	     * moving it into the intrep of an iterator.  We need
+	     * to drop the refcount [Tcl Bug 9b352768e6].
+	     */
+
+	    Tcl_DecrRefCount(dictPtr);
 	    ckfree(searchPtr);
 	    TRACE_ERROR(interp);
 	    goto gotError;
-- 
cgit v0.12