diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-03-17 12:04:05 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-03-17 12:04:05 (GMT) |
| commit | 9d25ea9cd7a4e93d8870ddcb15b4677e5d908e2e (patch) | |
| tree | 3dc363761df05c92caaa06963e5afd91579af5e2 /generic/tclEncoding.c | |
| parent | b51e777fe970a9ffcf0919f7262a6d474aeeaf2b (diff) | |
| parent | 15849c859a2ac4cde3f65a071a4b8c47f3f2add0 (diff) | |
| download | tcl-9d25ea9cd7a4e93d8870ddcb15b4677e5d908e2e.zip tcl-9d25ea9cd7a4e93d8870ddcb15b4677e5d908e2e.tar.gz tcl-9d25ea9cd7a4e93d8870ddcb15b4677e5d908e2e.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclEncoding.c')
| -rw-r--r-- | generic/tclEncoding.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclEncoding.c b/generic/tclEncoding.c index d994f10..2198c33 100644 --- a/generic/tclEncoding.c +++ b/generic/tclEncoding.c @@ -2330,7 +2330,7 @@ UtfToUtfProc( dstEnd = dst + dstLen - TCL_UTF_MAX; for (numChars = 0; src < srcEnd && numChars <= charLimit; numChars++) { - if ((src > srcClose) && (!TclUCS4Complete(src, srcEnd - src))) { + if ((src > srcClose) && (!Tcl_UtfCharComplete(src, srcEnd - src))) { /* * If there is more string to follow, this will ensure that the * last UTF-8 character in the source buffer hasn't been cut off. @@ -2360,7 +2360,7 @@ UtfToUtfProc( *dst++ = 0; *chPtr = 0; /* reset surrogate handling */ src += 2; - } else if (!TclUCS4Complete(src, srcEnd - src)) { + } else if (!Tcl_UtfCharComplete(src, srcEnd - src)) { /* * Always check before using TclUtfToUCS4. Not doing can so * cause it run beyond the end of the buffer! If we happen such an |