diff options
| author | nijtmans <nijtmans> | 2010-10-12 15:19:04 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2010-10-12 15:19:04 (GMT) |
| commit | 171ad7170e5057b91f832bbfaf43646ecd3280e0 (patch) | |
| tree | 13bdce116498da91f9b54fe6e87b34ef69122b88 /tools | |
| parent | cfcfa7c32e49d6a3e3613f260e715ac9f4dba79a (diff) | |
| download | tcl-171ad7170e5057b91f832bbfaf43646ecd3280e0.zip tcl-171ad7170e5057b91f832bbfaf43646ecd3280e0.tar.gz tcl-171ad7170e5057b91f832bbfaf43646ecd3280e0.tar.bz2 | |
Generate proper const qualifiers for tclUniData.c
Diffstat (limited to 'tools')
| -rw-r--r-- | tools/uniParse.tcl | 8 |
1 files changed, 4 insertions, 4 deletions
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} { |