2663     DictMapStorage *storagePtr;  in DictMapNRCmd()  local
2685     storagePtr = (DictMapStorage *)TclStackAlloc(interp, sizeof(DictMapStorage));  in DictMapNRCmd()
2686     if (Tcl_DictObjFirst(interp, objv[2], &storagePtr->search, &keyObj,  in DictMapNRCmd()
2688 	TclStackFree(interp, storagePtr);  in DictMapNRCmd()
2698 	TclStackFree(interp, storagePtr);  in DictMapNRCmd()
2701     TclNewObj(storagePtr->accumulatorObj);  in DictMapNRCmd()
2703     storagePtr->keyVarObj = varv[0];  in DictMapNRCmd()
2704     storagePtr->valueVarObj = varv[1];  in DictMapNRCmd()
2705     storagePtr->scriptObj = objv[3];  in DictMapNRCmd()
2713     Tcl_IncrRefCount(storagePtr->accumulatorObj);  in DictMapNRCmd()
2714     Tcl_IncrRefCount(storagePtr->keyVarObj);  in DictMapNRCmd()
2715     Tcl_IncrRefCount(storagePtr->valueVarObj);  in DictMapNRCmd()
2716     Tcl_IncrRefCount(storagePtr->scriptObj);  in DictMapNRCmd()
2724     if (Tcl_ObjSetVar2(interp, storagePtr->keyVarObj, NULL, keyObj,  in DictMapNRCmd()
2729     if (Tcl_ObjSetVar2(interp, storagePtr->valueVarObj, NULL, valueObj,  in DictMapNRCmd()
2740     TclNRAddCallback(interp, DictMapLoopCallback, storagePtr, NULL,NULL,NULL);  in DictMapNRCmd()
2741     return TclNREvalObjEx(interp, storagePtr->scriptObj, 0,  in DictMapNRCmd()
2749     TclDecrRefCount(storagePtr->keyVarObj);  in DictMapNRCmd()
2750     TclDecrRefCount(storagePtr->valueVarObj);  in DictMapNRCmd()
2751     TclDecrRefCount(storagePtr->scriptObj);  in DictMapNRCmd()
2752     TclDecrRefCount(storagePtr->accumulatorObj);  in DictMapNRCmd()
2753     Tcl_DictObjDone(&storagePtr->search);  in DictMapNRCmd()
2754     TclStackFree(interp, storagePtr);  in DictMapNRCmd()
2765     DictMapStorage *storagePtr = (DictMapStorage *)data[0];  in DictMapLoopCallback()  local
2786 	keyObj = Tcl_ObjGetVar2(interp, storagePtr->keyVarObj, NULL,  in DictMapLoopCallback()
2792 	Tcl_DictObjPut(NULL, storagePtr->accumulatorObj, keyObj,  in DictMapLoopCallback()
2800     Tcl_DictObjNext(&storagePtr->search, &keyObj, &valueObj, &done);  in DictMapLoopCallback()
2802 	Tcl_SetObjResult(interp, storagePtr->accumulatorObj);  in DictMapLoopCallback()
2812     if (Tcl_ObjSetVar2(interp, storagePtr->keyVarObj, NULL, keyObj,  in DictMapLoopCallback()
2818     if (Tcl_ObjSetVar2(interp, storagePtr->valueVarObj, NULL, valueObj,  in DictMapLoopCallback()
2830     TclNRAddCallback(interp, DictMapLoopCallback, storagePtr, NULL,NULL,NULL);  in DictMapLoopCallback()
2831     return TclNREvalObjEx(interp, storagePtr->scriptObj, 0,  in DictMapLoopCallback()
2839     TclDecrRefCount(storagePtr->keyVarObj);  in DictMapLoopCallback()
2840     TclDecrRefCount(storagePtr->valueVarObj);  in DictMapLoopCallback()
2841     TclDecrRefCount(storagePtr->scriptObj);  in DictMapLoopCallback()
2842     TclDecrRefCount(storagePtr->accumulatorObj);  in DictMapLoopCallback()
2843     Tcl_DictObjDone(&storagePtr->search);  in DictMapLoopCallback()
2844     TclStackFree(interp, storagePtr);  in DictMapLoopCallback()