diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-04-23 13:53:54 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-04-23 13:53:54 (GMT) |
commit | 2ca7ab9af0d59c9907dde3d844e1785d33df4812 (patch) | |
tree | ccf87c04be78a1ca25f1a749079c027c30e914c1 /generic/tclInt.h | |
parent | d016b9e8e12b19aeb60ac6654100f0a3cfdb4b05 (diff) | |
download | tcl-2ca7ab9af0d59c9907dde3d844e1785d33df4812.zip tcl-2ca7ab9af0d59c9907dde3d844e1785d33df4812.tar.gz tcl-2ca7ab9af0d59c9907dde3d844e1785d33df4812.tar.bz2 |
Fix TclUtfNext() macro. Use it in tclTest.c, so such a mistake can be detected next time.
Diffstat (limited to 'generic/tclInt.h')
-rw-r--r-- | generic/tclInt.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 11c9ec8..780ea30 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -4472,7 +4472,7 @@ MODULE_SCOPE void TclDbInitNewObj(Tcl_Obj *objPtr, const char *file, Tcl_UtfPrev(src, start)) #define TclUtfNext(src) \ - ((((unsigned char) *(src)) < 0xC0) ? src + 1 : Tcl_UtfNext(src)) + ((((unsigned char) *(src)) < 0x80) ? src + 1 : Tcl_UtfNext(src)) /* *---------------------------------------------------------------- |