diff options
Diffstat (limited to 'generic/tclUniData.c')
| -rw-r--r-- | generic/tclUniData.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/generic/tclUniData.c b/generic/tclUniData.c index 20fab8c..d8b317a 100644 --- a/generic/tclUniData.c +++ b/generic/tclUniData.c @@ -1607,4 +1607,8 @@ enum { * Unicode character tables. */ -#define GetUniCharInfo(ch) (groups[groupMap[pageMap[((ch) & 0xffff) >> OFFSET_BITS] | ((ch) & ((1 << OFFSET_BITS)-1))]]) +#if TCL_UTF_MAX > 3 +# define GetUniCharInfo(ch) (groups[groupMap[pageMap[((ch) & 0x1fffff) >> OFFSET_BITS] | ((ch) & ((1 << OFFSET_BITS)-1))]]) +#else +# define GetUniCharInfo(ch) (groups[groupMap[pageMap[((ch) & 0xffff) >> OFFSET_BITS] | ((ch) & ((1 << OFFSET_BITS)-1))]]) +#endif |