diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-04-01 09:10:13 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-04-01 09:10:13 (GMT) |
commit | 975d478bfaf46abfe1b34bdbd82dd0dc9556d864 (patch) | |
tree | e8262d3f7f7fd58fc12dbffb53284632ac3a621d /generic/tclCmdAH.c | |
parent | 69fd9623d0fd2d0eea56ab416fcf4b51d0be91dd (diff) | |
download | tcl-975d478bfaf46abfe1b34bdbd82dd0dc9556d864.zip tcl-975d478bfaf46abfe1b34bdbd82dd0dc9556d864.tar.gz tcl-975d478bfaf46abfe1b34bdbd82dd0dc9556d864.tar.bz2 |
More bugfixes (and testcases showing this)
Diffstat (limited to 'generic/tclCmdAH.c')
-rw-r--r-- | generic/tclCmdAH.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCmdAH.c b/generic/tclCmdAH.c index 0c0a4a4..1dfabd2 100644 --- a/generic/tclCmdAH.c +++ b/generic/tclCmdAH.c @@ -678,7 +678,7 @@ EncodingConverttoObjCmd( int ucs4; TclUtfToUCS4(&stringPtr[result], &ucs4); Tcl_SetObjResult(interp, Tcl_ObjPrintf("unexpected character at index %" - TCL_LL_MODIFIER "u: '%1s' (U+%06X)", (long long)pos, &stringPtr[result], ucs4)); + TCL_LL_MODIFIER "u: '%c' (U+%06X)", (long long)pos, ucs4, ucs4)); Tcl_DStringFree(&ds); return TCL_ERROR; } |