diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-10-16 12:50:31 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-10-16 12:50:31 (GMT) |
| commit | d8f4373aee18fbfa3fc2dded2695a66447ba1203 (patch) | |
| tree | 16ef60702e0d4c404a0008d46b6e0a8d14ed5aee /generic | |
| parent | d9ec510026ac166ce0732f7a77573654e7ab2410 (diff) | |
| parent | fe266ed796bfcc848b411947c9529c5eb683dd1f (diff) | |
| download | tcl-tip_400_impl.zip tcl-tip_400_impl.tar.gz tcl-tip_400_impl.tar.bz2 | |
merge trunktip_400_impl
Diffstat (limited to 'generic')
| -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 691fab9..b5c7ac0 100644 --- a/generic/tclDictObj.c +++ b/generic/tclDictObj.c @@ -954,6 +954,7 @@ Tcl_DictObjGet( if (dictPtr->typePtr != &tclDictType) { int result = SetDictFromAny(interp, dictPtr); if (result != TCL_OK) { + *valuePtrPtr = NULL; return result; } } |