summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2023-02-16 21:50:53 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2023-02-16 21:50:53 (GMT)
commit45796af99db14504cedf31f0336e108930482ebf (patch)
tree2ab23d68db683df8b5bced7a4bd250d57e148173 /generic
parent6bcdbfbf84232c936c8561526e8f3dccb216a56f (diff)
downloadtcl-45796af99db14504cedf31f0336e108930482ebf.zip
tcl-45796af99db14504cedf31f0336e108930482ebf.tar.gz
tcl-45796af99db14504cedf31f0336e108930482ebf.tar.bz2
complete fix
Diffstat (limited to 'generic')
-rw-r--r--generic/tclEncoding.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclEncoding.c b/generic/tclEncoding.c
index fe78e03..1d3a3eb 100644
--- a/generic/tclEncoding.c
+++ b/generic/tclEncoding.c
@@ -2417,14 +2417,14 @@ UtfToUtfProc(
result = TCL_CONVERT_MULTIBYTE;
break;
}
- if (((flags & TCL_ENCODING_STRICT) == TCL_ENCODING_STRICT) || (flags & ENCODING_FAILINDEX)) {
- result = TCL_CONVERT_SYNTAX;
- break;
- }
+ if (((flags & TCL_ENCODING_STRICT) == TCL_ENCODING_STRICT) || (flags & ENCODING_FAILINDEX)) {
+ result = TCL_CONVERT_SYNTAX;
+ break;
+ }
}
char chbuf[2];
chbuf[0] = UCHAR(*src++); chbuf[1] = 0;
- Tcl_UtfToUniChar(chbuf, &ch);
+ TclUtfToUCS4(chbuf, &ch);
dst += Tcl_UniCharToUtf(ch, dst);
} else {
int low;