diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-07-07 17:00:01 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-07-07 17:00:01 (GMT) |
| commit | 276fee0021d4a330665cee2e7d874ee4ffecf35b (patch) | |
| tree | 32f4ad77fd9a6fc3dc2317b1a33b45460a9c2882 | |
| parent | 9b9795105f38a92c875964cb6913cd3d30ae2b38 (diff) | |
| download | tcl-276fee0021d4a330665cee2e7d874ee4ffecf35b.zip tcl-276fee0021d4a330665cee2e7d874ee4ffecf35b.tar.gz tcl-276fee0021d4a330665cee2e7d874ee4ffecf35b.tar.bz2 | |
Fully fix old bug [a16752c252] that has been only partially fixed until now
to support legacy tclcompiler binaries. That no longer makes sense for Tcl 9.
| -rw-r--r-- | generic/tclBasic.c | 21 |
1 files changed, 1 insertions, 20 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 8c9b717..456b6ad 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -2226,27 +2226,8 @@ Tcl_CreateObjCommand( if (!isNew) { cmdPtr = Tcl_GetHashValue(hPtr); - /* Command already exists. */ - - /* - * [***] This is wrong. See Tcl Bug a16752c252. - * However, this buggy behavior is kept under particular - * circumstances to accommodate deployed binaries of the - * "tclcompiler" program. http://sourceforge.net/projects/tclpro/ - * that crash if the bug is fixed. - */ - - if (cmdPtr->objProc == TclInvokeStringCommand - && cmdPtr->clientData == clientData - && cmdPtr->deleteData == clientData - && cmdPtr->deleteProc == deleteProc) { - cmdPtr->objProc = proc; - cmdPtr->objClientData = clientData; - return (Tcl_Command) cmdPtr; - } - /* - * Otherwise, we delete the old command. Be careful to preserve any + * Command already exists; delete it. Be careful to preserve any * existing import links so we can restore them down below. That way, * you can redefine a command and its import status will remain * intact. |