diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-01-28 21:47:50 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-01-28 21:47:50 (GMT) |
| commit | e16381966055e98a93d0980a01b104ac5c15deea (patch) | |
| tree | d7bac4919fd7b61a8abec91ee036080601072cea /generic/tclDictObj.c | |
| parent | be7f60de2674744ab5c95aee1a15a108b0d4ea74 (diff) | |
| parent | af3406f86c40c78cff50cb5003b8be0eae448d54 (diff) | |
| download | tcl-e16381966055e98a93d0980a01b104ac5c15deea.zip tcl-e16381966055e98a93d0980a01b104ac5c15deea.tar.gz tcl-e16381966055e98a93d0980a01b104ac5c15deea.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclDictObj.c')
| -rw-r--r-- | generic/tclDictObj.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclDictObj.c b/generic/tclDictObj.c index 3875967..9462581 100644 --- a/generic/tclDictObj.c +++ b/generic/tclDictObj.c @@ -173,7 +173,7 @@ const Tcl_ObjType tclDictType = { #define DictGetIntRep(objPtr, dictRepPtr) \ do { \ const Tcl_ObjIntRep *irPtr; \ - irPtr = Tcl_FetchIntRep((objPtr), &tclDictType); \ + irPtr = TclFetchIntRep((objPtr), &tclDictType); \ (dictRepPtr) = irPtr ? irPtr->twoPtrValue.ptr1 : NULL; \ } while (0) @@ -617,7 +617,7 @@ SetDictFromAny( * the conversion from lists to dictionaries. */ - if (Tcl_FetchIntRep(objPtr, &tclListType)) { + if (objPtr->typePtr == &tclListType) { int objc, i; Tcl_Obj **objv; |