summaryrefslogtreecommitdiffstats
path: root/tools
diff options
context:
space:
mode:
Diffstat (limited to 'tools')
-rw-r--r--tools/uniClass.tcl4
-rw-r--r--tools/uniParse.tcl2
2 files changed, 3 insertions, 3 deletions
diff --git a/tools/uniClass.tcl b/tools/uniClass.tcl
index db5e8c9..32b40e9 100644
--- a/tools/uniClass.tcl
+++ b/tools/uniClass.tcl
@@ -20,7 +20,7 @@ proc emitRange {first last} {
set extranges 1
set numranges 0
set ranges [string trimright $ranges " \n\r\t,"]
- append ranges "\n#if MAX_UTF_CHAR > 4\n ,"
+ append ranges "\n#if TCL_UTF_MAX > 4\n ,"
}
append ranges [format "{0x%x, 0x%x}, " \
$first $last]
@@ -33,7 +33,7 @@ proc emitRange {first last} {
set extchars 1
set numchars 0
set chars [string trimright $chars " \n\r\t,"]
- append chars "\n#if MAX_UTF_CHAR > 4\n ,"
+ append chars "\n#if TCL_UTF_MAX > 4\n ,"
}
append chars [format "0x%x, " $first]
incr numchars
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)