diff options
| author | Dave Anglin <dave.anglin@nrc.ca> | 2011-01-03 16:53:28 +0000 |
|---|---|---|
| committer | Dave Anglin <dave.anglin@nrc.ca> | 2011-01-03 16:53:28 +0000 |
| commit | 47a50e5b138cfa60fb7fae0345fbdde563773fe6 (patch) | |
| tree | a130c1d0b3853668ec7c75391ad67094e051d128 /binutils/testsuite | |
| parent | ebedcab50d2c7699ced23f4cf4eae712c0a9ca40 (diff) | |
| download | gdb-47a50e5b138cfa60fb7fae0345fbdde563773fe6.zip gdb-47a50e5b138cfa60fb7fae0345fbdde563773fe6.tar.gz gdb-47a50e5b138cfa60fb7fae0345fbdde563773fe6.tar.bz2 | |
* lib/binutils-common.exp (regexp_diff): Use "==" instead of "eq".
Diffstat (limited to 'binutils/testsuite')
| -rw-r--r-- | binutils/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | binutils/testsuite/lib/binutils-common.exp | 4 |
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 ? " " : "" }] |