diff options
| author | dgp <dgp@users.sourceforge.net> | 2014-12-03 23:46:51 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2014-12-03 23:46:51 (GMT) |
| commit | 2f3edeea430639acf634ea4b914dbde65df4739c (patch) | |
| tree | ac0a41d118498b63c10377280ba4f664903ff7fe /generic/tclCompCmds.c | |
| parent | 484de8b9879c4344a7f31bf0940aa2eaf943d30f (diff) | |
| parent | 0c0be357100d28784d29e88ef2af8e61ffd7aeb1 (diff) | |
| download | tcl-2f3edeea430639acf634ea4b914dbde65df4739c.zip tcl-2f3edeea430639acf634ea4b914dbde65df4739c.tar.gz tcl-2f3edeea430639acf634ea4b914dbde65df4739c.tar.bz2 | |
[0c043a175] backport fix from trunk.
Diffstat (limited to 'generic/tclCompCmds.c')
| -rw-r--r-- | generic/tclCompCmds.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c index 809a6c6..2f72263 100644 --- a/generic/tclCompCmds.c +++ b/generic/tclCompCmds.c @@ -4976,7 +4976,7 @@ PushVarName( nameChars = p - varTokenPtr[1].start; elName = p + 1; remainingChars = (varTokenPtr[2].start - p) - 1; - elNameChars = (varTokenPtr[n].start - p) + varTokenPtr[n].size - 2; + elNameChars = (varTokenPtr[n].start-p) + varTokenPtr[n].size - 1; if (remainingChars) { /* |