Diff
Not logged in

Differences From Artifact [0e2db9c28d]:

To Artifact [7470f5281a]:


1382
1383
1384
1385
1386
1387
1388
1389
1390
1391
1392


1393
1394
1395
1396
1397
1398
1399
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 {
	    int new;

	    *namePtr = TclCreateLiteral(iPtr, localPtr->name,
		    localPtr->nameLength, &new, /* nsPtr */ NULL, 0, NULL);
	    *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++;