diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2011-12-07 06:13:15 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2011-12-07 06:13:15 (GMT) |
| commit | ffa41c2677af95d32514e51ef9bf3cf2cdfcf29b (patch) | |
| tree | f4e779cd6f25f7b6b39d43494356842461421a06 /generic | |
| parent | d526e52856c864ba6af3ae8a0b83fc2a9faa06cf (diff) | |
| download | tcl-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.c | 7 |
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))) /* |