diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-12-26 15:04:16 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-12-26 15:04:16 (GMT) |
commit | 59eeb967a221a65eafeceea7460f438892396ef7 (patch) | |
tree | 4f2796040b1c60486b26aa2ac3853f95d971c685 /generic/tclIndexObj.c | |
parent | 50b5581156fef0c05550efc25526d3ffeac13523 (diff) | |
download | tcl-59eeb967a221a65eafeceea7460f438892396ef7.zip tcl-59eeb967a221a65eafeceea7460f438892396ef7.tar.gz tcl-59eeb967a221a65eafeceea7460f438892396ef7.tar.bz2 |
Many internal int -> size_t increases, so string lengths > 2Gb can be handled correctly in many more places.
Diffstat (limited to 'generic/tclIndexObj.c')
-rw-r--r-- | generic/tclIndexObj.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclIndexObj.c b/generic/tclIndexObj.c index 4897de6..db267de 100644 --- a/generic/tclIndexObj.c +++ b/generic/tclIndexObj.c @@ -1027,7 +1027,7 @@ Tcl_ParseArgsObjv( * being processed, primarily for error * reporting. */ int objc; /* # arguments in objv still to process. */ - int length; /* Number of characters in current argument */ + size_t length; /* Number of characters in current argument */ if (remObjv != NULL) { /* @@ -1279,13 +1279,13 @@ PrintUsage( width = 4; for (infoPtr = argTable; infoPtr->type != TCL_ARGV_END; infoPtr++) { - int length; + size_t length; if (infoPtr->keyStr == NULL) { continue; } length = strlen(infoPtr->keyStr); - if (length > width) { + if (length > (size_t)width) { width = length; } } |