summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2011-12-07 06:13:15 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2011-12-07 06:13:15 (GMT)
commitffa41c2677af95d32514e51ef9bf3cf2cdfcf29b (patch)
treef4e779cd6f25f7b6b39d43494356842461421a06 /generic
parentd526e52856c864ba6af3ae8a0b83fc2a9faa06cf (diff)
downloadtcl-ffa41c2677af95d32514e51ef9bf3cf2cdfcf29b.zip
tcl-ffa41c2677af95d32514e51ef9bf3cf2cdfcf29b.tar.gz
tcl-ffa41c2677af95d32514e51ef9bf3cf2cdfcf29b.tar.bz2
[Bug 3444754] string tolower \u01c5 is wrong
Diffstat (limited to 'generic')
-rw-r--r--generic/tclUniData.c7
1 files changed, 4 insertions, 3 deletions
diff --git a/generic/tclUniData.c b/generic/tclUniData.c
index 43edac1..8d8efd1 100644
--- a/generic/tclUniData.c
+++ b/generic/tclUniData.c
@@ -751,7 +751,7 @@ static CONST int groups[] = {
7602306, -3964863, 9830530, -6389630, 6881345, 6750273, 6717505,
2588737, 6619201, 6651969, 6783041, -3178366, 6914113, 6848577,
-5341054, 6979649, -4259710, 7012417, 7143489, 7110721, 7176257,
- 5, -1834878, 65633, 32931, 65698, 2588802, -3178431, -1834943,
+ 5, -1834878, 65633, 32963, 65698, 2588802, -3178431, -1834943,
-4259775, 353730625, -5341119, 353632321, -354385790, -6389695,
2261057, 2326593, -353337214, -353238910, -353304446, 6881410,
6750338, 6717570, 6619266, 6652034, 6783106, -1385430910, 6848642,
@@ -775,7 +775,8 @@ static CONST int groups[] = {
* Unicode character.
*/
-#define UNICODE_CATEGORY_MASK 0X1F
+#define UNICODE_CATEGORY_MASK 0x1F
+#define UNICODE_OUT_OF_RANGE 0x10000u
enum {
UNASSIGNED,
@@ -817,7 +818,7 @@ enum {
*/
#define GetCaseType(info) (((info) & 0xE0) >> 5)
-#define GetCategory(info) ((info) & 0x1F)
+#define GetCategory(ch) (GetUniCharInfo(ch) & 0x1F)
#define GetDelta(info) (((info) > 0) ? ((info) >> 15) : (~(~((info)) >> 15)))
/*