Tcl Source Code

Check-in [eeab23b73b]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Tighten Tcl_SplitList().
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-5-branch
Files: files | file ages | folders
SHA1: eeab23b73bebd9868c57fafbf062101b449c8cb6
User & Date: dgp 2011-05-03 19:07:31
Context
2011-05-05
16:35
Stop generating string rep of dict when converting to list. check-in: 746b228680 user: dgp tags: core-8-5-branch
2011-05-03
19:44
merge 8.5 check-in: 27fd15ce57 user: dgp tags: trunk
19:07
Tighten Tcl_SplitList(). check-in: eeab23b73b user: dgp tags: core-8-5-branch
18:53
Tighten SetListFromAny(). check-in: d711aba568 user: dgp tags: core-8-5-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ChangeLog.

1
2

3
4
5
6
7
8
9
2011-05-03  Don Porter  <[email protected]>


	* generic/tclListObj.c:	Tighten SetListFromAny().
	* generic/tclDictObj.c:	Tighten SetDictFromAny().

2011-05-02  Don Porter  <[email protected]>

	* generic/tclCmdMZ.c:	Revised TclFindElement() interface.  The
	* generic/tclDictObj.c:	final argument had been bracePtr, the address


>







1
2
3
4
5
6
7
8
9
10
2011-05-03  Don Porter  <[email protected]>

	* generic/tclUtil.c:	Tighten Tcl_SplitList().
	* generic/tclListObj.c:	Tighten SetListFromAny().
	* generic/tclDictObj.c:	Tighten SetDictFromAny().

2011-05-02  Don Porter  <[email protected]>

	* generic/tclCmdMZ.c:	Revised TclFindElement() interface.  The
	* generic/tclDictObj.c:	final argument had been bracePtr, the address

Changes to generic/tclUtil.c.

538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
	argv[i] = p;
	if (literal) {
	    memcpy(p, element, (size_t) elSize);
	    p += elSize;
	    *p = 0;
	    p++;
	} else {
	    TclCopyAndCollapse(elSize, element, p);
	    p += elSize+1;
	}
    }

    argv[i] = NULL;
    *argvPtr = argv;
    *argcPtr = i;
    return TCL_OK;







|
<







538
539
540
541
542
543
544
545

546
547
548
549
550
551
552
	argv[i] = p;
	if (literal) {
	    memcpy(p, element, (size_t) elSize);
	    p += elSize;
	    *p = 0;
	    p++;
	} else {
	    p += 1 + TclCopyAndCollapse(elSize, element, p);

	}
    }

    argv[i] = NULL;
    *argvPtr = argv;
    *argcPtr = i;
    return TCL_OK;