From 6f017f71965cb7b4b9be15054f25c0936c3356a9 Mon Sep 17 00:00:00 2001
From: mig <mig>
Date: Tue, 1 Mar 2011 20:02:28 +0000
Subject: fix leaks in throw and unset compilers

---
 ChangeLog               | 3 +++
 generic/tclCompCmdsSZ.c | 2 ++
 2 files changed, 5 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index 4a3a224..3976ccd 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2011-03-01  Miguel Sofer  <msofer@users.sf.net>
 
+	* generic/tclCompCmdsSZ.c (TclCompileThrowCmd)
+	(TclCompileUnsetCmd): fix leaks
+	
 	* generic/tclBasic.c:       This is [Patch 3168398],
 	* generic/tclCompCmdsSZ.c:  Joe Mistachkin's optimisation
 	* generic/tclExecute.c:     of Tip #285
diff --git a/generic/tclCompCmdsSZ.c b/generic/tclCompCmdsSZ.c
index 2f86be1..348098b 100644
--- a/generic/tclCompCmdsSZ.c
+++ b/generic/tclCompCmdsSZ.c
@@ -1863,6 +1863,7 @@ TclCompileThrowCmd(
 
 	    CompileWord(envPtr, msgToken, interp, 2);
 	    TclCompileSyntaxError(interp, envPtr);
+	    Tcl_DecrRefCount(objPtr);
 	    return TCL_OK;
 	}
 	if (len == 0) {
@@ -2586,6 +2587,7 @@ TclCompileUnsetCmd(
 	 * evaluation with reasonable effort, so spill to interpreted version.
 	 */
 
+	TclDecrRefCount(leadingWord);
 	return TCL_ERROR;
     }
     TclDecrRefCount(leadingWord);
-- 
cgit v0.12