diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-14 13:25:16 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-14 13:25:16 (GMT) |
commit | 39aec08fb0bcd5aa7d51f44c3b79e21d8de33744 (patch) | |
tree | 2eeb4befb4f1ef1b1fe50521d45f6d78bd31fcb1 /tools | |
parent | f073bc7484740398be58c99c4313c4c6202954f7 (diff) | |
parent | 66798b2c0139ffe530f62d2f3519859a451c6eaa (diff) | |
download | tcl-39aec08fb0bcd5aa7d51f44c3b79e21d8de33744.zip tcl-39aec08fb0bcd5aa7d51f44c3b79e21d8de33744.tar.gz tcl-39aec08fb0bcd5aa7d51f44c3b79e21d8de33744.tar.bz2 |
Merge 8.7
Diffstat (limited to 'tools')
-rw-r--r-- | tools/mkdepend.tcl | 2 | ||||
-rw-r--r-- | tools/uniParse.tcl | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/tools/mkdepend.tcl b/tools/mkdepend.tcl index 3d96a5e..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] != -1} { + while {[gets $chan line] >= 0} { if {[regexp {^#line [0-9]+ \"(.*)\"$} $line dummy fname] != 0} { set fname [file normalize $fname] if {![info exists target]} { diff --git a/tools/uniParse.tcl b/tools/uniParse.tcl index a451096..545afc4 100644 --- a/tools/uniParse.tcl +++ b/tools/uniParse.tcl @@ -68,7 +68,7 @@ proc uni::getGroup {value} { variable groups set gIndex [lsearch -exact $groups $value] - if {$gIndex == -1} { + if {$gIndex < 0} { set gIndex [llength $groups] lappend groups $value } @@ -81,7 +81,7 @@ proc uni::addPage {info} { variable shift set pIndex [lsearch -exact $pages $info] - if {$pIndex == -1} { + if {$pIndex < 0} { set pIndex [llength $pages] lappend pages $info } |