summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2016-03-17 12:24:05 (GMT)
committerdgp <dgp@users.sourceforge.net>2016-03-17 12:24:05 (GMT)
commit3126fa7b7c8fbc9d56eab9916693e0641cdd25de (patch)
tree99f1c7727524dd7f8cb932c866a5a8a8316ee396
parentba96ade25a6b00ff4945834090a8de52b1147204 (diff)
parentb1d25860c469bbaccef10bb6a596fb93d397b2b0 (diff)
downloadtcl-3126fa7b7c8fbc9d56eab9916693e0641cdd25de.zip
tcl-3126fa7b7c8fbc9d56eab9916693e0641cdd25de.tar.gz
tcl-3126fa7b7c8fbc9d56eab9916693e0641cdd25de.tar.bz2
[1a25fdfec6] Enable compile of commands like [variable ${ns}::v].
-rw-r--r--generic/tclCompCmdsGR.c4
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);