From bb7ee39d95f814300c0965014259a6d7049d8507 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Fri, 11 Mar 2022 19:30:42 +0000
Subject: Revise the loop logic to be more correct, more clear, and more
 consisten with other branches.

---
 generic/tclBinary.c | 4 ++--
 1 file 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);
     }
 
-- 
cgit v0.12