diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-04-04 14:43:09 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-04-04 14:43:09 (GMT) |
commit | 8050513a3135b2822a0d60bf2e42f4618cb3c015 (patch) | |
tree | 0c008b236551515c94588242fe64973bde1b2cdb /generic/tclOO.c | |
parent | 8b11f08b3cb7e5e92dd7812df02e8419e49be96d (diff) | |
parent | 226bb13f4e093299c9d975ebd16c6cacb4af6356 (diff) | |
download | tcl-8050513a3135b2822a0d60bf2e42f4618cb3c015.zip tcl-8050513a3135b2822a0d60bf2e42f4618cb3c015.tar.gz tcl-8050513a3135b2822a0d60bf2e42f4618cb3c015.tar.bz2 |
Merge 8.7
Diffstat (limited to 'generic/tclOO.c')
-rw-r--r-- | generic/tclOO.c | 23 |
1 files changed, 11 insertions, 12 deletions
diff --git a/generic/tclOO.c b/generic/tclOO.c index 559cf0b..4dbe668 100644 --- a/generic/tclOO.c +++ b/generic/tclOO.c @@ -1184,19 +1184,18 @@ ObjectNamespaceDeleted( * freed memory. */ - if (oPtr->command != NULL) { - if (((Command *) oPtr->command)->flags && CMD_DYING) { - /* - * The command is already (being) deleted. Proceed to clean up the the namespace, - */ - } else { - /* - * The namespace must have been deleted directly. Delete the command - * as well. - */ + if (((Command *) oPtr->command)->flags && CMD_DYING) { + /* + * Something has already started the command deletion process. We can + * go ahead and clean up the the namespace, + */ + } else { + /* + * The namespace must have been deleted directly. Delete the command + * as well. + */ - Tcl_DeleteCommandFromToken(oPtr->fPtr->interp, oPtr->command); - } + Tcl_DeleteCommandFromToken(oPtr->fPtr->interp, oPtr->command); } if (oPtr->myclassCommand) { |