diff options
| author | nijtmans@users.sourceforge.net <jan.nijtmans> | 2011-08-18 12:25:01 (GMT) |
|---|---|---|
| committer | nijtmans@users.sourceforge.net <jan.nijtmans> | 2011-08-18 12:25:01 (GMT) |
| commit | fa37d1b809a30aed7e60a27f90bb253fc0947e90 (patch) | |
| tree | d3953a0af8bc605d8aacb77b2b8d3ee5d0b0719b | |
| parent | a8936f2e41fc840816cda4128af401d408a83989 (diff) | |
| parent | fa25a133fa1b123e613665d6103ec40b61069b43 (diff) | |
| download | tcl-fa37d1b809a30aed7e60a27f90bb253fc0947e90.zip tcl-fa37d1b809a30aed7e60a27f90bb253fc0947e90.tar.gz tcl-fa37d1b809a30aed7e60a27f90bb253fc0947e90.tar.bz2 | |
remove some debugging stuff
| -rw-r--r-- | tools/uniParse.tcl | 13 |
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 ", " } |