diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-10-21 13:12:16 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-10-21 13:12:16 (GMT) |
| commit | 79ff282b020e082cb97f5fccdb151a7beb7ac48c (patch) | |
| tree | 0f0ef17613348e2d9b4790012f7d753056f2ade0 /generic/tclExecute.c | |
| parent | 925bd5794ece33708050a4d1af75ecb118a7d6da (diff) | |
| parent | 9afdf28497341de3c2540fd8a9f8a1e1b6331d1b (diff) | |
| download | tcl-79ff282b020e082cb97f5fccdb151a7beb7ac48c.zip tcl-79ff282b020e082cb97f5fccdb151a7beb7ac48c.tar.gz tcl-79ff282b020e082cb97f5fccdb151a7beb7ac48c.tar.bz2 | |
merge 8.6
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index aee565c..b19754e 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -5784,10 +5784,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); |