diff options
| -rw-r--r-- | ChangeLog | 2 | ||||
| -rw-r--r-- | generic/tclUniData.c | 8 | ||||
| -rw-r--r-- | tools/uniParse.tcl | 8 |
3 files changed, 10 insertions, 8 deletions
@@ -2,6 +2,8 @@ * tools/uniClass.tcl Spacing and comments: let uniClass.tcl generation match * generic/regc_locale.c better the current (hand-modified) regc_locale.c + * tools/uniParse.tcl Generate proper const qualifiers for tclUniData.c + * generic/tclUniData.c 2010-10-12 Reinhard Max <max@suse.de> diff --git a/generic/tclUniData.c b/generic/tclUniData.c index 97b809a..b321705 100644 --- a/generic/tclUniData.c +++ b/generic/tclUniData.c @@ -8,7 +8,7 @@ * Copyright (c) 1998 by Scriptics Corporation. * All rights reserved. * - * RCS: @(#) $Id: tclUniData.c,v 1.5 2010/05/27 08:38:07 nijtmans Exp $ + * RCS: @(#) $Id: tclUniData.c,v 1.6 2010/10/12 15:19:04 nijtmans Exp $ */ /* @@ -25,7 +25,7 @@ * to the same alternate page number. */ -static unsigned char pageMap[] = { +static const unsigned char pageMap[] = { 0, 1, 2, 3, 0, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 7, 15, 16, 17, 18, 19, 20, 21, 22, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 7, 32, 7, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 47, @@ -388,7 +388,7 @@ static unsigned char pageMap[] = { * set of character attributes. */ -static unsigned char groupMap[] = { +static const unsigned char groupMap[] = { 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 3, 3, 3, 4, 3, 3, 3, 5, 6, 3, 7, 3, 8, 3, 3, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 3, 3, 7, 7, 7, 3, 3, 10, 10, 10, @@ -824,7 +824,7 @@ static unsigned char groupMap[] = { * highest field so we can easily sign extend. */ -static int groups[] = { +static const int groups[] = { 0, 15, 12, 25, 27, 21, 22, 26, 20, 9, 134217793, 28, 19, 134217858, 29, 2, 23, 11, 1178599554, 24, -507510654, 4194369, 4194434, -834666431, 973078658, -507510719, 1258291330, 880803905, 864026689, 859832385, diff --git a/tools/uniParse.tcl b/tools/uniParse.tcl index 7560e6b..5338a03 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.6 2010/07/01 21:28:15 nijtmans Exp $ +# RCS: @(#) $Id: uniParse.tcl,v 1.7 2010/10/12 15:19:04 nijtmans Exp $ namespace eval uni { @@ -209,7 +209,7 @@ proc uni::main {} { * to the same alternate page number. */ -static unsigned char pageMap\[\] = {" +static const unsigned char pageMap\[\] = {" set line " " set last [expr {[llength $pMap] - 1}] for {set i 0} {$i <= $last} {incr i} { @@ -231,7 +231,7 @@ static unsigned char pageMap\[\] = {" * set of character attributes. */ -static unsigned char groupMap\[\] = {" +static const unsigned char groupMap\[\] = {" set line " " set lasti [expr {[llength $pages] - 1}] for {set i 0} {$i <= $lasti} {incr i} { @@ -270,7 +270,7 @@ static unsigned char groupMap\[\] = {" * highest field so we can easily sign extend. */ -static int groups\[\] = {" +static const int groups\[\] = {" set line " " set last [expr {[llength $groups] - 1}] for {set i 0} {$i <= $last} {incr i} { |