diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-04-14 12:05:32 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-04-14 12:05:32 (GMT) |
| commit | a49bab9ee11490728f8fdd17f9fb9180e69f66f5 (patch) | |
| tree | 68bcb25c1a71bee36fe15791351a865b2ab08ca4 /generic/tclStringObj.c | |
| parent | c46a76fa6d448685d76b30806749810dd0a7bf0e (diff) | |
| parent | 13bc6164ae80bf7754d741a93f5a2c6e396ed43d (diff) | |
| download | tcl-a49bab9ee11490728f8fdd17f9fb9180e69f66f5.zip tcl-a49bab9ee11490728f8fdd17f9fb9180e69f66f5.tar.gz tcl-a49bab9ee11490728f8fdd17f9fb9180e69f66f5.tar.bz2 | |
Merge 8.7
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 63b833f..33f84bd 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -4799,7 +4799,7 @@ ExtendStringRepWithUnicode( } for (i = 0; i < numChars && size >= 0; i++) { - size += TclUtfCount(unicode[i]); + size += (unsigned int)TclUtfCount(unicode[i]); } if (size < 0) { Tcl_Panic("max size for a Tcl value (%d bytes) exceeded", INT_MAX); |