diff options
| author | fvogel <fvogelnew1@free.fr> | 2016-03-21 21:32:29 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2016-03-21 21:32:29 (GMT) |
| commit | 3b21ae36fc18189a6cc850c1db2dc0e93e7129b6 (patch) | |
| tree | cbcb9fac8b6662a217fd223f5504c2c2315ed447 /generic/tclCompCmdsGR.c | |
| parent | addefaba01a0a32c7659cd2ae09bd805957cc800 (diff) | |
| parent | 349c1fd2676793625cc0037a11d5989b0a591397 (diff) | |
| download | tcl-bug_f1253530cd.zip tcl-bug_f1253530cd.tar.gz tcl-bug_f1253530cd.tar.bz2 | |
Merged trunkbug_f1253530cd
Diffstat (limited to 'generic/tclCompCmdsGR.c')
| -rw-r--r-- | generic/tclCompCmdsGR.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/tclCompCmdsGR.c b/generic/tclCompCmdsGR.c index e674fb0..87ed745 100644 --- a/generic/tclCompCmdsGR.c +++ b/generic/tclCompCmdsGR.c @@ -2966,10 +2966,12 @@ IndexTailVarIfKnown( } else { full = 0; lastTokenPtr = varTokenPtr + n; - if (!TclWordKnownAtCompileTime(lastTokenPtr, tailPtr)) { + + if (lastTokenPtr->type != TCL_TOKEN_TEXT) { Tcl_DecrRefCount(tailPtr); return -1; } + Tcl_SetStringObj(tailPtr, lastTokenPtr->start, lastTokenPtr->size); } tailName = TclGetStringFromObj(tailPtr, &len); |