diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-08-09 16:48:30 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-08-09 16:48:30 (GMT) |
| commit | fec32bb50c597bfbb21ad55211339355034f6d55 (patch) | |
| tree | 4e7a78d7c41a35f4d96f8bd72ecdabf1c0704a6b /generic | |
| parent | dddbd100aedbc995c1a203715479978f79e82ba6 (diff) | |
| download | tcl-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.c | 3 |
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; } |