diff options
Diffstat (limited to 'generic/tclProc.c')
| -rw-r--r-- | generic/tclProc.c | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/generic/tclProc.c b/generic/tclProc.c index 49b9967..4413b5f 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -149,6 +149,19 @@ 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. */ |