diff options
author | dgp <dgp@users.sourceforge.net> | 2014-12-04 13:02:43 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2014-12-04 13:02:43 (GMT) |
commit | 0a2ac311c1e846784b98690d22c678d68ec117ec (patch) | |
tree | ab140d81370d606143a478454de52c0eff239e5d /generic | |
parent | f12dc54f7578abc9e2d5f625157263ec5a0bc40e (diff) | |
parent | 886a7575564f8e4e164cb67dff4554778650868e (diff) | |
download | tcl-0a2ac311c1e846784b98690d22c678d68ec117ec.zip tcl-0a2ac311c1e846784b98690d22c678d68ec117ec.tar.gz tcl-0a2ac311c1e846784b98690d22c678d68ec117ec.tar.bz2 |
merge 8.5
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) { /* |