summaryrefslogtreecommitdiffstats
path: root/tools
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2011-08-18 12:24:11 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2011-08-18 12:24:11 (GMT)
commit488f1e897d9afcc6d05e346707075c325fff4459 (patch)
treeb0563f4872a562d9e90b19fbea4e08f355003c37 /tools
parent7146f318cfdc287a7b582b62a17240d5f219915d (diff)
parentf2054262fbac2894282690c5313788f0608771e7 (diff)
downloadtcl-488f1e897d9afcc6d05e346707075c325fff4459.zip
tcl-488f1e897d9afcc6d05e346707075c325fff4459.tar.gz
tcl-488f1e897d9afcc6d05e346707075c325fff4459.tar.bz2
remove some debugging stuff
Diffstat (limited to 'tools')
-rw-r--r--tools/uniParse.tcl13
1 files changed, 1 insertions, 12 deletions
diff --git a/tools/uniParse.tcl b/tools/uniParse.tcl
index 3b0f965..8576f9d 100644
--- a/tools/uniParse.tcl
+++ b/tools/uniParse.tcl
@@ -214,9 +214,6 @@ static const unsigned short pageMap\[\] = {"
set last [expr {[llength $pMap] - 1}]
for {set i 0} {$i <= $last} {incr i} {
append line [lindex $pMap $i]
- if {[lindex $pMap $i] == 17} {
- puts stdout [list ZZZZ: $i]
- }
if {$i != $last} {
append line ", "
}
@@ -242,9 +239,6 @@ static const unsigned char groupMap\[\] = {"
set lastj [expr {[llength $page] - 1}]
for {set j 0} {$j <= $lastj} {incr j} {
append line [lindex $page $j]
- if {[lindex $page $j] == 71} {
- puts stdout [list YYYY: $i $j]
- }
if {$j != $lastj || $i != $lasti} {
append line ", "
}
@@ -312,12 +306,7 @@ static const int groups\[\] = {"
set delta 0
}
- set val [expr {($delta << 15) | ($case << 5) | $type}]
- if {($val > 0x3fffffff) || ($val < -0x3fffffff)} {
- puts stdout [list "XXXXXXXXXXX:" $i $delta $val]
- }
-
- append line [format "%d" $val]
+ append line [expr {($delta << 15) | ($case << 5) | $type}]
if {$i != $last} {
append line ", "
}