Tcl Source Code

Check-in [7dad8a3e54]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

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

Overview
Comment:Fix comment inaccuracy.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | tip-429
Files: files | file ages | folders
SHA1: 7dad8a3e54d12669f17c2ee5341a6b12d7992665
User & Date: ferrieux 2014-08-05 22:10:58
Context
2014-08-19
20:35
merge trunk Closed-Leaf check-in: 3455770a8f user: ferrieux tags: tip-429
2014-08-05
22:10
Fix comment inaccuracy. check-in: 7dad8a3e54 user: ferrieux tags: tip-429
18:20
More aggressive constant folding in [string cat]. Thanks AndreasK for kicking. check-in: 15f9b0abea user: ferrieux tags: tip-429
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclCompCmdsSZ.c.

285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
    /* Trivial case, no arg */

    if (numWords<2) {
	PushStringLiteral(envPtr, "");
	return TCL_OK;
    }
	
    /* General case: issue CONCAT1's (by chunks of 255 if needed), folding
       contiguous constants along the way */

    numArgs = 0;
    folded = NULL;
    wordTokenPtr = TokenAfter(parsePtr->tokenPtr);
    for (i = 1; i < numWords; i++) {
	obj = Tcl_NewObj();






|







285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
    /* Trivial case, no arg */

    if (numWords<2) {
	PushStringLiteral(envPtr, "");
	return TCL_OK;
    }
	
    /* General case: issue CONCAT1's (by chunks of 254 if needed), folding
       contiguous constants along the way */

    numArgs = 0;
    folded = NULL;
    wordTokenPtr = TokenAfter(parsePtr->tokenPtr);
    for (i = 1; i < numWords; i++) {
	obj = Tcl_NewObj();