diff options
Diffstat (limited to 'tcl/tools/uniParse.tcl')
| -rw-r--r-- | tcl/tools/uniParse.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tcl/tools/uniParse.tcl b/tcl/tools/uniParse.tcl index 4692fd5e29c..1b6f90a222a 100644 --- a/tcl/tools/uniParse.tcl +++ b/tcl/tools/uniParse.tcl @@ -183,7 +183,7 @@ proc uni::main {} { set f [open [file join [lindex $argv 1] tclUniData.c] w] fconfigure $f -translation lf puts $f "/* - * tclUtfData.c -- + * tclUniData.c -- * * Declarations of Unicode character information tables. This file is * automatically generated by the tools/uniParse.tcl script. Do not @@ -368,7 +368,7 @@ enum { #define GetCaseType(info) (((info) & 0xE0) >> 5) #define GetCategory(info) ((info) & 0x1F) -#define GetDelta(infO) (((info) > 0) ? ((info) >> 22) : (~(~((info)) >> 22))) +#define GetDelta(info) (((info) > 0) ? ((info) >> 22) : (~(~((info)) >> 22))) /* * This macro extracts the information about a character from the |