diff options
| author | dgp <dgp@users.sourceforge.net> | 2011-05-03 19:07:31 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2011-05-03 19:07:31 (GMT) |
| commit | aed8684173b0fe3f9627c9ff7343d176dfd1afa7 (patch) | |
| tree | aa9286b82b13d27db707ed00e08566b561e65be7 | |
| parent | 7dae77dae8c9aff0ac1739acc19c221f5398a325 (diff) | |
| download | tcl-aed8684173b0fe3f9627c9ff7343d176dfd1afa7.zip tcl-aed8684173b0fe3f9627c9ff7343d176dfd1afa7.tar.gz tcl-aed8684173b0fe3f9627c9ff7343d176dfd1afa7.tar.bz2 | |
Tighten Tcl_SplitList().
| -rw-r--r-- | ChangeLog | 1 | ||||
| -rw-r--r-- | generic/tclUtil.c | 3 |
2 files changed, 2 insertions, 2 deletions
@@ -1,5 +1,6 @@ 2011-05-03 Don Porter <dgp@users.sourceforge.net> + * generic/tclUtil.c: Tighten Tcl_SplitList(). * generic/tclListObj.c: Tighten SetListFromAny(). * generic/tclDictObj.c: Tighten SetDictFromAny(). 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); } } |