diff options
| author | mig <mig> | 2013-03-20 14:10:04 (GMT) |
|---|---|---|
| committer | mig <mig> | 2013-03-20 14:10:04 (GMT) |
| commit | 5e64cfb104de3edbed8962d00743912eff6cb430 (patch) | |
| tree | 7df68b086b7ff29a3ed218eb2afc5d15fadd6d3e /generic/tclCompile.c | |
| parent | 9cb9608b323ea8a3ad7b675607e4641ac44223a0 (diff) | |
| parent | f771719ac2875a6dafb2c008c34f95476e3bf808 (diff) | |
| download | tcl-5e64cfb104de3edbed8962d00743912eff6cb430.zip tcl-5e64cfb104de3edbed8962d00743912eff6cb430.tar.gz tcl-5e64cfb104de3edbed8962d00743912eff6cb430.tar.bz2 | |
merge trunk
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 bb09f07..0eb2b42 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -2208,7 +2208,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; } |