diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-07-14 15:44:53 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-07-14 15:44:53 (GMT) |
| commit | 91c060ce823f97838cb5ef520600d9b63e13a027 (patch) | |
| tree | 8b0b3380a5b52082c642d7a87176835798385665 | |
| parent | 393e14cb3ddbf32f99e5c62cf4bbfe2962d4624d (diff) | |
| download | tcl-91c060ce823f97838cb5ef520600d9b63e13a027.zip tcl-91c060ce823f97838cb5ef520600d9b63e13a027.tar.gz tcl-91c060ce823f97838cb5ef520600d9b63e13a027.tar.bz2 | |
'result' variable should be 'int', not 'ListSizeT'
| -rw-r--r-- | generic/tclListObj.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclListObj.c b/generic/tclListObj.c index 03e88e5..019ed39 100644 --- a/generic/tclListObj.c +++ b/generic/tclListObj.c @@ -2701,7 +2701,8 @@ TclLsetFlat( /* Index args. */ Tcl_Obj *valueObj) /* Value arg to 'lset' or NULL to 'lpop'. */ { - ListSizeT index, result, len; + ListSizeT index, len; + int result; Tcl_Obj *subListObj, *retValueObj; Tcl_Obj *pendingInvalidates[10]; Tcl_Obj **pendingInvalidatesPtr = pendingInvalidates; |