* lib/binutils-common.exp (regexp_diff): Use "==" instead of "eq".

This commit is contained in:
Dave Anglin 2011-01-03 16:53:28 +00:00
parent ebedcab50d
commit 47a50e5b13
2 changed files with 6 additions and 2 deletions

View File

@ -1,3 +1,7 @@
2011-01-03 John David Anglin <dave.anglin@nrc-cnrc.gc.ca>
* lib/binutils-common.exp (regexp_diff): Use "==" instead of "eq".
2010-12-31 John David Anglin <dave.anglin@nrc-cnrc.gc.ca>
* binutils-all/copy-2.d: Change "hppa" to "hppa*" in not-target list.

View File

@ -237,7 +237,7 @@ proc regexp_diff { file_1 file_2 args } {
set diff_pass 1
break
}
set negated [expr { [string index $line_b 0] eq "!" }]
set negated [expr { [string index $line_b 0] == "!" }]
set line_bx [string range $line_b $negated end]
set n [expr { $negated ? "! " : "" }]
# Substitute on the reference.
@ -275,7 +275,7 @@ proc regexp_diff { file_1 file_2 args } {
set differences 1
break
} else {
set negated [expr { [string index $line_b 0] eq "!" }]
set negated [expr { [string index $line_b 0] == "!" }]
set line_bx [string range $line_b $negated end]
set n [expr { $negated ? "! " : "" }]
set s [expr { $negated ? " " : "" }]