diff options
| author | hobbs <hobbs> | 2001-09-13 19:33:19 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2001-09-13 19:33:19 (GMT) |
| commit | 9a352222760ae6d61363bc210544fccd7f4fdba5 (patch) | |
| tree | 585de60d2cf1588965591dd54cc2d738c780fb0a | |
| parent | 6941fda78ba55436eea71d52b07f216b318135e9 (diff) | |
| download | tcl-9a352222760ae6d61363bc210544fccd7f4fdba5.zip tcl-9a352222760ae6d61363bc210544fccd7f4fdba5.tar.gz tcl-9a352222760ae6d61363bc210544fccd7f4fdba5.tar.bz2 | |
* generic/tclUtf.c (Tcl_UtfPrev): corrected to return the proper
location when the middle of a UTF-8 byte was passed in.
[Bug #450504]
| -rw-r--r-- | ChangeLog | 6 | ||||
| -rw-r--r-- | generic/tclUtf.c | 5 |
2 files changed, 7 insertions, 4 deletions
@@ -1,3 +1,9 @@ +2001-09-13 Jeff Hobbs <jeffh@ActiveState.com> + + * generic/tclUtf.c (Tcl_UtfPrev): corrected to return the proper + location when the middle of a UTF-8 byte was passed in. + [Bug #450504] + 2001-09-13 Andreas Kupries <andreas_kupries@users.sourceforge.net> * tests/ioCmd.test: Changed the computation of the result for diff --git a/generic/tclUtf.c b/generic/tclUtf.c index c25a255..172b9ec 100644 --- a/generic/tclUtf.c +++ b/generic/tclUtf.c @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclUtf.c,v 1.11.2.1 2001/07/16 23:14:13 hobbs Exp $ + * RCS: @(#) $Id: tclUtf.c,v 1.11.2.2 2001/09/13 19:33:19 hobbs Exp $ */ #include "tclInt.h" @@ -672,9 +672,6 @@ Tcl_UtfPrev(str, start) break; } if (byte >= 0xC0) { - if (totalBytes[byte] != i + 1) { - break; - } return (char *) look; } look--; |