summaryrefslogtreecommitdiffstats
path: root/generic/tclUniData.c
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2011-12-07 06:17:24 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2011-12-07 06:17:24 (GMT)
commit2bb69f505c4c33c902681ef4459bdd3ef0556c3b (patch)
tree2e12f4c41ce061b9de71414557343d4df9f1ff4c /generic/tclUniData.c
parenta1f9677689cd74c4bee813b801b190e6c8553d84 (diff)
parentffa41c2677af95d32514e51ef9bf3cf2cdfcf29b (diff)
downloadtcl-2bb69f505c4c33c902681ef4459bdd3ef0556c3b.zip
tcl-2bb69f505c4c33c902681ef4459bdd3ef0556c3b.tar.gz
tcl-2bb69f505c4c33c902681ef4459bdd3ef0556c3b.tar.bz2
[Bug 3444754] string tolower \u01c5 is wrong
Diffstat (limited to 'generic/tclUniData.c')
-rw-r--r--generic/tclUniData.c7
1 files changed, 4 insertions, 3 deletions
diff --git a/generic/tclUniData.c b/generic/tclUniData.c
index 6cff83a..a06e84d 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)))
/*