1388     Tcl_Obj *varValuePtr;  local
1398     varValuePtr = Tcl_SetVar2Ex(interp, part1, part2, valuePtr, flags);
1401     if (varValuePtr == NULL) {
1404     return TclGetString(varValuePtr);
1828     register Tcl_Obj *varValuePtr;  local
1834     varValuePtr = TclPtrGetVar(interp, varPtr, arrayPtr, part1, part2, flags);
1836     if (varValuePtr == NULL) {
1850     if (Tcl_IsShared(varValuePtr)) {
1851 	varValuePtr = Tcl_DuplicateObj(varValuePtr);
1854     if (varValuePtr->typePtr == &tclWideIntType) {
1856 	TclGetWide(wide,varValuePtr);
1857 	Tcl_SetWideIntObj(varValuePtr, wide + Tcl_LongAsWide(incrAmount));
1858     } else if (varValuePtr->typePtr == &tclIntType) {
1859 	i = varValuePtr->internalRep.longValue;
1860 	Tcl_SetIntObj(varValuePtr, i + incrAmount);
1866 	if (Tcl_GetWideIntFromObj(interp, varValuePtr, &wide) != TCL_OK) {
1868 		Tcl_DecrRefCount(varValuePtr); /* free unneeded copy */
1874 	    Tcl_SetLongObj(varValuePtr, Tcl_WideAsLong(wide) + incrAmount);
1876 	    Tcl_SetWideIntObj(varValuePtr, wide + Tcl_LongAsWide(incrAmount));
1885 	    varValuePtr, flags);
2600     register Tcl_Obj *varValuePtr = NULL;  local
2611 	varValuePtr = Tcl_ObjGetVar2(interp, objv[1], NULL, TCL_LEAVE_ERR_MSG);
2612 	if (varValuePtr == NULL) {
2630 	    varValuePtr = TclPtrSetVar(interp, varPtr, arrayPtr, part1, NULL,
2632 	    if (varValuePtr == NULL) {
2637     Tcl_SetObjResult(interp, varValuePtr);
2666     Tcl_Obj *varValuePtr, *newValuePtr;  local
2685 	    varValuePtr = Tcl_NewObj();
2686 	    newValuePtr = Tcl_ObjSetVar2(interp, objv[1], NULL, varValuePtr,
2689 		Tcl_DecrRefCount(varValuePtr); /* free unneeded object */
2726 	varValuePtr = TclPtrGetVar(interp, varPtr, arrayPtr, part1, NULL,
2733 	if (varValuePtr == NULL) {
2741 	    varValuePtr = Tcl_NewObj();
2743 	} else if (Tcl_IsShared(varValuePtr)) {
2744 	    varValuePtr = Tcl_DuplicateObj(varValuePtr);
2752 	if (varValuePtr->typePtr != &tclListType) {
2753 	    int result = tclListType.setFromAnyProc(interp, varValuePtr);
2756 		    Tcl_DecrRefCount(varValuePtr); /* free unneeded obj. */
2761 	listRepPtr = (List *) varValuePtr->internalRep.twoPtrValue.ptr1;
2799 	Tcl_InvalidateStringRep(varValuePtr);
2808 	            varValuePtr, TCL_LEAVE_ERR_MSG);
2811 		Tcl_DecrRefCount(varValuePtr); /* free unneeded obj */
3863     Tcl_Obj *varValuePtr;  local
3917 	    varValuePtr = TclPtrSetVar(interp, varPtr, arrayPtr, varName, NULL,
3919 	    if (varValuePtr == NULL) {