summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2016-10-20 20:02:19 (GMT)
committerdgp <dgp@users.sourceforge.net>2016-10-20 20:02:19 (GMT)
commit2ab238514bcdab640de8b1805337200932e2cd79 (patch)
treee7ac9d50590c8f56f08d9a2cdb52448c1d726544 /generic
parentd7ad9bc43170b443a5c667ad0338873cebda5ced (diff)
downloadtcl-2ab238514bcdab640de8b1805337200932e2cd79.zip
tcl-2ab238514bcdab640de8b1805337200932e2cd79.tar.gz
tcl-2ab238514bcdab640de8b1805337200932e2cd79.tar.bz2
Repair recently opened memleak.
Diffstat (limited to 'generic')
-rw-r--r--generic/tclExecute.c8
1 files changed, 6 insertions, 2 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index 2ab0277..b9ef582 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -5797,10 +5797,14 @@ TEBCresume(
/* which has result {} which is same as value3Ptr. */
objResultPtr = value3Ptr;
}
- if (objResultPtr != value3Ptr) {
+ if (objResultPtr == value3Ptr) {
/* See [Bug 82e7f67325] */
- TclDecrRefCount(value3Ptr);
+ TclDecrRefCount(OBJ_AT_TOS);
+ OBJ_AT_TOS = value3Ptr;
+ TRACE_APPEND(("\"%.30s\"\n", O2S(value3Ptr)));
+ NEXT_INST_F(1, 0, 0);
}
+ TclDecrRefCount(value3Ptr);
TRACE_APPEND(("\"%.30s\"\n", O2S(objResultPtr)));
NEXT_INST_F(1, 1, 1);