diff options
author | dgp <dgp@noemail.net> | 2011-05-03 19:07:31 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2011-05-03 19:07:31 (GMT) |
commit | 27b8fc2b2893db6af259bb789953306b445f532f (patch) | |
tree | aa9286b82b13d27db707ed00e08566b561e65be7 /generic/tclUtil.c | |
parent | ba0e79841724d5a91580f9fa44cb5cf27cf358a9 (diff) | |
download | tcl-27b8fc2b2893db6af259bb789953306b445f532f.zip tcl-27b8fc2b2893db6af259bb789953306b445f532f.tar.gz tcl-27b8fc2b2893db6af259bb789953306b445f532f.tar.bz2 |
Tighten Tcl_SplitList().
FossilOrigin-Name: eeab23b73bebd9868c57fafbf062101b449c8cb6
Diffstat (limited to 'generic/tclUtil.c')
-rw-r--r-- | generic/tclUtil.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/generic/tclUtil.c b/generic/tclUtil.c index 1e10465..bd543b0 100644 --- a/generic/tclUtil.c +++ b/generic/tclUtil.c @@ -542,8 +542,7 @@ Tcl_SplitList( *p = 0; p++; } else { - TclCopyAndCollapse(elSize, element, p); - p += elSize+1; + p += 1 + TclCopyAndCollapse(elSize, element, p); } } |