diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-12-27 22:39:00 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-12-27 22:39:00 (GMT) |
| commit | 524f229cceff8a756ebab2f34ed961c2741bb4ca (patch) | |
| tree | e15f10278f87c4f12a9d36a79e8cf9a38b0cde19 /generic/tclEncoding.c | |
| parent | 08a4d8c8913d7486b0cb1c906a9ad71d70b40ad8 (diff) | |
| parent | 4c97b25f81b1f2cbabe7f084e86e539bcbdbc21a (diff) | |
| download | tcl-524f229cceff8a756ebab2f34ed961c2741bb4ca.zip tcl-524f229cceff8a756ebab2f34ed961c2741bb4ca.tar.gz tcl-524f229cceff8a756ebab2f34ed961c2741bb4ca.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclEncoding.c')
| -rw-r--r-- | generic/tclEncoding.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclEncoding.c b/generic/tclEncoding.c index 45c08da..c211dfb 100644 --- a/generic/tclEncoding.c +++ b/generic/tclEncoding.c @@ -1249,11 +1249,11 @@ Tcl_ExternalToUtfDStringEx( /* Caller wants error message on failure */ if (result != TCL_OK && interp != NULL) { char buf[TCL_INTEGER_SPACE]; - snprintf(buf, sizeof(buf), "%" TCL_SIZE_MODIFIER "u", nBytesProcessed); + snprintf(buf, sizeof(buf), "%" TCL_SIZE_MODIFIER "d", nBytesProcessed); Tcl_SetObjResult( interp, Tcl_ObjPrintf("unexpected byte sequence starting at index %" - TCL_SIZE_MODIFIER "u: '\\x%02X'", + TCL_SIZE_MODIFIER "d: '\\x%02X'", nBytesProcessed, UCHAR(srcStart[nBytesProcessed]))); Tcl_SetErrorCode( @@ -1582,7 +1582,7 @@ Tcl_UtfToExternalDStringEx( int ucs4; char buf[TCL_INTEGER_SPACE]; Tcl_UtfToUniChar(&srcStart[nBytesProcessed], &ucs4); - snprintf(buf, sizeof(buf), "%" TCL_SIZE_MODIFIER "u", nBytesProcessed); + snprintf(buf, sizeof(buf), "%" TCL_SIZE_MODIFIER "d", nBytesProcessed); Tcl_SetObjResult( interp, Tcl_ObjPrintf( |