Differences From Artifact [640140ee94]:

• File generic/tclProc.c — part of check-in [75ceac5253] at 2013-03-07 22:26:34 on branch dgp-literal-reform — Restore the "find-only" mode of TclCreateLiteral(). (user: dgp size: 87123)

To Artifact [0e2db9c28d]:

• File generic/tclProc.c — part of check-in [b64e393eac] at 2013-03-08 01:37:32 on branch dgp-literal-reform — Restore the optional return of a (LiteralEntry *) by TclCreateLiteral so that refCounts can be incremented only when circumstances warrant. (user: dgp size: 87129)

1385
1386
1387
1388
1389
1390
1391
1392
1393
1394
1395
1396
1397
1398
1399

    while (localPtr) {
	if (TclIsVarTemporary(localPtr)) {
	    *namePtr = NULL;
	} else {
	    int new;

	    *namePtr = TclCreateLiteral(iPtr, localPtr->name,
		    localPtr->nameLength, &new, /* nsPtr */ NULL, 0);
	    Tcl_IncrRefCount(*namePtr);
	}

	if (i < numArgs) {
	    varPtr->flags = (localPtr->flags & VAR_IS_ARGS);
	    varPtr->value.objPtr = localPtr->defValuePtr;
	    varPtr++;

|

1385
1386
1387
1388
1389
1390
1391
1392
1393
1394
1395
1396
1397
1398
1399

    while (localPtr) {
	if (TclIsVarTemporary(localPtr)) {
	    *namePtr = NULL;
	} else {
	    int new;

	    *namePtr = TclCreateLiteral(iPtr, localPtr->name,
		    localPtr->nameLength, &new, /* nsPtr */ NULL, 0, NULL);
	    Tcl_IncrRefCount(*namePtr);
	}

	if (i < numArgs) {
	    varPtr->flags = (localPtr->flags & VAR_IS_ARGS);
	    varPtr->value.objPtr = localPtr->defValuePtr;
	    varPtr++;