diff options
author | dgp <dgp@noemail.net> | 2011-05-03 19:44:49 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2011-05-03 19:44:49 (GMT) |
commit | 9cc29c901f99da24d4f1597154f389278f7f550e (patch) | |
tree | c8649bb795101ff5e75096911bc52b26fda97fc5 /generic/tclUtil.c | |
parent | 23dc738ec7716934eaed226e67985fbe58c6ff1c (diff) | |
parent | 27b8fc2b2893db6af259bb789953306b445f532f (diff) | |
download | tcl-9cc29c901f99da24d4f1597154f389278f7f550e.zip tcl-9cc29c901f99da24d4f1597154f389278f7f550e.tar.gz tcl-9cc29c901f99da24d4f1597154f389278f7f550e.tar.bz2 |
merge 8.5
FossilOrigin-Name: 27fd15ce57c5a1f6d10c897e54094ad2dc269297
Diffstat (limited to 'generic/tclUtil.c')
-rw-r--r-- | generic/tclUtil.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/generic/tclUtil.c b/generic/tclUtil.c index 7baadff..6189d19 100644 --- a/generic/tclUtil.c +++ b/generic/tclUtil.c @@ -179,7 +179,7 @@ TclMaxListLength( * the element is in braces, then *elementPtr will point to the character * after the opening brace and *sizePtr will not include either of the * braces. If there isn't an element in the list, *sizePtr will be zero, - * and both *elementPtr and *termPtr will point just after the last + * and both *elementPtr and *nextPtr will point just after the last * character in the list. If literalPtr is non-NULL, *literalPtr is set * to a boolean value indicating whether the substring returned as * the values of **elementPtr and *sizePtr is the literal value of @@ -550,8 +550,7 @@ Tcl_SplitList( *p = 0; p++; } else { - TclCopyAndCollapse(elSize, element, p); - p += elSize+1; + p += 1 + TclCopyAndCollapse(elSize, element, p); } } |