diff options
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclBinary.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclBinary.c b/generic/tclBinary.c index c0569a5..8b9d510 100644 --- a/generic/tclBinary.c +++ b/generic/tclBinary.c @@ -566,12 +566,12 @@ UpdateStringOfByteArray( */ size = length; - for (i = 0; i < length && size < INT_MAX; i++) { + for (i = 0; i < length && size <= INT_MAX; i++) { if ((src[i] == 0) || (src[i] > 127)) { size++; } } - if (i < length) { + if (size > INT_MAX) { Tcl_Panic("max size for a Tcl value (%d bytes) exceeded", INT_MAX); } |