diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-06-07 20:52:04 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-06-07 20:52:04 (GMT) |
commit | bdccbf1c921b2158d107e97cc64b72ab81a05ee5 (patch) | |
tree | d82fc26e19fbe472c50052845459ae65b489f858 /generic/tclProc.c | |
parent | 658859f096755310e84a60fa6af50736a713a399 (diff) | |
parent | a9a2d671a0cbd58a5b99815c650d92c3c652a602 (diff) | |
download | tcl-bdccbf1c921b2158d107e97cc64b72ab81a05ee5.zip tcl-bdccbf1c921b2158d107e97cc64b72ab81a05ee5.tar.gz tcl-bdccbf1c921b2158d107e97cc64b72ab81a05ee5.tar.bz2 |
Merge 9.0
Diffstat (limited to 'generic/tclProc.c')
-rw-r--r-- | generic/tclProc.c | 15 |
1 files changed, 1 insertions, 14 deletions
diff --git a/generic/tclProc.c b/generic/tclProc.c index 4413b5f..5c7702f 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -149,23 +149,10 @@ static const Tcl_ObjType lambdaType = { */ int -Tcl_ProcObjCmd2( - TCL_UNUSED(void *), - Tcl_Interp *interp, /* Current interpreter. */ - size_t objc, /* Number of arguments. */ - Tcl_Obj *const objv[]) /* Argument objects. */ -{ - if (objc > INT_MAX) { - objc = TCL_INDEX_NONE; /* Let Tcl_ProcObjCmd generate Tcl_WrongNumArgs() */ - } - return Tcl_ProcObjCmd(NULL, interp, objc, objv); -} - -int Tcl_ProcObjCmd( TCL_UNUSED(void *), Tcl_Interp *interp, /* Current interpreter. */ - int objc, /* Number of arguments. */ + size_t objc, /* Number of arguments. */ Tcl_Obj *const objv[]) /* Argument objects. */ { Interp *iPtr = (Interp *) interp; |