diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-01-27 16:53:35 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-01-27 16:53:35 (GMT) |
| commit | 75cb3e25d6840c30ddc08ac50b61e772d236f857 (patch) | |
| tree | 45ba6dec4e63540baa5cf3af736ffc297b34d722 /generic/tclListObj.c | |
| parent | 1ed443d5c08e7a7cb65c6dabcd959c8b4f3cb51d (diff) | |
| download | tcl-75cb3e25d6840c30ddc08ac50b61e772d236f857.zip tcl-75cb3e25d6840c30ddc08ac50b61e772d236f857.tar.gz tcl-75cb3e25d6840c30ddc08ac50b61e772d236f857.tar.bz2 | |
Almost complete (at least the API)
Diffstat (limited to 'generic/tclListObj.c')
| -rw-r--r-- | generic/tclListObj.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclListObj.c b/generic/tclListObj.c index 3f8c308..3f32447 100644 --- a/generic/tclListObj.c +++ b/generic/tclListObj.c @@ -1472,7 +1472,7 @@ Tcl_Obj * TclLsetFlat( Tcl_Interp *interp, /* Tcl interpreter. */ Tcl_Obj *listPtr, /* Pointer to the list being modified. */ - int indexCount, /* Number of index args. */ + size_t indexCount, /* Number of index args. */ Tcl_Obj *const indexArray[], /* Index args. */ Tcl_Obj *valuePtr) /* Value arg to 'lset' or NULL to 'lpop'. */ @@ -1551,8 +1551,8 @@ TclLsetFlat( } indexArray++; - if (index > (size_t)elemCount - || (valuePtr == NULL && index >= (size_t)elemCount)) { + if (index > elemCount + || (valuePtr == NULL && index >= elemCount)) { /* ...the index points outside the sublist. */ if (interp != NULL) { Tcl_SetObjResult(interp, Tcl_ObjPrintf( |