Differences From 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)

To Artifact [7470f5281a]:

• File generic/tclProc.c — part of check-in [9a1eac84fd] at 2013-03-08 18:49:42 on branch dgp-literal-reform — Simplify the TclCreateLiteral() interface. Save the complexity for within tclLiteral.c where it is needed. (user: dgp size: 87081) [more...]

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

    namePtr = &localCachePtr->varName0;
    varPtr = (Var *) (namePtr + localCt);
    localPtr = procPtr->firstLocalPtr;
    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++;

<
<
|
|

1382
1383
1384
1385
1386
1387
1388


1389
1390
1391
1392
1393
1394
1395
1396
1397

    namePtr = &localCachePtr->varName0;
    varPtr = (Var *) (namePtr + localCt);
    localPtr = procPtr->firstLocalPtr;
    while (localPtr) {
	if (TclIsVarTemporary(localPtr)) {
	    *namePtr = NULL;
	} else {


	    *namePtr = TclCreateLiteral(iPtr,
		    localPtr->name, localPtr->nameLength);
	    Tcl_IncrRefCount(*namePtr);
	}

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