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