* lib/binutils-common.exp (regexp_diff): Use "==" instead of "eq".
This commit is contained in:
parent
ebedcab50d
commit
47a50e5b13
2 changed files with 6 additions and 2 deletions
|
@ -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.
|
||||
|
|
|
@ -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 ? " " : "" }]
|
||||
|
|
Loading…
Reference in a new issue