Tcl Source Code

Artifact 2a34e71dee25e2f1858bc3fca04720aa960c4d18ac8ca35e95c0c900e82ed801:

Attachment "05ff16e799.diff" to ticket [05ff16e799] added by chrstphrchvz 2022-04-07 19:12:22. (unpublished)

---

diff --git generic/tclStringObj.c generic/tclStringObj.c
index 4afd12ae0..b81e711cb 100644
--- generic/tclStringObj.c
+++ generic/tclStringObj.c
@@ -3341,7 +3341,7 @@ ExtendStringRepWithUnicode(
     }
 
     for (i = 0; i < numChars && size >= 0; i++) {
-	size += Tcl_UniCharToUtf((int) unicode[i], buf);
+	size += (unsigned int)Tcl_UniCharToUtf((int) unicode[i], buf);
     }
     if (size < 0) {
 	Tcl_Panic("max size for a Tcl value (%d bytes) exceeded", INT_MAX);