From: Andreas Arnez Date: Fri, 23 Mar 2018 09:38:23 +0000 (+0100) Subject: Testsuite: fully migrate to use_gdb_stub convenience func X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=079670b94ade4b5792fa74b29a6b5b4626f27185;p=binutils-gdb.git Testsuite: fully migrate to use_gdb_stub convenience func In the GDB test suite, there are still multiple invocations of "target_info exists use_gdb_stub". However, the recommended way of checking for use_gdb_stub is to call the convenience function of the same name. Replace these occurrences and just call "use_gdb_stub" instead. gdb/testsuite/ChangeLog: * gdb.ada/exec_changed.exp: Replace "target_info exists use_gdb_stub" by "use_gdb_stub". * gdb.ada/start.exp: Likewise. * gdb.base/async-shell.exp: Likewise. * gdb.base/attach-pie-misread.exp: Likewise. * gdb.base/attach-wait-input.exp: Likewise. * gdb.base/break-entry.exp: Likewise. * gdb.base/break-interp.exp: Likewise. * gdb.base/dprintf-detach.exp: Likewise. * gdb.base/nostdlib.exp: Likewise. * gdb.base/solib-nodir.exp: Likewise. * gdb.base/statistics.exp: Likewise. * gdb.base/testenv.exp: Likewise. * gdb.mi/mi-exec-run.exp: Likewise. * gdb.mi/mi-start.exp: Likewise. * gdb.multi/dummy-frame-restore.exp: Likewise. * gdb.multi/multi-arch-exec.exp: Likewise. * gdb.multi/multi-arch.exp: Likewise. * gdb.multi/tids.exp: Likewise. * gdb.multi/watchpoint-multi.exp: Likewise. * gdb.python/py-events.exp: Likewise. * gdb.threads/attach-into-signal.exp: Likewise. * gdb.threads/attach-stopped.exp: Likewise. * gdb.threads/threadapply.exp: Likewise. * lib/selftest-support.exp: Likewise. --- diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index bbd09912af5..065b1c3f5d5 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,31 @@ +2018-03-23 Andreas Arnez + + * gdb.ada/exec_changed.exp: Replace "target_info exists + use_gdb_stub" by "use_gdb_stub". + * gdb.ada/start.exp: Likewise. + * gdb.base/async-shell.exp: Likewise. + * gdb.base/attach-pie-misread.exp: Likewise. + * gdb.base/attach-wait-input.exp: Likewise. + * gdb.base/break-entry.exp: Likewise. + * gdb.base/break-interp.exp: Likewise. + * gdb.base/dprintf-detach.exp: Likewise. + * gdb.base/nostdlib.exp: Likewise. + * gdb.base/solib-nodir.exp: Likewise. + * gdb.base/statistics.exp: Likewise. + * gdb.base/testenv.exp: Likewise. + * gdb.mi/mi-exec-run.exp: Likewise. + * gdb.mi/mi-start.exp: Likewise. + * gdb.multi/dummy-frame-restore.exp: Likewise. + * gdb.multi/multi-arch-exec.exp: Likewise. + * gdb.multi/multi-arch.exp: Likewise. + * gdb.multi/tids.exp: Likewise. + * gdb.multi/watchpoint-multi.exp: Likewise. + * gdb.python/py-events.exp: Likewise. + * gdb.threads/attach-into-signal.exp: Likewise. + * gdb.threads/attach-stopped.exp: Likewise. + * gdb.threads/threadapply.exp: Likewise. + * lib/selftest-support.exp: Likewise. + 2018-03-22 Andreas Arnez * gdb.base/info-proc.exp: Add test for "info proc cmdline". diff --git a/gdb/testsuite/gdb.ada/exec_changed.exp b/gdb/testsuite/gdb.ada/exec_changed.exp index 8070eecbb34..943a75178bf 100644 --- a/gdb/testsuite/gdb.ada/exec_changed.exp +++ b/gdb/testsuite/gdb.ada/exec_changed.exp @@ -19,7 +19,7 @@ if { [skip_ada_tests] } { return -1 } # This testcase verifies the behavior of the `start' command, which # does not work when we use the gdb stub... -if [target_info exists use_gdb_stub] { +if [use_gdb_stub] { untested "skipping tests due to use_gdb_stub" return } diff --git a/gdb/testsuite/gdb.ada/start.exp b/gdb/testsuite/gdb.ada/start.exp index 711f3dfefdf..cbf615e9560 100644 --- a/gdb/testsuite/gdb.ada/start.exp +++ b/gdb/testsuite/gdb.ada/start.exp @@ -19,7 +19,7 @@ if { [skip_ada_tests] } { return -1 } # This testcase verifies the behavior of the `start' command, which # does not work when we use the gdb stub... -if [target_info exists use_gdb_stub] { +if [use_gdb_stub] { untested "skipping test due to gdb stub" return } diff --git a/gdb/testsuite/gdb.base/async-shell.exp b/gdb/testsuite/gdb.base/async-shell.exp index c7782f404a5..37046d6f48b 100644 --- a/gdb/testsuite/gdb.base/async-shell.exp +++ b/gdb/testsuite/gdb.base/async-shell.exp @@ -21,7 +21,7 @@ if { ![support_displaced_stepping] } { } # The testfile uses "run". The real bug happened only for ![is_remote target]. -if [target_info exists use_gdb_stub] { +if [use_gdb_stub] { return 0 } diff --git a/gdb/testsuite/gdb.base/attach-pie-misread.exp b/gdb/testsuite/gdb.base/attach-pie-misread.exp index aa7710a3971..b693d3a2ba4 100644 --- a/gdb/testsuite/gdb.base/attach-pie-misread.exp +++ b/gdb/testsuite/gdb.base/attach-pie-misread.exp @@ -14,7 +14,7 @@ # along with this program. If not, see . # This test only works on GNU/Linux. -if { ![isnative] || [is_remote host] || [target_info exists use_gdb_stub] +if { ![isnative] || [is_remote host] || [use_gdb_stub] || ![istarget *-linux*] || [skip_shlib_tests]} { continue } diff --git a/gdb/testsuite/gdb.base/attach-wait-input.exp b/gdb/testsuite/gdb.base/attach-wait-input.exp index 67abaa22e97..776cac884ca 100644 --- a/gdb/testsuite/gdb.base/attach-wait-input.exp +++ b/gdb/testsuite/gdb.base/attach-wait-input.exp @@ -29,7 +29,7 @@ # simpler to do, so we test with both editing on and off. # The test uses the "attach" command. -if [target_info exists use_gdb_stub] { +if [use_gdb_stub] { return } diff --git a/gdb/testsuite/gdb.base/break-entry.exp b/gdb/testsuite/gdb.base/break-entry.exp index 8775b38a397..85de662a6d2 100644 --- a/gdb/testsuite/gdb.base/break-entry.exp +++ b/gdb/testsuite/gdb.base/break-entry.exp @@ -27,7 +27,7 @@ standard_testfile start.c -if [target_info exists use_gdb_stub] { +if [use_gdb_stub] { untested "skipping tests due to use_gdb_stub" return } diff --git a/gdb/testsuite/gdb.base/break-interp.exp b/gdb/testsuite/gdb.base/break-interp.exp index a065d9803d8..72117cb4a6f 100644 --- a/gdb/testsuite/gdb.base/break-interp.exp +++ b/gdb/testsuite/gdb.base/break-interp.exp @@ -14,7 +14,7 @@ # along with this program. If not, see . # This test only works on GNU/Linux. -if { ![isnative] || [is_remote host] || [target_info exists use_gdb_stub] +if { ![isnative] || [is_remote host] || [use_gdb_stub] || ![istarget *-linux*] || [skip_shlib_tests]} { continue } diff --git a/gdb/testsuite/gdb.base/dprintf-detach.exp b/gdb/testsuite/gdb.base/dprintf-detach.exp index ed92c4a01ad..4c3b33b7772 100644 --- a/gdb/testsuite/gdb.base/dprintf-detach.exp +++ b/gdb/testsuite/gdb.base/dprintf-detach.exp @@ -21,7 +21,7 @@ load_lib gdbserver-support.exp # The test relies on "detach/attach". -if { [target_info exists use_gdb_stub] } then { +if { [use_gdb_stub] } then { return 0 } diff --git a/gdb/testsuite/gdb.base/nostdlib.exp b/gdb/testsuite/gdb.base/nostdlib.exp index 54b6cb3ec6e..2ce21322de8 100644 --- a/gdb/testsuite/gdb.base/nostdlib.exp +++ b/gdb/testsuite/gdb.base/nostdlib.exp @@ -18,7 +18,7 @@ standard_testfile .c # If we're using a stub, breakpoints at the entry point will not trigger. # See also the comment in break-entry.exp. -if [target_info exists use_gdb_stub] { +if [use_gdb_stub] { untested "skipping tests due to use_gdb_stub" return } diff --git a/gdb/testsuite/gdb.base/solib-nodir.exp b/gdb/testsuite/gdb.base/solib-nodir.exp index 42314c82808..911d614063f 100644 --- a/gdb/testsuite/gdb.base/solib-nodir.exp +++ b/gdb/testsuite/gdb.base/solib-nodir.exp @@ -25,7 +25,7 @@ if [is_remote target] { # We need to be able to influence the target's environment and working # directory. Can't do that if when we connect the inferior is already # running. -if [target_info exists use_gdb_stub] { +if [use_gdb_stub] { return } diff --git a/gdb/testsuite/gdb.base/statistics.exp b/gdb/testsuite/gdb.base/statistics.exp index eb99ff411a3..c093b03b1bb 100644 --- a/gdb/testsuite/gdb.base/statistics.exp +++ b/gdb/testsuite/gdb.base/statistics.exp @@ -18,7 +18,7 @@ standard_testfile gdb_exit # Inlined default_gdb_start. -set use_gdb_stub [target_info exists use_gdb_stub] +set use_gdb_stub [use_gdb_stub] set res [remote_spawn host "$GDB $INTERNAL_GDBFLAGS $GDBFLAGS [host_info gdb_opts] -statistics"] if { $res < 0 || $res == "" } { perror "Spawning $GDB failed." diff --git a/gdb/testsuite/gdb.base/testenv.exp b/gdb/testsuite/gdb.base/testenv.exp index 4c123d9ce00..4c4c6e63bed 100644 --- a/gdb/testsuite/gdb.base/testenv.exp +++ b/gdb/testsuite/gdb.base/testenv.exp @@ -20,7 +20,7 @@ # Can't pass environment variables to the inferior if when we connect, # the inferior is already running. -if [target_info exists use_gdb_stub] { +if [use_gdb_stub] { return } diff --git a/gdb/testsuite/gdb.mi/mi-exec-run.exp b/gdb/testsuite/gdb.mi/mi-exec-run.exp index 7e1758f5255..ca3da5d3bfb 100644 --- a/gdb/testsuite/gdb.mi/mi-exec-run.exp +++ b/gdb/testsuite/gdb.mi/mi-exec-run.exp @@ -28,7 +28,7 @@ set MIFLAGS "-i=mi" # The purpose of this testcase is to test the -exec-run command. If we # cannot use it, then there is no point in running this testcase. -if [target_info exists use_gdb_stub] { +if [use_gdb_stub] { untested "cannot use -exec-run command" return -1 } diff --git a/gdb/testsuite/gdb.mi/mi-start.exp b/gdb/testsuite/gdb.mi/mi-start.exp index 64f7f47a3ce..185318ae3b1 100644 --- a/gdb/testsuite/gdb.mi/mi-start.exp +++ b/gdb/testsuite/gdb.mi/mi-start.exp @@ -19,7 +19,7 @@ set MIFLAGS "-i=mi" # The purpose of this testcase is to test the --start option of # the -exec-run command. If we cannot use the -exec-run command, # then there is no point in running this testcase... -if [target_info exists use_gdb_stub] { +if [use_gdb_stub] { untested "cannot use -exec-run command" return -1 } diff --git a/gdb/testsuite/gdb.multi/dummy-frame-restore.exp b/gdb/testsuite/gdb.multi/dummy-frame-restore.exp index 4372081ee7c..b5b012f4b1f 100644 --- a/gdb/testsuite/gdb.multi/dummy-frame-restore.exp +++ b/gdb/testsuite/gdb.multi/dummy-frame-restore.exp @@ -17,7 +17,7 @@ standard_testfile .c set executable ${testfile} # The plain remote target can't do multiple inferiors. -if [target_info exists use_gdb_stub] { +if [use_gdb_stub] { return } diff --git a/gdb/testsuite/gdb.multi/multi-arch-exec.exp b/gdb/testsuite/gdb.multi/multi-arch-exec.exp index eaaa9ecd405..9ff439d2a34 100644 --- a/gdb/testsuite/gdb.multi/multi-arch-exec.exp +++ b/gdb/testsuite/gdb.multi/multi-arch-exec.exp @@ -19,7 +19,7 @@ set testfile "multi-arch-exec" # The plain remote target can't do multiple inferiors. -if [target_info exists use_gdb_stub] { +if [use_gdb_stub] { return } diff --git a/gdb/testsuite/gdb.multi/multi-arch.exp b/gdb/testsuite/gdb.multi/multi-arch.exp index 61ab15b49ad..3a90f028e1f 100644 --- a/gdb/testsuite/gdb.multi/multi-arch.exp +++ b/gdb/testsuite/gdb.multi/multi-arch.exp @@ -19,7 +19,7 @@ set testfile "multi-arch" # The plain remote target can't do multiple inferiors. -if [target_info exists use_gdb_stub] { +if [use_gdb_stub] { return } diff --git a/gdb/testsuite/gdb.multi/tids.exp b/gdb/testsuite/gdb.multi/tids.exp index 334e08e7a76..67349b57595 100644 --- a/gdb/testsuite/gdb.multi/tids.exp +++ b/gdb/testsuite/gdb.multi/tids.exp @@ -22,7 +22,7 @@ standard_testfile # Multiple inferiors are needed, therefore both native and extended # gdbserver modes are supported. Only non-extended gdbserver is not # supported. -if [target_info exists use_gdb_stub] { +if [use_gdb_stub] { untested "using gdb stub" return } diff --git a/gdb/testsuite/gdb.multi/watchpoint-multi.exp b/gdb/testsuite/gdb.multi/watchpoint-multi.exp index 5234304ebeb..bba1b902eb1 100644 --- a/gdb/testsuite/gdb.multi/watchpoint-multi.exp +++ b/gdb/testsuite/gdb.multi/watchpoint-multi.exp @@ -18,7 +18,7 @@ set executable ${testfile} # Multiple inferiors are needed, therefore both native and extended gdbserver # modes are supported. Only non-extended gdbserver is not supported. -if [target_info exists use_gdb_stub] { +if [use_gdb_stub] { untested "using gdb stub" return } diff --git a/gdb/testsuite/gdb.python/py-events.exp b/gdb/testsuite/gdb.python/py-events.exp index 26cc802045f..5109e7ac75d 100644 --- a/gdb/testsuite/gdb.python/py-events.exp +++ b/gdb/testsuite/gdb.python/py-events.exp @@ -13,7 +13,7 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -if [target_info exists use_gdb_stub] { +if [use_gdb_stub] { return 0 } diff --git a/gdb/testsuite/gdb.threads/attach-into-signal.exp b/gdb/testsuite/gdb.threads/attach-into-signal.exp index 446f00c984a..4a0a670a289 100644 --- a/gdb/testsuite/gdb.threads/attach-into-signal.exp +++ b/gdb/testsuite/gdb.threads/attach-into-signal.exp @@ -17,7 +17,7 @@ # This file was created by Jan Kratochvil . # This test only works on Linux -if { ![isnative] || [is_remote host] || [target_info exists use_gdb_stub] +if { ![isnative] || [is_remote host] || [use_gdb_stub] || ![istarget *-linux*] } { continue } diff --git a/gdb/testsuite/gdb.threads/attach-stopped.exp b/gdb/testsuite/gdb.threads/attach-stopped.exp index 6c8c8bf10e4..a3916c6354d 100644 --- a/gdb/testsuite/gdb.threads/attach-stopped.exp +++ b/gdb/testsuite/gdb.threads/attach-stopped.exp @@ -18,7 +18,7 @@ # This file was updated by Jan Kratochvil . # This test only works on Linux -if { ![isnative] || [is_remote host] || [target_info exists use_gdb_stub] +if { ![isnative] || [is_remote host] || [use_gdb_stub] || ![istarget *-linux*] } { continue } diff --git a/gdb/testsuite/gdb.threads/threadapply.exp b/gdb/testsuite/gdb.threads/threadapply.exp index fc8aac6e06d..8979ee38d8c 100644 --- a/gdb/testsuite/gdb.threads/threadapply.exp +++ b/gdb/testsuite/gdb.threads/threadapply.exp @@ -105,7 +105,7 @@ proc kill_and_remove_inferior {thread_set} { # The test starts multiple inferiors, therefore non-extended # remote is not supported. - if [target_info exists use_gdb_stub] { + if [use_gdb_stub] { unsupported "using gdb stub" return } diff --git a/gdb/testsuite/lib/selftest-support.exp b/gdb/testsuite/lib/selftest-support.exp index 89e2e3f4ef0..f7169e0955e 100644 --- a/gdb/testsuite/lib/selftest-support.exp +++ b/gdb/testsuite/lib/selftest-support.exp @@ -140,7 +140,7 @@ proc do_self_tests {function body} { # ... or with a stub-like server? I.e., gdbserver + "target # remote"? In that case we won't be able to pass command line # arguments to GDB, and selftest_setup wants to do exactly that. - if [target_info exists use_gdb_stub] { + if [use_gdb_stub] { return }