diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-02-02 21:13:03 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-02-02 21:13:03 (GMT) |
commit | 4c72498e39acb8c9846f67f0f054ba5246418310 (patch) | |
tree | 4bb33e3480486ac9a1f564c9d448c909aef98507 /tools/uniParse.tcl | |
parent | 2427ef7d10eb75c0aa2ef238efa3002cba516e88 (diff) | |
parent | bc4fa40ab732d394d45a52b5f4d7581a80d1b943 (diff) | |
download | tcl-4c72498e39acb8c9846f67f0f054ba5246418310.zip tcl-4c72498e39acb8c9846f67f0f054ba5246418310.tar.gz tcl-4c72498e39acb8c9846f67f0f054ba5246418310.tar.bz2 |
[Frq 3464401] Support Unicode 6.1
Diffstat (limited to 'tools/uniParse.tcl')
-rw-r--r-- | tools/uniParse.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tools/uniParse.tcl b/tools/uniParse.tcl index baf8a4b..e33b3c7 100644 --- a/tools/uniParse.tcl +++ b/tools/uniParse.tcl @@ -337,7 +337,7 @@ static const int groups\[\] = {" puts $f $line puts -nonewline $f "}; -#if UTF_MAX_LEN > 3 +#if TCL_UTF_MAX > 3 # define UNICODE_OUT_OF_RANGE(ch) (((ch) & 0x1fffff) >= [format 0x%x $next]) #else # define UNICODE_OUT_OF_RANGE(ch) (((ch) & 0x1f0000) != 0) |