diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-05-23 12:00:59 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-05-23 12:00:59 (GMT) |
| commit | 6dfbae1ff150ae6c82c44c7a19e3d8657c15ba1e (patch) | |
| tree | 23ec4c8be538373c27c4f9e1cf458b985d983e65 /generic/tclStringObj.c | |
| parent | 927ed085bda46ac11e95658f5a532e21fd9cf68f (diff) | |
| parent | 6bce591e1e7185c259f56514222025f0ac271dbe (diff) | |
| download | tcl-6dfbae1ff150ae6c82c44c7a19e3d8657c15ba1e.zip tcl-6dfbae1ff150ae6c82c44c7a19e3d8657c15ba1e.tar.gz tcl-6dfbae1ff150ae6c82c44c7a19e3d8657c15ba1e.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'generic/tclStringObj.c')
| -rw-r--r-- | generic/tclStringObj.c | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index 967fdd0..980bf22 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -1,9 +1,9 @@ /* * tclStringObj.c -- * - * This file contains functions that implement string operations on Tcl - * objects. Some string operations work with UTF-8 encoding forms. - * Functions that require knowledge of the width of each character, + * This file contains functions that implement string operations on Tcl + * objects. Some string operations work with UTF-8 encoding forms. + * Functions that require knowledge of the width of each character, * such as indexing, operate on fixed width encoding forms such as UTF-32. * * Conceptually, a string is a sequence of Unicode code points. Internally @@ -15,10 +15,10 @@ * numChars, but we don't store the fixed form encoding (unless * Tcl_GetUnicode is explicitly called). * - * The String object type stores one or both formats. The default - * behavior is to store UTF-8. Once UTF-16/UTF32 is calculated, it is - * stored in the internal rep for future access (without an additional - * O(n) cost). + * The String object type stores one or both formats. The default + * behavior is to store UTF-8. Once UTF-16/UTF32 is calculated, it is + * stored in the internal rep for future access (without an additional + * O(n) cost). * * To allow many appends to be done to an object without constantly * reallocating space, we allocate double the space and use the @@ -2219,7 +2219,7 @@ Tcl_AppendFormatToObj( if (Tcl_IsShared(appendObj)) { Tcl_Panic("%s called with shared object", "Tcl_AppendFormatToObj"); } - TclGetStringFromObj(appendObj, &originalLength); + (void)TclGetStringFromObj(appendObj, &originalLength); limit = TCL_SIZE_MAX - originalLength; /* @@ -2760,7 +2760,7 @@ Tcl_AppendFormatToObj( numDigits = 1; } TclNewObj(pure); - Tcl_SetObjLength(pure, numDigits); + Tcl_SetObjLength(pure, (Tcl_Size)numDigits); bytes = TclGetString(pure); toAppend = length = numDigits; while (numDigits--) { |