diff options
author | nijtmans <nijtmans> | 2010-10-15 15:25:52 (GMT) |
---|---|---|
committer | nijtmans <nijtmans> | 2010-10-15 15:25:52 (GMT) |
commit | 3b9ea5778de8ac6371fc6f8a1caed01bb1776de3 (patch) | |
tree | ea57c5e6450a7e9d7b21d324e6bd8ffdff442526 /tools/uniParse.tcl | |
parent | 0d28a913fcbe639c039cdbfc69d2cc0c0f802810 (diff) | |
download | tcl-3b9ea5778de8ac6371fc6f8a1caed01bb1776de3.zip tcl-3b9ea5778de8ac6371fc6f8a1caed01bb1776de3.tar.gz tcl-3b9ea5778de8ac6371fc6f8a1caed01bb1776de3.tar.bz2 |
[Bug 3085863] tclUniData 9 years old: Updated Unicode tables to latest UnicodeData.txt,
corresponding with Unicode 6.0 (except for out-of-range chars > 0xFFFF)
Diffstat (limited to 'tools/uniParse.tcl')
-rw-r--r-- | tools/uniParse.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tools/uniParse.tcl b/tools/uniParse.tcl index 5338a03..a7f4237 100644 --- a/tools/uniParse.tcl +++ b/tools/uniParse.tcl @@ -9,7 +9,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: uniParse.tcl,v 1.7 2010/10/12 15:19:04 nijtmans Exp $ +# RCS: @(#) $Id: uniParse.tcl,v 1.8 2010/10/15 15:25:52 nijtmans Exp $ namespace eval uni { @@ -209,7 +209,7 @@ proc uni::main {} { * to the same alternate page number. */ -static const unsigned char pageMap\[\] = {" +static const unsigned short pageMap\[\] = {" set line " " set last [expr {[llength $pMap] - 1}] for {set i 0} {$i <= $last} {incr i} { |