diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-03-01 21:59:23 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-03-01 21:59:23 (GMT) |
commit | 0fefbc629fd43067499307e94978d8ab95fa9f74 (patch) | |
tree | 4e690c542fe0e68904ad3becdb422d4c521991cb /generic/tclVar.c | |
parent | f4c192b1b8852d61c12689fd891918197b21cd85 (diff) | |
parent | 921a0bbbfb177411e3fe27f4c4654909fd599859 (diff) | |
download | tcl-0fefbc629fd43067499307e94978d8ab95fa9f74.zip tcl-0fefbc629fd43067499307e94978d8ab95fa9f74.tar.gz tcl-0fefbc629fd43067499307e94978d8ab95fa9f74.tar.bz2 |
Merge 8.7
Diffstat (limited to 'generic/tclVar.c')
-rw-r--r-- | generic/tclVar.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclVar.c b/generic/tclVar.c index 972e1f6..c457be7 100644 --- a/generic/tclVar.c +++ b/generic/tclVar.c @@ -3976,7 +3976,7 @@ ArraySetCmd( */ arrayElemObj = objv[2]; - if (arrayElemObj->typePtr == &tclDictType && arrayElemObj->bytes == NULL) { + if (TclHasIntRep(arrayElemObj, &tclDictType) && arrayElemObj->bytes == NULL) { Tcl_Obj *keyPtr, *valuePtr; Tcl_DictSearch search; int done; |