diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-14 12:31:56 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-14 12:31:56 (GMT) |
commit | 262b6297ea2f920b93647282240008fb6b77b0e9 (patch) | |
tree | f3efaa8264fe428fc1cc73603adc5d94fcd39462 /tools | |
parent | f0ec68f07293dac2b967d45a3697073b77688970 (diff) | |
download | tcl-262b6297ea2f920b93647282240008fb6b77b0e9.zip tcl-262b6297ea2f920b93647282240008fb6b77b0e9.tar.gz tcl-262b6297ea2f920b93647282240008fb6b77b0e9.tar.bz2 |
Eliminate many "register" keywords (which do nothing with modern compilers)
Eliminate many unnecessary type-casts to (unsigned)
Diffstat (limited to 'tools')
-rw-r--r-- | tools/mkdepend.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tools/mkdepend.tcl b/tools/mkdepend.tcl index afe123a..b1ad076 100644 --- a/tools/mkdepend.tcl +++ b/tools/mkdepend.tcl @@ -88,7 +88,7 @@ proc readDepends {chan} { set line "" array set depends {} - while {[gets $chan line] < 0} { + while {[gets $chan line] >= 0} { if {[regexp {^#line [0-9]+ \"(.*)\"$} $line dummy fname] != 0} { set fname [file normalize $fname] if {![info exists target]} { |