aboutsummaryrefslogtreecommitdiff
path: root/binutils
diff options
context:
space:
mode:
authorDave Anglin <dave.anglin@nrc.ca>2011-01-03 16:53:28 +0000
committerDave Anglin <dave.anglin@nrc.ca>2011-01-03 16:53:28 +0000
commit47a50e5b138cfa60fb7fae0345fbdde563773fe6 (patch)
treea130c1d0b3853668ec7c75391ad67094e051d128 /binutils
parentebedcab50d2c7699ced23f4cf4eae712c0a9ca40 (diff)
downloadgdb-47a50e5b138cfa60fb7fae0345fbdde563773fe6.zip
gdb-47a50e5b138cfa60fb7fae0345fbdde563773fe6.tar.gz
gdb-47a50e5b138cfa60fb7fae0345fbdde563773fe6.tar.bz2
* lib/binutils-common.exp (regexp_diff): Use "==" instead of "eq".
Diffstat (limited to 'binutils')
-rw-r--r--binutils/testsuite/ChangeLog4
-rw-r--r--binutils/testsuite/lib/binutils-common.exp4
2 files changed, 6 insertions, 2 deletions
diff --git a/binutils/testsuite/ChangeLog b/binutils/testsuite/ChangeLog
index 4b65fcf..faf6d99 100644
--- a/binutils/testsuite/ChangeLog
+++ b/binutils/testsuite/ChangeLog
@@ -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.
diff --git a/binutils/testsuite/lib/binutils-common.exp b/binutils/testsuite/lib/binutils-common.exp
index 424ca3d..8e2c36f 100644
--- a/binutils/testsuite/lib/binutils-common.exp
+++ b/binutils/testsuite/lib/binutils-common.exp
@@ -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 ? " " : "" }]