summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog3
-rw-r--r--generic/tclCompCmdsSZ.c2
2 files changed, 5 insertions, 0 deletions
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);