summaryrefslogtreecommitdiffstats
path: root/generic/tclCompCmds.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2014-12-03 23:46:51 (GMT)
committerdgp <dgp@users.sourceforge.net>2014-12-03 23:46:51 (GMT)
commit886a7575564f8e4e164cb67dff4554778650868e (patch)
treeac0a41d118498b63c10377280ba4f664903ff7fe /generic/tclCompCmds.c
parent51acb4e23f6c50b6cd0029ab6503034ce76bea05 (diff)
parent4c172f0d7b93eab8a18f90506049970fc39cf06c (diff)
downloadtcl-886a7575564f8e4e164cb67dff4554778650868e.zip
tcl-886a7575564f8e4e164cb67dff4554778650868e.tar.gz
tcl-886a7575564f8e4e164cb67dff4554778650868e.tar.bz2
[0c043a175] backport fix from trunk.
Diffstat (limited to 'generic/tclCompCmds.c')
-rw-r--r--generic/tclCompCmds.c2
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) {
/*