diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-05-06 14:16:58 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-05-06 14:16:58 (GMT) |
| commit | 82b2bfa1b8f90760f53b543c9dc7e4fa7c2e3510 (patch) | |
| tree | 36358aa43226fd7fd641c52c55fe0a4ee696297e /generic/tclCmdAH.c | |
| parent | 9e781ffb02d3f384c1123ddcb6f96944cc4dc3ef (diff) | |
| download | tcl-82b2bfa1b8f90760f53b543c9dc7e4fa7c2e3510.zip tcl-82b2bfa1b8f90760f53b543c9dc7e4fa7c2e3510.tar.gz tcl-82b2bfa1b8f90760f53b543c9dc7e4fa7c2e3510.tar.bz2 | |
Remove character/byte value from error-message, only use hex here.
Diffstat (limited to 'generic/tclCmdAH.c')
| -rw-r--r-- | generic/tclCmdAH.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclCmdAH.c b/generic/tclCmdAH.c index 682ba3f..1361f11 100644 --- a/generic/tclCmdAH.c +++ b/generic/tclCmdAH.c @@ -603,7 +603,7 @@ EncodingConvertfromObjCmd( char buf[TCL_INTEGER_SPACE]; sprintf(buf, "%" TCL_Z_MODIFIER "u", result); Tcl_SetObjResult(interp, Tcl_ObjPrintf("unexpected byte at index %" - TCL_Z_MODIFIER "u: '%c' (\\x%X)", result, UCHAR(bytesPtr[result]), UCHAR(bytesPtr[result]))); + TCL_Z_MODIFIER "u: '\\x%X'", result, UCHAR(bytesPtr[result]))); Tcl_SetErrorCode(interp, "TCL", "ENCODING", "STOPONERROR", buf, NULL); Tcl_DStringFree(&ds); @@ -704,7 +704,7 @@ EncodingConverttoObjCmd( TclUtfToUCS4(&stringPtr[result], &ucs4); sprintf(buf, "%" TCL_Z_MODIFIER "u", result); Tcl_SetObjResult(interp, Tcl_ObjPrintf("unexpected character at index %" - TCL_Z_MODIFIER "u: '%c' (U+%06X)", pos, ucs4, ucs4)); + TCL_Z_MODIFIER "u: 'U+%06X'", pos, ucs4)); Tcl_SetErrorCode(interp, "TCL", "ENCODING", "STOPONERROR", buf, NULL); Tcl_DStringFree(&ds); |