summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-08-09 16:48:30 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-08-09 16:48:30 (GMT)
commitfec32bb50c597bfbb21ad55211339355034f6d55 (patch)
tree4e7a78d7c41a35f4d96f8bd72ecdabf1c0704a6b /generic
parentdddbd100aedbc995c1a203715479978f79e82ba6 (diff)
downloadtcl-fec32bb50c597bfbb21ad55211339355034f6d55.zip
tcl-fec32bb50c597bfbb21ad55211339355034f6d55.tar.gz
tcl-fec32bb50c597bfbb21ad55211339355034f6d55.tar.bz2
Revised GetCommandSource() can (and thus should) return a normal zero
refcount value.
Diffstat (limited to 'generic')
-rw-r--r--generic/tclBasic.c3
1 files changed, 1 insertions, 2 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index 6542726..9755a21 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -3357,7 +3357,7 @@ CancelEvalProc(
*
* This function returns a Tcl_Obj with the full source string for the
* command. This insures that traces get a correct NUL-terminated command
- * string. The Tcl_Obj has refCount==1.
+ * string.
*----------------------------------------------------------------------
*/
@@ -3392,7 +3392,6 @@ GetCommandSource(
if (objPtr == NULL) {
objPtr = Tcl_NewListObj(objc, objv);
}
- Tcl_IncrRefCount(objPtr);
return objPtr;
}