diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-06-15 15:12:27 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-06-15 15:12:27 (GMT) |
| commit | 474c08922f5e9eb3699fba6cf236e4fde61ae390 (patch) | |
| tree | 7fb9b5027c98ed1af18a1092b18391f87b837fa7 /generic/tclOOCall.c | |
| parent | c23518984f1b61e136d4e57f9554c5f8d3c1d26a (diff) | |
| download | tcl-474c08922f5e9eb3699fba6cf236e4fde61ae390.zip tcl-474c08922f5e9eb3699fba6cf236e4fde61ae390.tar.gz tcl-474c08922f5e9eb3699fba6cf236e4fde61ae390.tar.bz2 | |
(experimental) TclOO > 2**31 args
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..5558ab2 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_1) { + 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); } |