diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-10-14 19:00:39 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-10-14 19:00:39 (GMT) |
| commit | bd2bdd6f8a4571b486ba30fbf686af3eb82ee6bc (patch) | |
| tree | e4db6f972727d7f790b1241cb383041f47d5b0dc /generic/tclDictObj.c | |
| parent | 787d71bc6d8d517220c6b301345bf816bcecab2f (diff) | |
| download | tcl-bd2bdd6f8a4571b486ba30fbf686af3eb82ee6bc.zip tcl-bd2bdd6f8a4571b486ba30fbf686af3eb82ee6bc.tar.gz tcl-bd2bdd6f8a4571b486ba30fbf686af3eb82ee6bc.tar.bz2 | |
Bug 357650: Better fix, which helps for all Tcl_DictObjGet() calls in Tcl's source code.
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 8f3ce3a..b066d46 100644 --- a/generic/tclDictObj.c +++ b/generic/tclDictObj.c @@ -941,6 +941,7 @@ Tcl_DictObjGet( if (dictPtr->typePtr != &tclDictType) { int result = SetDictFromAny(interp, dictPtr); if (result != TCL_OK) { + *valuePtrPtr = NULL; return result; } } |