diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-09-02 12:11:01 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-09-02 12:11:01 (GMT) |
| commit | 2bd794f7cc85201d24a257dff0b649c9dd1eb0a5 (patch) | |
| tree | 7754802e4bd11708a3c967883846c3930f57ed4b /generic/tclObj.c | |
| parent | 3b2cb79ab18e9506dfb66e2786a7ee04dd30a780 (diff) | |
| download | tcl-2bd794f7cc85201d24a257dff0b649c9dd1eb0a5.zip tcl-2bd794f7cc85201d24a257dff0b649c9dd1eb0a5.tar.gz tcl-2bd794f7cc85201d24a257dff0b649c9dd1eb0a5.tar.bz2 | |
Proposed patch for [d4e7780ca1681cd095dbd81fe264feff75c988f7|d4e7780ca1], by Gustaf Neumann
Diffstat (limited to 'generic/tclObj.c')
| -rw-r--r-- | generic/tclObj.c | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/generic/tclObj.c b/generic/tclObj.c index 628c3a7..661ab48 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.c @@ -4219,7 +4219,10 @@ TclSetCmdNameObj( const char *name; if (objPtr->typePtr == &tclCmdNameType) { - return; + resPtr = objPtr->internalRep.twoPtrValue.ptr1; + if (resPtr->cmdPtr == cmdPtr) { + return; + } } cmdPtr->refCount++; @@ -4397,7 +4400,9 @@ SetCmdNameFromAny( cmdPtr->refCount++; resPtr = objPtr->internalRep.twoPtrValue.ptr1; if ((objPtr->typePtr == &tclCmdNameType) - && resPtr && (resPtr->refCount == 1)) { + && resPtr != NULL + && (resPtr->refCount == 1) + ) { /* * Reuse the old ResolvedCmdName struct instead of freeing it */ |