diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-03-15 11:52:09 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-03-15 11:52:09 (GMT) |
| commit | 6e657cfb83595bc0481d833b708554a44e2142fb (patch) | |
| tree | 1ca1c944beacd08dc50a55b0e6cf69a1c9d2e739 /generic/tclEncoding.c | |
| parent | 57bf9fe12f8859459556da1de27dbdef24048a68 (diff) | |
| parent | 185b0d14932f4cc8503e6dd235da5bd90ebc777c (diff) | |
| download | tcl-6e657cfb83595bc0481d833b708554a44e2142fb.zip tcl-6e657cfb83595bc0481d833b708554a44e2142fb.tar.gz tcl-6e657cfb83595bc0481d833b708554a44e2142fb.tar.bz2 | |
Implement TIP #575: Switchable Tcl_UtfCharComplete()/Tcl_UtfNext()/Tcl_UtfPrev()
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 c4ef159..ea2d6fa 100644 --- a/generic/tclEncoding.c +++ b/generic/tclEncoding.c @@ -2323,7 +2323,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. @@ -2353,7 +2353,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 |