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/tclExecute.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/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index e292537..dd50be0 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -4789,7 +4789,11 @@ TEBCresume( Method *const mPtr = contextPtr->callPtr->chain[newDepth].mPtr; - 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, opnd, objv); + } + return ((Tcl_MethodCallProc2 *)(void *)(mPtr->typePtr->callProc))(mPtr->clientData, interp, (Tcl_ObjectContext) contextPtr, opnd, objv); } |