Lines Matching refs:pVarname
739 Tcl_Obj *pVarname; /* Name of variable to pass as 2nd arg */
740 unsigned int rnd; /* Random part of pVarname */
746 pVarname = Tcl_NewStringObj("::piLimit_", -1);
747 Tcl_IncrRefCount(pVarname);
749 Tcl_AppendObjToObj(pVarname, Tcl_NewIntObj((int)(rnd&0x7FFFFFFF)));
750 Tcl_ObjSetVar2(p->interp, pVarname, 0, Tcl_NewWideIntObj(*piLimit), 0);
755 Tcl_ListObjAppendElement(0, pEval, pVarname);
760 Tcl_Obj *pLimit = Tcl_ObjGetVar2(p->interp, pVarname, 0, 0);
762 Tcl_UnsetVar(p->interp, Tcl_GetString(pVarname), 0);
766 Tcl_DecrRefCount(pVarname);