diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-06-09 11:17:31 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-06-09 11:17:31 (GMT) |
| commit | b2cdb696756be3886cea0a57a48a127eb1dfc2f7 (patch) | |
| tree | 089b94034365cfbe2d43ffc1f6e84758deec94f3 /generic/tclDictObj.c | |
| parent | 3953f1d3559fd1e965529a563193b0232ddcaabb (diff) | |
| parent | 9858231309132643a953411c3305a979d329a248 (diff) | |
| download | tcl-b2cdb696756be3886cea0a57a48a127eb1dfc2f7.zip tcl-b2cdb696756be3886cea0a57a48a127eb1dfc2f7.tar.gz tcl-b2cdb696756be3886cea0a57a48a127eb1dfc2f7.tar.bz2 | |
merge trunk
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 d0450e3..729f4b8 100644 --- a/generic/tclDictObj.c +++ b/generic/tclDictObj.c @@ -3557,7 +3557,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; @@ -3640,8 +3640,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); } |