diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-03-17 12:24:05 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-03-17 12:24:05 (GMT) |
| commit | 63a966a40e845f10d76af23a49673eddaeb7a7e6 (patch) | |
| tree | 99f1c7727524dd7f8cb932c866a5a8a8316ee396 | |
| parent | e5a3264434d1e7f37220e8209ceb766fee43e22b (diff) | |
| parent | d9bd422a8aa21e10a7d0064420dbb9439093ebe9 (diff) | |
| download | tcl-63a966a40e845f10d76af23a49673eddaeb7a7e6.zip tcl-63a966a40e845f10d76af23a49673eddaeb7a7e6.tar.gz tcl-63a966a40e845f10d76af23a49673eddaeb7a7e6.tar.bz2 | |
[1a25fdfec6] Enable compile of commands like [variable ${ns}::v].
| -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); |