diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-10-16 13:06:35 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-10-16 13:06:35 (GMT) |
| commit | 7e90ca9d199a4a36d05b93ef6912cccf5da60e6b (patch) | |
| tree | 75ae18fdae899f2350209e619fd1dc779cffa72a /generic/tclDictObj.c | |
| parent | 136930901bce2e674e2133a8cb82bcb7f87b17d3 (diff) | |
| parent | 37f4435517b352b24b20260f00401120be11547b (diff) | |
| download | tcl-7e90ca9d199a4a36d05b93ef6912cccf5da60e6b.zip tcl-7e90ca9d199a4a36d05b93ef6912cccf5da60e6b.tar.gz tcl-7e90ca9d199a4a36d05b93ef6912cccf5da60e6b.tar.bz2 | |
merge trunk
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; } } |