summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-03-08 21:14:07 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-03-08 21:14:07 (GMT)
commit53d74314391e46506521ca790914b8610611c095 (patch)
tree4517f8a27ba2445ab4595caef1296aa1264047d1
parent01a81e3c75a12eacf36e83cd3cc53fb4eb554e2a (diff)
downloadtcl-53d74314391e46506521ca790914b8610611c095.zip
tcl-53d74314391e46506521ca790914b8610611c095.tar.gz
tcl-53d74314391e46506521ca790914b8610611c095.tar.bz2
3607372 Correct literal refcounting.bug_3607372
-rw-r--r--generic/tclCompile.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c
index 5427759..0e98385 100644
--- a/generic/tclCompile.c
+++ b/generic/tclCompile.c
@@ -2596,7 +2596,7 @@ TclInitByteCodeObj(
codePtr->objArrayPtr[i] = Tcl_NewStringObj(bytes, numBytes);
Tcl_IncrRefCount(codePtr->objArrayPtr[i]);
- Tcl_DecrRefCount(objPtr);
+ TclReleaseLiteral((Tcl_Interp *)iPtr, objPtr);
} else {
codePtr->objArrayPtr[i] = fetched;
}