Tcl Source Code

Artifact f64d3413fc9292b390b0794cd5e8dbfe02faa4466912f40f83e56d14d0b26db2:

Attachment "usoba.diff" to ticket [9c7557160f] added by chrstphrchvz 2022-02-18 20:07:42. (unpublished)

---

diff --git generic/tclBinary.c generic/tclBinary.c
index 5d317faa2..85d508290 100644
--- generic/tclBinary.c
+++ generic/tclBinary.c
@@ -565,14 +565,14 @@ UpdateStringOfByteArray(
     size = length;
     for (i = 0; i < length && size >= 0; i++) {
 	if ((src[i] == 0) || (src[i] > 127)) {
-	    size++;
+	    size = (int)((unsigned int)size + 1U);
 	}
     }
     if (size < 0) {
 	Tcl_Panic("max size for a Tcl value (%d bytes) exceeded", INT_MAX);
     }
 
-    dst = (char *)ckalloc(size + 1);
+    dst = (char *)ckalloc((unsigned int)size + 1U);
     objPtr->bytes = dst;
     objPtr->length = size;