summaryrefslogtreecommitdiffstats
path: root/generic/tclLiteral.c
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2016-09-16 09:09:25 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2016-09-16 09:09:25 (GMT)
commita69fadd5c0c50f03fb746432bd3234f9a4af1c63 (patch)
tree376ef85f00dde3a874599e7344af965c3211e7c9 /generic/tclLiteral.c
parentf26a4a0948cbd769519cf1e79ea027511051b2bd (diff)
parent1dbcf0c93e804523b3eed57e1716fdec5497f31c (diff)
downloadtcl-a69fadd5c0c50f03fb746432bd3234f9a4af1c63.zip
tcl-a69fadd5c0c50f03fb746432bd3234f9a4af1c63.tar.gz
tcl-a69fadd5c0c50f03fb746432bd3234f9a4af1c63.tar.bz2
merge core-8-6-branch
Diffstat (limited to 'generic/tclLiteral.c')
-rw-r--r--generic/tclLiteral.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclLiteral.c b/generic/tclLiteral.c
index 9922cec..49f21f2 100644
--- a/generic/tclLiteral.c
+++ b/generic/tclLiteral.c
@@ -234,7 +234,6 @@ TclCreateLiteral(
*/
TclNewObj(objPtr);
- Tcl_IncrRefCount(objPtr);
if ((flags & LITERAL_ON_HEAP)) {
objPtr->bytes = (char *) bytes;
objPtr->length = length;
@@ -261,6 +260,7 @@ TclCreateLiteral(
globalPtr = ckalloc(sizeof(LiteralEntry));
globalPtr->objPtr = objPtr;
+ Tcl_IncrRefCount(objPtr);
globalPtr->refCount = 1;
globalPtr->nsPtr = nsPtr;
globalPtr->nextPtr = globalTablePtr->buckets[globalHash];