diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-05-31 12:36:08 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-05-31 12:36:08 (GMT) |
| commit | 22a13bcebec824ec7abbff7ebeca12e81867d618 (patch) | |
| tree | 3a32d57c73396a70110d63ff7877ee5da497ccb3 /generic/tclProc.c | |
| parent | 77a32330396c24db101a0aeed68e0f5d39533a41 (diff) | |
| parent | 878d157876e32cc69a1f17558c101a5560c7e9f9 (diff) | |
| download | tcl-22a13bcebec824ec7abbff7ebeca12e81867d618.zip tcl-22a13bcebec824ec7abbff7ebeca12e81867d618.tar.gz tcl-22a13bcebec824ec7abbff7ebeca12e81867d618.tar.bz2 | |
Merge 9.0. Add Tcl_ProcObjCmd2()
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. */ |