diff options
| author | Pedro Alves <palves@redhat.com> | 2007-10-30 19:23:18 +0000 |
|---|---|---|
| committer | Pedro Alves <palves@redhat.com> | 2007-10-30 19:23:18 +0000 |
| commit | 7020f05c275a933720905bc7e4a2446175f28b0f (patch) | |
| tree | 379dceda5c7e2b54148c20f50c9d55017a2cc934 | |
| parent | 84bc3db95d718ad25bb281b5cff9f13b5e5f8bd6 (diff) | |
| download | gdb-7020f05c275a933720905bc7e4a2446175f28b0f.zip gdb-7020f05c275a933720905bc7e4a2446175f28b0f.tar.gz gdb-7020f05c275a933720905bc7e4a2446175f28b0f.tar.bz2 | |
* lib/gdb.exp, gdb.base/sepdebug.exp: Replace usage of eq and ne
with [string compare].
| -rw-r--r-- | gdb/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.base/sepdebug.exp | 6 | ||||
| -rw-r--r-- | gdb/testsuite/lib/gdb.exp | 2 |
3 files changed, 9 insertions, 4 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index a200ed9..551c8d6 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,5 +1,10 @@ 2007-10-30 Pedro Alves <pedro_alves@portugalmail.pt> + * lib/gdb.exp, gdb.base/sepdebug.exp: Replace usage of eq and ne + with [string compare]. + +2007-10-30 Pedro Alves <pedro_alves@portugalmail.pt> + * gdb.base/sepdebug.exp (binfile): Add ${EXEEXT}. * gdb.base/sepsymtab.exp (binfile): Add ${EXEEXT}. diff --git a/gdb/testsuite/gdb.base/sepdebug.exp b/gdb/testsuite/gdb.base/sepdebug.exp index b52cfff..2936fe9 100644 --- a/gdb/testsuite/gdb.base/sepdebug.exp +++ b/gdb/testsuite/gdb.base/sepdebug.exp @@ -955,7 +955,7 @@ test_different_dir debuglink "${objdir}/${subdir}" 0 # NT_GNU_BUILD_ID / .note.gnu.build-id test: set build_id_debug_filename [build_id_debug_filename_get $binfile] -if {$build_id_debug_filename eq ""} { +if ![string compare $build_id_debug_filename ""] then { unsupported "build-id is not supported by the compiler" # Spare debug files may confuse testsuite runs in the future. @@ -964,10 +964,10 @@ if {$build_id_debug_filename eq ""} { set build_id_debugself_filename [build_id_debug_filename_get $debugfile] set test "build-id support by binutils" set xfail 0 - if {$build_id_debugself_filename eq ""} { + if ![string compare $build_id_debugself_filename ""] then { unsupported $test set xfail 1 - } elseif {$build_id_debugself_filename ne $build_id_debug_filename} { + } elseif {[string compare $build_id_debugself_filename $build_id_debug_filename] != 0} then { fail $test } else { pass $test diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp index 5c5f9bf..edbc606 100644 --- a/gdb/testsuite/lib/gdb.exp +++ b/gdb/testsuite/lib/gdb.exp @@ -2505,7 +2505,7 @@ proc build_id_debug_filename_get { exec } { set data [read $fi] close $fi file delete $tmp - if {$data eq ""} { + if ![string compare $data ""] then { return "" } # Convert it to hex. |