diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-05-02 22:48:20 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-05-02 22:48:20 (GMT) |
| commit | 9501890b6c738830781eebe5d8bdcff2d6a0068c (patch) | |
| tree | 41c12ec8f628659290d41335527e31aca8af99a3 /generic/tclEncoding.c | |
| parent | 9eaf82b745ac07bc55f7238813c449fc5a447cf8 (diff) | |
| download | tcl-9501890b6c738830781eebe5d8bdcff2d6a0068c.zip tcl-9501890b6c738830781eebe5d8bdcff2d6a0068c.tar.gz tcl-9501890b6c738830781eebe5d8bdcff2d6a0068c.tar.bz2 | |
Join test-cases utf-6.93.0 and utf-6.93.1, which MUST give the same answer always for whatever testConstraints.
Fix one invalid use of TclUCS4Complete(), and let TclUtfToUCS4() handle (invalid) 4-byte sequences.
Test-case cleanup (removal of unnecessary quoting)
Diffstat (limited to 'generic/tclEncoding.c')
| -rw-r--r-- | generic/tclEncoding.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclEncoding.c b/generic/tclEncoding.c index 1584de0..5c7aab8 100644 --- a/generic/tclEncoding.c +++ b/generic/tclEncoding.c @@ -2341,7 +2341,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 TclUtfToUniChar. Not doing can so * cause it run beyond the end of the buffer! If we happen such an |