diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-07-26 11:29:37 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-07-26 11:29:37 (GMT) |
| commit | b8117727ea202b0bdb4566ec994df5a4faaf93d8 (patch) | |
| tree | dcd62775c6b1aba50d8f758edd6c18f36132d767 /generic/tclOOCall.c | |
| parent | 862ae1266cd494baaed59be9a1d74b66de7eaa6a (diff) | |
| parent | 033b9b29141f7f3bed61e089654387e8c3059678 (diff) | |
| download | tcl-b8117727ea202b0bdb4566ec994df5a4faaf93d8.zip tcl-b8117727ea202b0bdb4566ec994df5a4faaf93d8.tar.gz tcl-b8117727ea202b0bdb4566ec994df5a4faaf93d8.tar.bz2 | |
Rebase to 8.7
Diffstat (limited to 'generic/tclOOCall.c')
| -rw-r--r-- | generic/tclOOCall.c | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/generic/tclOOCall.c b/generic/tclOOCall.c index 52de1b8..85ca995 100644 --- a/generic/tclOOCall.c +++ b/generic/tclOOCall.c @@ -371,11 +371,7 @@ TclOOInvokeContext( * Run the method implementation. */ - if (mPtr->typePtr->version < TCL_OO_METHOD_VERSION_2) { - return (mPtr->typePtr->callProc)(mPtr->clientData, interp, - (Tcl_ObjectContext) contextPtr, objc, objv); - } - return ((Tcl_MethodCallProc2 *)(void *)(mPtr->typePtr->callProc))(mPtr->clientData, interp, + return (mPtr->typePtr->callProc)(mPtr->clientData, interp, (Tcl_ObjectContext) contextPtr, objc, objv); } |