diff options
| author | nijtmans <nijtmans> | 2010-07-01 21:28:15 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2010-07-01 21:28:15 (GMT) |
| commit | abb430245e8a99364bb0ddbca7f85c8adb62d36f (patch) | |
| tree | 6504f41b881faedff35589b0b480a44e4042fb92 /tools/fix_tommath_h.tcl | |
| parent | e10b292750a32db464a69efbd938795b6f2c8d52 (diff) | |
| download | tcl-abb430245e8a99364bb0ddbca7f85c8adb62d36f.zip tcl-abb430245e8a99364bb0ddbca7f85c8adb62d36f.tar.gz tcl-abb430245e8a99364bb0ddbca7f85c8adb62d36f.tar.bz2 | |
[Bug #3020677] wish can't link reg1.2
formatting, spacing, cleanup unused variables
Diffstat (limited to 'tools/fix_tommath_h.tcl')
| -rwxr-xr-x | tools/fix_tommath_h.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tools/fix_tommath_h.tcl b/tools/fix_tommath_h.tcl index 47d6447..d621192 100755 --- a/tools/fix_tommath_h.tcl +++ b/tools/fix_tommath_h.tcl @@ -8,7 +8,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: fix_tommath_h.tcl,v 1.7 2010/05/03 11:40:06 nijtmans Exp $ +# RCS: @(#) $Id: fix_tommath_h.tcl,v 1.8 2010/07/01 21:28:15 nijtmans Exp $ # #---------------------------------------------------------------------- @@ -20,7 +20,7 @@ set eat_endif 0 set eat_semi 0 set def_count 0 foreach line [split $data \n] { - if { !$eat_semi && !$eat_endif } { + if {!$eat_semi && !$eat_endif} { switch -regexp -- $line { {#define BN_H_} { puts $line |