Diff
Not logged in

Differences From Artifact [70e9bcb514]:

To Artifact [0b2a34a109]:


1229
1230
1231
1232
1233
1234
1235
1236
1237
1238
1239
1240
1241
1242

1243
1244
1245
1246
1247
1248
1249
1250
1251
1252
1253
{
    int i;
    Tcl_Obj **namePtrPtr = &localCachePtr->varName0;

    for (i = 0; i < localCachePtr->numVars; i++, namePtrPtr++) {
	register Tcl_Obj *objPtr = *namePtrPtr;

	/*
	 * Note that this can be called with interp==NULL, on interp deletion.
	 * In that case, the literal table and objects go away on their own.
	 */

	if (objPtr) {
	    if (interp) {

		TclReleaseLiteral(interp, objPtr);
	    } else {
		Tcl_DecrRefCount(objPtr);
	    }
	}
    }
    ckfree(localCachePtr);
}

static void
InitLocalCache(







<
<
<
<
<

<
>
|
<
<
<







1229
1230
1231
1232
1233
1234
1235





1236

1237
1238



1239
1240
1241
1242
1243
1244
1245
{
    int i;
    Tcl_Obj **namePtrPtr = &localCachePtr->varName0;

    for (i = 0; i < localCachePtr->numVars; i++, namePtrPtr++) {
	register Tcl_Obj *objPtr = *namePtrPtr;






	if (objPtr) {

	    /* TclReleaseLiteral calls Tcl_DecrRefCount for us */
	    TclReleaseLiteral(interp, objPtr);



	}
    }
    ckfree(localCachePtr);
}

static void
InitLocalCache(