diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-03-24 18:12:30 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-03-24 18:12:30 (GMT) |
| commit | a43fa652d934e4f093e7a19f35813d7569ec4405 (patch) | |
| tree | 2536a016ec971d9a0c61591b75a0e339fbc721d5 | |
| parent | 1fb9fe8141488d50dedf7b01f34d7392f1d8997a (diff) | |
| download | tcl-a43fa652d934e4f093e7a19f35813d7569ec4405.zip tcl-a43fa652d934e4f093e7a19f35813d7569ec4405.tar.gz tcl-a43fa652d934e4f093e7a19f35813d7569ec4405.tar.bz2 | |
Remove hacked exception for bug [a16752c252]. Should be fixed by then in "tclcompiler". Taken over from "novem".
| -rw-r--r-- | generic/tclBasic.c | 19 |
1 files changed, 1 insertions, 18 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 9b57e2c..01fa74e 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -2553,24 +2553,7 @@ TclCreateObjCommandInNs( cmdPtr = Tcl_GetHashValue(hPtr); /* - * [***] 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. |