616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
|
*----------------------------------------------------------------------
*/
void
TclThreadFreeObj(
Tcl_Obj *objPtr)
{
return;
if (objPtr == 0x1c19247) {
Tcl_WriteChars(Tcl_GetStdChannel(TCL_STDOUT), "helloGro", -1);
}
|
<
<
<
<
|
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
|
*----------------------------------------------------------------------
*/
void
TclThreadFreeObj(
Tcl_Obj *objPtr)
{
Cache *cachePtr;
GETCACHE(cachePtr);
/*
* Get this thread's list and push on the free Tcl_Obj.
*/
objPtr->internalRep.twoPtrValue.ptr1 = cachePtr->firstObjPtr;
cachePtr->firstObjPtr = objPtr;
if (cachePtr->numObjects == 0) {
cachePtr->lastPtr = objPtr;
}
cachePtr->numObjects++;
/*
|