Tcl Source Code

Artifact a7f42f185af8866e172691e1f6c06da5e0ddb7fb8c828a78d2fffe7b67a912a5:

Attachment "b6afa33737.diff" to ticket [b6afa33737] added by chrstphrchvz 2022-02-19 13:49:38. (unpublished)

---

diff --git generic/tclInt.h generic/tclInt.h
index 1954a13e9..89ce8f038 100644
--- generic/tclInt.h
+++ generic/tclInt.h
@@ -4316,7 +4316,7 @@ MODULE_SCOPE void	TclDbInitNewObj(Tcl_Obj *objPtr, const char *file,
 	(objPtr)->bytes	 = tclEmptyStringRep; \
 	(objPtr)->length = 0; \
     } else { \
-	(objPtr)->bytes = (char *) ckalloc((len) + 1); \
+	(objPtr)->bytes = (char *) ckalloc((unsigned int)(len) + 1U); \
 	memcpy((objPtr)->bytes, (bytePtr), (len)); \
 	(objPtr)->bytes[len] = '\0'; \
 	(objPtr)->length = (len); \