diff options
| author | sebres <sebres@users.sourceforge.net> | 2025-02-08 13:40:32 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2025-02-08 13:40:32 (GMT) |
| commit | d15b99669ee6a7cfcc12ef109255c7de3be8fba1 (patch) | |
| tree | dddd7898427be650fd3750791acc96b4e390363c /generic/tclBasic.c | |
| parent | 3d5fe1e294ddf9d7aac4d650fe11a4236679af61 (diff) | |
| download | tcl-d15b99669ee6a7cfcc12ef109255c7de3be8fba1.zip tcl-d15b99669ee6a7cfcc12ef109255c7de3be8fba1.tar.gz tcl-d15b99669ee6a7cfcc12ef109255c7de3be8fba1.tar.bz2 | |
amend to [5a28eecf3519c645]: reset cmpPtr->clientData (it must be not cmpPtr, since cmpPtr->proc is not InvokeObjectCommand anymore)
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 3b757bb..6c73ed0 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -1131,7 +1131,7 @@ Tcl_CreateInterp(void) cmdPtr->cmdEpoch = 0; cmdPtr->compileProc = cmdInfoPtr->compileProc; cmdPtr->proc = NULL; - cmdPtr->clientData = cmdPtr; + cmdPtr->clientData = NULL; cmdPtr->objProc = cmdInfoPtr->objProc; cmdPtr->objClientData = NULL; cmdPtr->deleteProc = NULL; @@ -2946,7 +2946,7 @@ TclCreateObjCommandInNs( cmdPtr->objProc = proc; cmdPtr->objClientData = clientData; cmdPtr->proc = NULL; - cmdPtr->clientData = cmdPtr; + cmdPtr->clientData = NULL; cmdPtr->deleteProc = deleteProc; cmdPtr->deleteData = clientData; cmdPtr->flags = 0; |