diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-06-13 12:18:16 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-06-13 12:18:16 (GMT) |
| commit | 6168d91b0ee4f13f66e4d74b189caee52f9487da (patch) | |
| tree | 36294aa6561aff40db4d2ae02c43e54f97e5bf92 /generic/tclDictObj.c | |
| parent | 16f3f234e8500f5f71e4d9321689a8bdf9efc809 (diff) | |
| parent | bbcbd64e3beffa016fdd4c8b74d2ea5f22b7dd94 (diff) | |
| download | tcl-6168d91b0ee4f13f66e4d74b189caee52f9487da.zip tcl-6168d91b0ee4f13f66e4d74b189caee52f9487da.tar.gz tcl-6168d91b0ee4f13f66e4d74b189caee52f9487da.tar.bz2 | |
merge core-8-6-branch
Diffstat (limited to 'generic/tclDictObj.c')
| -rw-r--r-- | generic/tclDictObj.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclDictObj.c b/generic/tclDictObj.c index 87fb333..d15255f 100644 --- a/generic/tclDictObj.c +++ b/generic/tclDictObj.c @@ -3535,7 +3535,7 @@ TclDictWithFinish( * If the dictionary variable doesn't exist, drop everything silently. */ - dictPtr = TclPtrGetVar(interp, varPtr, arrayPtr, part1Ptr, part2Ptr, + dictPtr = TclPtrGetVarIdx(interp, varPtr, arrayPtr, part1Ptr, part2Ptr, TCL_LEAVE_ERR_MSG, index); if (dictPtr == NULL) { return TCL_OK; @@ -3618,8 +3618,8 @@ TclDictWithFinish( * Write back the outermost dictionary to the variable. */ - if (TclPtrSetVar(interp, varPtr, arrayPtr, part1Ptr, part2Ptr, dictPtr, - TCL_LEAVE_ERR_MSG, index) == NULL) { + if (TclPtrSetVarIdx(interp, varPtr, arrayPtr, part1Ptr, part2Ptr, + dictPtr, TCL_LEAVE_ERR_MSG, index) == NULL) { if (allocdict) { TclDecrRefCount(dictPtr); } |