Lines Matching refs:objResultPtr
63 statePtr->objResultPtr = iPtr->objResultPtr;
64 iPtr->objResultPtr = Tcl_NewObj();
65 Tcl_IncrRefCount(iPtr->objResultPtr);
171 Tcl_DecrRefCount(iPtr->objResultPtr);
172 iPtr->objResultPtr = statePtr->objResultPtr;
199 TclDecrRefCount(statePtr->objResultPtr);
331 * interp->objResultPtr is left pointing to the object referenced
334 * old objResultPtr value is decremented. Also, the string result
349 register Tcl_Obj *oldObjResult = iPtr->objResultPtr;
351 iPtr->objResultPtr = objPtr;
404 Tcl_Obj *objResultPtr;
415 objResultPtr = iPtr->objResultPtr;
417 TclInitStringRep(objResultPtr, iPtr->result, length);
430 return iPtr->objResultPtr;
838 register Tcl_Obj *objResultPtr = iPtr->objResultPtr;
840 if (Tcl_IsShared(objResultPtr)) {
841 TclDecrRefCount(objResultPtr);
842 TclNewObj(objResultPtr);
843 Tcl_IncrRefCount(objResultPtr);
844 iPtr->objResultPtr = objResultPtr;
846 if ((objResultPtr->bytes != NULL)
847 && (objResultPtr->bytes != tclEmptyStringRep)) {
848 ckfree((char *) objResultPtr->bytes);
850 objResultPtr->bytes = tclEmptyStringRep;
851 objResultPtr->length = 0;
852 if ((objResultPtr->typePtr != NULL)
853 && (objResultPtr->typePtr->freeIntRepProc != NULL)) {
854 objResultPtr->typePtr->freeIntRepProc(objResultPtr);
856 objResultPtr->typePtr = (Tcl_ObjType *) NULL;