diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2017-06-08 20:49:04 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2017-06-08 20:49:04 (GMT) |
| commit | f019737860823b97cfde68d64a5175fa21c3a967 (patch) | |
| tree | 4d35715ffe1b03509114be1eb4aad8fa6f8446af /generic/tclDictObj.c | |
| parent | 7bf7c6e7d90d4b7913115508c91115db89868d48 (diff) | |
| parent | aa9f62da23ab5e38de116429abb7fcfcc0504c4c (diff) | |
| download | tcl-f019737860823b97cfde68d64a5175fa21c3a967.zip tcl-f019737860823b97cfde68d64a5175fa21c3a967.tar.gz tcl-f019737860823b97cfde68d64a5175fa21c3a967.tar.bz2 | |
Make read and write operations on Tcl_Var handles available in tclInt API.
(This will be useful for tclquadcode, and it addresses a basic omission in Tcl's API that made working with Tcl_Vars rather more specialized than it was ever really intended to be. However, this also closes off the part of the API that was not reasonably usable by ordinary external code; LVT indices require too deep an entanglement into Tcl's implementation.)
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); } |