From aed8684173b0fe3f9627c9ff7343d176dfd1afa7 Mon Sep 17 00:00:00 2001 From: dgp Date: Tue, 3 May 2011 19:07:31 +0000 Subject: Tighten Tcl_SplitList(). --- ChangeLog | 1 + generic/tclUtil.c | 3 +-- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index cab340e..7ced1a7 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,6 @@ 2011-05-03 Don Porter + * 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); } } -- cgit v0.12