diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-09-01 18:54:58 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-09-01 18:54:58 (GMT) |
| commit | a18e29f96b7b7a0699ed4d5df433b0b0660341e3 (patch) | |
| tree | 2fc69d530f862f96aedd1ffe37b39f4153ccf273 /generic/tclUniData.c | |
| parent | 67acc8945524908e6b8e9e1f8b1f949d3a146e11 (diff) | |
| download | tcl-a18e29f96b7b7a0699ed4d5df433b0b0660341e3.zip tcl-a18e29f96b7b7a0699ed4d5df433b0b0660341e3.tar.gz tcl-a18e29f96b7b7a0699ed4d5df433b0b0660341e3.tar.bz2 | |
Various Unicode handling enhancements, when building with TCL_UTF_MAX > 3, inspired by androwish. No effect if TCL_UTF_MAX=3 (which is the default)
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 d2f66fe..1ca119d 100644 --- a/generic/tclUniData.c +++ b/generic/tclUniData.c @@ -1556,4 +1556,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 |