diff options
| author | dgp <dgp@users.sourceforge.net> | 2018-04-19 01:39:38 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2018-04-19 01:39:38 (GMT) |
| commit | df94eecf119611a2fa8de1abb3abe59269be7550 (patch) | |
| tree | 20e9d2ee27278c74ce9326bb1f54b69767315921 /generic/tclVar.c | |
| parent | 80e5aed49e2cac237b9d91db0f5dc1139c6462dd (diff) | |
| download | tcl-df94eecf119611a2fa8de1abb3abe59269be7550.zip tcl-df94eecf119611a2fa8de1abb3abe59269be7550.tar.gz tcl-df94eecf119611a2fa8de1abb3abe59269be7550.tar.bz2 | |
An [array set] from a dict can only take shortcuts when the dict is "pure",
that is, has no string rep.
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 e540c49..d4e5339 100644 --- a/generic/tclVar.c +++ b/generic/tclVar.c @@ -3411,7 +3411,7 @@ TclArraySet( * Install the contents of the dictionary or list into the array. */ - if (arrayElemObj->typePtr == &tclDictType) { + if (arrayElemObj->typePtr == &tclDictType && arrayElemObj->bytes == NULL) { Tcl_Obj *keyPtr, *valuePtr; Tcl_DictSearch search; int done; |