diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-08-21 21:33:18 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-08-21 21:33:18 (GMT) |
commit | e0b98db0d71593f6141779d06994084aa3a005a5 (patch) | |
tree | b565bd9bd619c52905eee333c2efdf5b6e160ea5 /generic/tclOOCall.c | |
parent | daf1875e0170f7414a01a4c2e77cbab54f1349c9 (diff) | |
parent | 916d72ec1ce61ebd585a78c6a9565f5c49bb8d24 (diff) | |
download | tcl-e0b98db0d71593f6141779d06994084aa3a005a5.zip tcl-e0b98db0d71593f6141779d06994084aa3a005a5.tar.gz tcl-e0b98db0d71593f6141779d06994084aa3a005a5.tar.bz2 |
Merge 8.7
Diffstat (limited to 'generic/tclOOCall.c')
-rw-r--r-- | generic/tclOOCall.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/generic/tclOOCall.c b/generic/tclOOCall.c index 3bd96a2..6e834cb 100644 --- a/generic/tclOOCall.c +++ b/generic/tclOOCall.c @@ -369,7 +369,11 @@ TclOOInvokeContext( * Run the method implementation. */ - return mPtr->typePtr->callProc(mPtr->clientData, interp, + 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, (Tcl_ObjectContext) contextPtr, objc, objv); } |