diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-08-21 21:31:24 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-08-21 21:31:24 (GMT) |
| commit | 916d72ec1ce61ebd585a78c6a9565f5c49bb8d24 (patch) | |
| tree | f85948163555af276a5455836e70adae4bbc2e75 /generic/tclOOCall.c | |
| parent | 24b5ca41d9555991bca4f35e52f46f57b114d4ec (diff) | |
| parent | 2384f8aa81b8d3ba682e5192baa05a9b02039f3f (diff) | |
| download | tcl-916d72ec1ce61ebd585a78c6a9565f5c49bb8d24.zip tcl-916d72ec1ce61ebd585a78c6a9565f5c49bb8d24.tar.gz tcl-916d72ec1ce61ebd585a78c6a9565f5c49bb8d24.tar.bz2 | |
TIP #630 implementation: TclOO commands > 2^31
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 d265c1a..a9ed6bf 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); } |