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 | 886a7575564f8e4e164cb67dff4554778650868e (patch) | |
tree | ac0a41d118498b63c10377280ba4f664903ff7fe /generic | |
parent | 51acb4e23f6c50b6cd0029ab6503034ce76bea05 (diff) | |
parent | 4c172f0d7b93eab8a18f90506049970fc39cf06c (diff) | |
download | tcl-886a7575564f8e4e164cb67dff4554778650868e.zip tcl-886a7575564f8e4e164cb67dff4554778650868e.tar.gz tcl-886a7575564f8e4e164cb67dff4554778650868e.tar.bz2 |
[0c043a175] backport fix from trunk.
Diffstat (limited to 'generic')
-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) { /* |