diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-03-08 21:14:07 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-03-08 21:14:07 (GMT) |
| commit | 53d74314391e46506521ca790914b8610611c095 (patch) | |
| tree | 4517f8a27ba2445ab4595caef1296aa1264047d1 /generic/tclCompile.c | |
| parent | 01a81e3c75a12eacf36e83cd3cc53fb4eb554e2a (diff) | |
| download | tcl-53d74314391e46506521ca790914b8610611c095.zip tcl-53d74314391e46506521ca790914b8610611c095.tar.gz tcl-53d74314391e46506521ca790914b8610611c095.tar.bz2 | |
3607372 Correct literal refcounting.bug_3607372
Diffstat (limited to 'generic/tclCompile.c')
| -rw-r--r-- | generic/tclCompile.c | 2 |
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; } |