diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-29 10:36:48 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-29 10:36:48 (GMT) |
| commit | 61b19c386be1d6db745953e3c8f0af4238762c22 (patch) | |
| tree | 47dd11893697474f8724181b6b3518852f53826a /generic/tclCmdIL.c | |
| parent | 1462a54867965ef6855d71661edd161255ec2160 (diff) | |
| parent | eea655f8511157d811dc0b7be61de559c52ab81a (diff) | |
| download | tcl-61b19c386be1d6db745953e3c8f0af4238762c22.zip tcl-61b19c386be1d6db745953e3c8f0af4238762c22.tar.gz tcl-61b19c386be1d6db745953e3c8f0af4238762c22.tar.bz2 | |
Merge 9.0
Diffstat (limited to 'generic/tclCmdIL.c')
| -rw-r--r-- | generic/tclCmdIL.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index c53b971..c140574 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -5000,7 +5000,7 @@ int Tcl_LeditObjCmd( TCL_UNUSED(ClientData), Tcl_Interp *interp, /* Current interpreter. */ - int objc, /* Number of arguments. */ + size_t objc, /* Number of arguments. */ Tcl_Obj *const objv[]) /* Argument values. */ { Tcl_Obj *listPtr; /* Pointer to the list being altered. */ @@ -5012,7 +5012,7 @@ Tcl_LeditObjCmd( size_t listLen; size_t numToDelete; - if (objc < 4) { + if (objc + 1 < 5) { Tcl_WrongNumArgs(interp, 1, objv, "listVar first last ?element ...?"); return TCL_ERROR; |