diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-04-05 04:47:52 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-04-05 04:47:52 (GMT) |
| commit | 543bde3f267b817f06c56f74d3480c691866ecb1 (patch) | |
| tree | e542ef53f829700969740db4e9d1f5b3e9a4a845 /generic/tclOO.c | |
| parent | d9bef75f08c6f69d631963242bdd1b887f8cb093 (diff) | |
| parent | 096c6ef84ff367ccee30eb44d9833fe3f61c45cc (diff) | |
| download | tcl-543bde3f267b817f06c56f74d3480c691866ecb1.zip tcl-543bde3f267b817f06c56f74d3480c691866ecb1.tar.gz tcl-543bde3f267b817f06c56f74d3480c691866ecb1.tar.bz2 | |
Merge 9.0
Diffstat (limited to 'generic/tclOO.c')
| -rw-r--r-- | generic/tclOO.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclOO.c b/generic/tclOO.c index b4c739e..64f769c 100644 --- a/generic/tclOO.c +++ b/generic/tclOO.c @@ -2556,7 +2556,7 @@ TclOOInvokeObject( * (PRIVATE_METHOD), or a *really* private * context (any other value; conventionally * 0). */ - size_t objc, /* Number of arguments. */ + Tcl_Size objc, /* Number of arguments. */ Tcl_Obj *const *objv) /* Array of argument objects. It is assumed * that the name of the method to invoke will * be at index 1. */ @@ -2627,7 +2627,7 @@ int TclOOObjectCmdCore( Object *oPtr, /* The object being invoked. */ Tcl_Interp *interp, /* The interpreter containing the object. */ - size_t objc, /* How many arguments are being passed in. */ + Tcl_Size objc, /* How many arguments are being passed in. */ Tcl_Obj *const *objv, /* The array of arguments. */ int flags, /* Whether this is an invocation through the * public or the private command interface. */ @@ -2648,7 +2648,7 @@ TclOOObjectCmdCore( * processing. */ - if (objc + 1 < 3) { + if (objc < 2) { flags |= FORCE_UNKNOWN; methodNamePtr = NULL; goto noMapping; |