diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-09-06 08:25:18 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-09-06 08:25:18 (GMT) |
| commit | 98dbefe2cc97be5b598d5dbf0287a3b332f121ea (patch) | |
| tree | d0fa65dc119e5eae60511a7f375677bfd209d60b /generic/tclObj.c | |
| parent | b74823229102197226f39d91b52b146826567cf4 (diff) | |
| download | tcl-98dbefe2cc97be5b598d5dbf0287a3b332f121ea.zip tcl-98dbefe2cc97be5b598d5dbf0287a3b332f121ea.tar.gz tcl-98dbefe2cc97be5b598d5dbf0287a3b332f121ea.tar.bz2 | |
Additiona patch/suggestion from Gustaf. This indeed fixes the crash in oo.test. Looks good to me, so only waiting for final feedback from Gustaf and eventually feedback from other people.
Diffstat (limited to 'generic/tclObj.c')
| -rw-r--r-- | generic/tclObj.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclObj.c b/generic/tclObj.c index 283c8d2..29c8e23 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.c @@ -4220,7 +4220,7 @@ TclSetCmdNameObj( if (objPtr->typePtr == &tclCmdNameType) { resPtr = objPtr->internalRep.twoPtrValue.ptr1; - if (resPtr->cmdPtr == cmdPtr) { + if (resPtr != NULL && resPtr->cmdPtr == cmdPtr) { return; } } |