diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-07-15 02:33:11 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-07-15 02:33:11 (GMT) |
| commit | b136b0307e6b079262352c8541c019519fb34f6e (patch) | |
| tree | 3f4878fc78a893a712ae3c9cb2b2967545b6e520 | |
| parent | 10f81d78ff4d5f5931412700726ce05d14d02fad (diff) | |
| download | tcl-b136b0307e6b079262352c8541c019519fb34f6e.zip tcl-b136b0307e6b079262352c8541c019519fb34f6e.tar.gz tcl-b136b0307e6b079262352c8541c019519fb34f6e.tar.bz2 | |
One of the validity checks for the "cmdName" type is to see if the
resolved command has been deleted by checking for the CMD_IS_DELETED flag.
Only one thing sets this flag -- Tcl_DeleteCommandFromToken(), and
every time it sets that flag it also bumps the cmdEpoch of the Command
as well. The "cmdName" type is already validating that epoch. It gains
nothing to be checking the CMD_IS_DELETED flag too. Eliminated the
pointless test.
| -rw-r--r-- | generic/tclObj.c | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/generic/tclObj.c b/generic/tclObj.c index 0cd7839..8aaf78e 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.c @@ -4156,7 +4156,6 @@ Tcl_GetCommandFromObj( register Command *cmdPtr = resPtr->cmdPtr; if ((cmdPtr->cmdEpoch == resPtr->cmdEpoch) - && !(cmdPtr->flags & CMD_IS_DELETED) && (interp == cmdPtr->nsPtr->interp) && !(cmdPtr->nsPtr->flags & NS_DYING)) { register Namespace *refNsPtr = (Namespace *) |