diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-06-30 11:31:15 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-06-30 11:31:15 (GMT) |
| commit | 83253ae734a523f4c548f386cc890d065d6d3d1e (patch) | |
| tree | 14e267e8832ede3e11e6f3901fc876168c3ca3ca /generic/tclStringObj.c | |
| parent | 3de10aae37fac8bfdeca16f87a6fc3f65d8cde7f (diff) | |
| download | tcl-83253ae734a523f4c548f386cc890d065d6d3d1e.zip tcl-83253ae734a523f4c548f386cc890d065d6d3d1e.tar.gz tcl-83253ae734a523f4c548f386cc890d065d6d3d1e.tar.bz2 | |
Fix [b79df322a9]: Tcl_NewUnicodeObj truncates strings
Diffstat (limited to 'generic/tclStringObj.c')
| -rw-r--r-- | generic/tclStringObj.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index 13d91d9..86b3937 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -564,7 +564,7 @@ Tcl_NewUnicodeObj( String *stringPtr = (String *)ckalloc((offsetof(String, unicode) + sizeof(unsigned short)) + numChars * sizeof(unsigned short)); - memcpy(stringPtr->unicode, unicode, numChars); + memcpy(stringPtr->unicode, unicode, numChars * sizeof(unsigned short)); stringPtr->unicode[numChars] = 0; stringPtr->numChars = numChars; |