diff options
| author | Ben Elliston <bje@gnu.org> | 2018-12-06 14:44:43 +1100 |
|---|---|---|
| committer | Ben Elliston <bje@gnu.org> | 2018-12-06 14:44:43 +1100 |
| commit | e25f4f2080867bc7e60c18ccf60030976144a3e3 (patch) | |
| tree | 05efe9bd842f5e3c6587ffb1f45aee9adc4cb8cc /runtest.exp | |
| parent | dbf1d99cb049da74a4a91a6ae1a752be0299d636 (diff) | |
| download | dejagnu-e25f4f2080867bc7e60c18ccf60030976144a3e3.zip dejagnu-e25f4f2080867bc7e60c18ccf60030976144a3e3.tar.gz dejagnu-e25f4f2080867bc7e60c18ccf60030976144a3e3.tar.bz2 | |
* runtest.exp: Replace '==' with 'eq' for string compares.
Likewise, replace '!=' with 'ne'. Replace a few instances of
[string length $str] == 0 with $str eq "".
* config/gdb-comm.exp: Likewise.
* lib/dg.exp: Likewise.
* lib/framework.exp: Likewise.
* lib/libgloss.exp: Likewise.
* lib/remote.exp: Likewise.
* lib/target.exp: Likewise.
* lib/utils.exp: Likewise.
Diffstat (limited to 'runtest.exp')
| -rw-r--r-- | runtest.exp | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/runtest.exp b/runtest.exp index b6e5c64..4657bd7 100644 --- a/runtest.exp +++ b/runtest.exp @@ -141,7 +141,7 @@ proc verbose { args } { set logfile 0 set i 0 - if { [string index [lindex $args 0] 0] == "-" } { + if { [string index [lindex $args 0] 0] eq "-" } { for { set i 0 } { $i < [llength $args] } { incr i } { if { [lindex $args $i] == "--" } { incr i @@ -152,7 +152,7 @@ proc verbose { args } { set logfile 1 } elseif { [lindex $args $i] == "-x" } { set xml 1 - } elseif { [string index [lindex $args $i] 0] == "-" } { + } elseif { [string index [lindex $args $i] 0] eq "-" } { clone_output "ERROR: verbose: illegal argument: [lindex $args $i]" return } else { @@ -665,11 +665,11 @@ if { $arg_build_triplet != "" } { # If we only specify --host, then that must be the build machine too, # and we're stuck using the old functionality of a simple cross test. -if {[expr { $build_triplet == "" && $host_triplet != "" } ]} { +if {[expr { $build_triplet eq "" && $host_triplet ne "" } ]} { set build_triplet $host_triplet } # If we only specify --build, then we'll use that as the host too. -if {[expr { $build_triplet != "" && $host_triplet == "" } ]} { +if {[expr { $build_triplet ne "" && $host_triplet eq "" } ]} { set host_triplet $build_triplet } unset arg_host_triplet arg_build_triplet @@ -678,7 +678,7 @@ unset arg_host_triplet arg_build_triplet # If the build machine type hasn't been specified by now, use config.guess. # -if {[expr {$build_triplet == "" && $host_triplet == ""}]} { +if {[expr {$build_triplet eq "" && $host_triplet eq ""}]} { # find config.guess foreach dir "$libdir $libdir/libexec $libdir/.. $execpath $srcdir $srcdir/.. $srcdir/../.." { verbose "Looking for ${dir}/config.guess" 2 |