diff options
author | dkf <dkf@noemail.net> | 2012-10-16 13:06:35 (GMT) |
---|---|---|
committer | dkf <dkf@noemail.net> | 2012-10-16 13:06:35 (GMT) |
commit | f16b53468a97122999e455ad59f01743db5b322b (patch) | |
tree | d1a8f23e68e26a9d7617f5e2d7d40349e53f1470 /generic/tclDictObj.c | |
parent | dc6209bca64f070577af3b0d13032ff78de62c0d (diff) | |
parent | 608fe2d63050ce077e08e5ac030ee70ff240aaef (diff) | |
download | tcl-f16b53468a97122999e455ad59f01743db5b322b.zip tcl-f16b53468a97122999e455ad59f01743db5b322b.tar.gz tcl-f16b53468a97122999e455ad59f01743db5b322b.tar.bz2 |
merge trunk
FossilOrigin-Name: 1196fa37267475bf99e2d6942b3875cd2167575f
Diffstat (limited to 'generic/tclDictObj.c')
-rw-r--r-- | generic/tclDictObj.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclDictObj.c b/generic/tclDictObj.c index b64b776..d1087b2 100644 --- a/generic/tclDictObj.c +++ b/generic/tclDictObj.c @@ -975,6 +975,7 @@ Tcl_DictObjGet( if (dictPtr->typePtr != &tclDictType) { int result = SetDictFromAny(interp, dictPtr); if (result != TCL_OK) { + *valuePtrPtr = NULL; return result; } } |