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
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;

	/*
	 * 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);
	    /* TclReleaseLiteral calls Tcl_DecrRefCount for us */
	    TclReleaseLiteral(interp, objPtr);
	    } else {
		Tcl_DecrRefCount(objPtr);
	    }
	}
    }
    ckfree(localCachePtr);
}

static void
InitLocalCache(