diff options
author | Tom Tromey <tom@tromey.com> | 2022-12-13 15:04:18 -0700 |
---|---|---|
committer | Tom Tromey <tom@tromey.com> | 2023-01-13 13:18:55 -0700 |
commit | 5954db83d17f69ffecbf6a75eee4e08f53b237ca (patch) | |
tree | 2da422e9b47615bd80702abee515bf65d6c83938 /gdb/testsuite | |
parent | fc5ab4bc44e77fbc5aee61d46e8b6f23bef8b371 (diff) | |
download | fsf-binutils-gdb-5954db83d17f69ffecbf6a75eee4e08f53b237ca.zip fsf-binutils-gdb-5954db83d17f69ffecbf6a75eee4e08f53b237ca.tar.gz fsf-binutils-gdb-5954db83d17f69ffecbf6a75eee4e08f53b237ca.tar.bz2 |
Use require supports_reverse
This changes some tests to use "require supports_reverse".
Diffstat (limited to 'gdb/testsuite')
30 files changed, 30 insertions, 101 deletions
diff --git a/gdb/testsuite/gdb.mi/mi-reverse.exp b/gdb/testsuite/gdb.mi/mi-reverse.exp index d631beb..020b6fe 100644 --- a/gdb/testsuite/gdb.mi/mi-reverse.exp +++ b/gdb/testsuite/gdb.mi/mi-reverse.exp @@ -27,9 +27,7 @@ # but to verify the correct output response to MI operations. # -if ![supports_reverse] { - return -} +require supports_reverse load_lib mi-support.exp set MIFLAGS "-i=mi" diff --git a/gdb/testsuite/gdb.reverse/amd64-tailcall-reverse.exp b/gdb/testsuite/gdb.reverse/amd64-tailcall-reverse.exp index 52a87fa..dd6e4d2 100644 --- a/gdb/testsuite/gdb.reverse/amd64-tailcall-reverse.exp +++ b/gdb/testsuite/gdb.reverse/amd64-tailcall-reverse.exp @@ -13,9 +13,7 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see <http://www.gnu.org/licenses/>. -if ![supports_reverse] { - return -} +require supports_reverse set opts {} standard_testfile .S diff --git a/gdb/testsuite/gdb.reverse/break-reverse.exp b/gdb/testsuite/gdb.reverse/break-reverse.exp index 2078898..03d90cd 100644 --- a/gdb/testsuite/gdb.reverse/break-reverse.exp +++ b/gdb/testsuite/gdb.reverse/break-reverse.exp @@ -16,9 +16,7 @@ # This file is part of the GDB testsuite. It tests reverse debugging # with breakpoints. -if ![supports_reverse] { - return -} +require supports_reverse standard_testfile diff --git a/gdb/testsuite/gdb.reverse/consecutive-reverse.exp b/gdb/testsuite/gdb.reverse/consecutive-reverse.exp index 3988097..74ce081 100644 --- a/gdb/testsuite/gdb.reverse/consecutive-reverse.exp +++ b/gdb/testsuite/gdb.reverse/consecutive-reverse.exp @@ -16,9 +16,7 @@ # This file is part of the GDB testsuite. It tests stepping over # consecutive instructions in reverse. -if ![supports_reverse] { - return -} +require supports_reverse standard_testfile diff --git a/gdb/testsuite/gdb.reverse/finish-precsave.exp b/gdb/testsuite/gdb.reverse/finish-precsave.exp index 159ee35..5d8eaad 100644 --- a/gdb/testsuite/gdb.reverse/finish-precsave.exp +++ b/gdb/testsuite/gdb.reverse/finish-precsave.exp @@ -16,9 +16,7 @@ # This file is part of the GDB testsuite. It tests 'finish' with # reverse debugging. -if ![supports_reverse] { - return -} +require supports_reverse standard_testfile finish-reverse.c set precsave [standard_output_file finish.precsave] diff --git a/gdb/testsuite/gdb.reverse/finish-reverse-bkpt.exp b/gdb/testsuite/gdb.reverse/finish-reverse-bkpt.exp index 290ad24..2e9fc34 100644 --- a/gdb/testsuite/gdb.reverse/finish-reverse-bkpt.exp +++ b/gdb/testsuite/gdb.reverse/finish-reverse-bkpt.exp @@ -40,9 +40,7 @@ # addition to non-PowerPC systems. On non-PowerPC systems, the GEP and LEP # are the same. -if ![supports_reverse] { - return -} +require supports_reverse standard_testfile diff --git a/gdb/testsuite/gdb.reverse/finish-reverse.exp b/gdb/testsuite/gdb.reverse/finish-reverse.exp index 01ba309..76ca819 100644 --- a/gdb/testsuite/gdb.reverse/finish-reverse.exp +++ b/gdb/testsuite/gdb.reverse/finish-reverse.exp @@ -16,9 +16,7 @@ # This file is part of the GDB testsuite. It tests 'finish' with # reverse debugging. -if ![supports_reverse] { - return -} +require supports_reverse standard_testfile diff --git a/gdb/testsuite/gdb.reverse/fstatat-reverse.exp b/gdb/testsuite/gdb.reverse/fstatat-reverse.exp index dcbbed3..2d1ae90 100644 --- a/gdb/testsuite/gdb.reverse/fstatat-reverse.exp +++ b/gdb/testsuite/gdb.reverse/fstatat-reverse.exp @@ -19,9 +19,7 @@ # This test tests fstatat syscall for reverse execution. # -if ![supports_reverse] { - return -} +require supports_reverse standard_testfile diff --git a/gdb/testsuite/gdb.reverse/getrandom.exp b/gdb/testsuite/gdb.reverse/getrandom.exp index 1507bdb..ef88993 100644 --- a/gdb/testsuite/gdb.reverse/getrandom.exp +++ b/gdb/testsuite/gdb.reverse/getrandom.exp @@ -19,9 +19,7 @@ # This test tests getrandom syscall for reverse execution. # -if ![supports_reverse] { - return -} +require supports_reverse standard_testfile diff --git a/gdb/testsuite/gdb.reverse/getresuid-reverse.exp b/gdb/testsuite/gdb.reverse/getresuid-reverse.exp index 27a5fbf..20306f0 100644 --- a/gdb/testsuite/gdb.reverse/getresuid-reverse.exp +++ b/gdb/testsuite/gdb.reverse/getresuid-reverse.exp @@ -19,9 +19,7 @@ # This test tests getresuid/getresgid syscalls for reverse execution. # -if ![supports_reverse] { - return -} +require supports_reverse standard_testfile diff --git a/gdb/testsuite/gdb.reverse/i386-reverse.exp b/gdb/testsuite/gdb.reverse/i386-reverse.exp index aacb362..5fa7237 100644 --- a/gdb/testsuite/gdb.reverse/i386-reverse.exp +++ b/gdb/testsuite/gdb.reverse/i386-reverse.exp @@ -19,10 +19,7 @@ # This test tests some i386 general instructions for reverse execution. # -if ![supports_reverse] { - return -} - +require supports_reverse if {![is_x86_like_target]} { verbose "Skipping i386 reverse tests." diff --git a/gdb/testsuite/gdb.reverse/i386-sse-reverse.exp b/gdb/testsuite/gdb.reverse/i386-sse-reverse.exp index bc8f662..66a6977 100644 --- a/gdb/testsuite/gdb.reverse/i386-sse-reverse.exp +++ b/gdb/testsuite/gdb.reverse/i386-sse-reverse.exp @@ -19,10 +19,7 @@ # This test tests some i386 general instructions for reverse execution. # -if ![supports_reverse] { - return -} - +require supports_reverse if {![istarget "*86*-*linux*"]} { verbose "Skipping i386 reverse tests." diff --git a/gdb/testsuite/gdb.reverse/insn-reverse.exp b/gdb/testsuite/gdb.reverse/insn-reverse.exp index a732206..1a575b2 100644 --- a/gdb/testsuite/gdb.reverse/insn-reverse.exp +++ b/gdb/testsuite/gdb.reverse/insn-reverse.exp @@ -13,12 +13,7 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see <http://www.gnu.org/licenses/>. -if ![supports_reverse] { - return -} - -# Check if start command is supported. -require !use_gdb_stub +require supports_reverse !use_gdb_stub standard_testfile diff --git a/gdb/testsuite/gdb.reverse/machinestate.exp b/gdb/testsuite/gdb.reverse/machinestate.exp index eb6f9de..68412b4 100644 --- a/gdb/testsuite/gdb.reverse/machinestate.exp +++ b/gdb/testsuite/gdb.reverse/machinestate.exp @@ -35,9 +35,7 @@ # Test forward replay # -if ![supports_reverse] { - return -} +require supports_reverse standard_testfile .c ms1.c diff --git a/gdb/testsuite/gdb.reverse/next-reverse-bkpt-over-sr.exp b/gdb/testsuite/gdb.reverse/next-reverse-bkpt-over-sr.exp index 5c0e1e2..ee83c55 100644 --- a/gdb/testsuite/gdb.reverse/next-reverse-bkpt-over-sr.exp +++ b/gdb/testsuite/gdb.reverse/next-reverse-bkpt-over-sr.exp @@ -40,9 +40,7 @@ # addition to non-PowerPC systems. On non-PowerPC systems, the GEP and LEP # are the same. -if ![supports_reverse] { - return -} +require supports_reverse standard_testfile diff --git a/gdb/testsuite/gdb.reverse/pipe-reverse.exp b/gdb/testsuite/gdb.reverse/pipe-reverse.exp index 2b59071..d03c2c8 100644 --- a/gdb/testsuite/gdb.reverse/pipe-reverse.exp +++ b/gdb/testsuite/gdb.reverse/pipe-reverse.exp @@ -19,9 +19,7 @@ # This test tests pipe syscall for reverse execution. # -if ![supports_reverse] { - return -} +require supports_reverse standard_testfile diff --git a/gdb/testsuite/gdb.reverse/readv-reverse.exp b/gdb/testsuite/gdb.reverse/readv-reverse.exp index bd79a1f..565fbb7 100644 --- a/gdb/testsuite/gdb.reverse/readv-reverse.exp +++ b/gdb/testsuite/gdb.reverse/readv-reverse.exp @@ -19,9 +19,7 @@ # This test tests readv syscall for reverse execution. # -if ![supports_reverse] { - return -} +require supports_reverse standard_testfile diff --git a/gdb/testsuite/gdb.reverse/recvmsg-reverse.exp b/gdb/testsuite/gdb.reverse/recvmsg-reverse.exp index 58130a6..598321f 100644 --- a/gdb/testsuite/gdb.reverse/recvmsg-reverse.exp +++ b/gdb/testsuite/gdb.reverse/recvmsg-reverse.exp @@ -19,9 +19,7 @@ # This test tests socketpair and recvmsg syscalls for reverse execution. # -if ![supports_reverse] { - return -} +require supports_reverse standard_testfile diff --git a/gdb/testsuite/gdb.reverse/rerun-prec.exp b/gdb/testsuite/gdb.reverse/rerun-prec.exp index 6d6ce8a..d2fcdbd 100644 --- a/gdb/testsuite/gdb.reverse/rerun-prec.exp +++ b/gdb/testsuite/gdb.reverse/rerun-prec.exp @@ -13,9 +13,7 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see <http://www.gnu.org/licenses/>. */ -if {![supports_reverse] || ![supports_process_record]} { - return -} +require supports_reverse supports_process_record standard_testfile diff --git a/gdb/testsuite/gdb.reverse/s390-mvcle.exp b/gdb/testsuite/gdb.reverse/s390-mvcle.exp index 0d2db70..b089040 100644 --- a/gdb/testsuite/gdb.reverse/s390-mvcle.exp +++ b/gdb/testsuite/gdb.reverse/s390-mvcle.exp @@ -17,9 +17,7 @@ # This test tests s390 MVCLE opcode for reverse execution. # -if ![supports_reverse] { - return -} +require supports_reverse if { ! [istarget "s390*-*-*"] } { verbose "Skipping s390 MVCLE instruction recording tests." diff --git a/gdb/testsuite/gdb.reverse/sigall-precsave.exp b/gdb/testsuite/gdb.reverse/sigall-precsave.exp index 9212fb0..df0e822 100644 --- a/gdb/testsuite/gdb.reverse/sigall-precsave.exp +++ b/gdb/testsuite/gdb.reverse/sigall-precsave.exp @@ -18,10 +18,7 @@ if [target_info exists gdb,nosignals] { return } -if ![supports_reverse] { - return -} - +require supports_reverse gdb_exit gdb_start diff --git a/gdb/testsuite/gdb.reverse/sigall-reverse.exp b/gdb/testsuite/gdb.reverse/sigall-reverse.exp index 487cf42..7499d78 100644 --- a/gdb/testsuite/gdb.reverse/sigall-reverse.exp +++ b/gdb/testsuite/gdb.reverse/sigall-reverse.exp @@ -18,10 +18,7 @@ if [target_info exists gdb,nosignals] { return } -if ![supports_reverse] { - return -} - +require supports_reverse gdb_exit gdb_start diff --git a/gdb/testsuite/gdb.reverse/singlejmp-reverse.exp b/gdb/testsuite/gdb.reverse/singlejmp-reverse.exp index 1ca7c2c..bc7e687 100644 --- a/gdb/testsuite/gdb.reverse/singlejmp-reverse.exp +++ b/gdb/testsuite/gdb.reverse/singlejmp-reverse.exp @@ -13,9 +13,7 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see <http://www.gnu.org/licenses/>. -if ![supports_reverse] { - return -} +require supports_reverse standard_testfile ".S" "${gdb_test_file_name}-nodebug.S" set executable ${testfile} diff --git a/gdb/testsuite/gdb.reverse/solib-reverse.exp b/gdb/testsuite/gdb.reverse/solib-reverse.exp index 3cefa6c..b562ac9 100644 --- a/gdb/testsuite/gdb.reverse/solib-reverse.exp +++ b/gdb/testsuite/gdb.reverse/solib-reverse.exp @@ -16,12 +16,7 @@ # This file is part of the GDB testsuite. It tests reverse debugging # with shared libraries. -if ![supports_reverse] { - return -} -if {[skip_shlib_tests]} { - return -} +require supports_reverse !skip_shlib_tests standard_testfile set lib1file "shr1" diff --git a/gdb/testsuite/gdb.reverse/step-indirect-call-thunk.exp b/gdb/testsuite/gdb.reverse/step-indirect-call-thunk.exp index ad63789..94292d5 100644 --- a/gdb/testsuite/gdb.reverse/step-indirect-call-thunk.exp +++ b/gdb/testsuite/gdb.reverse/step-indirect-call-thunk.exp @@ -13,10 +13,7 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see <http://www.gnu.org/licenses/>. -if { ![supports_reverse] } { - untested "target does not support record" - return -1 -} +require supports_reverse standard_testfile diff --git a/gdb/testsuite/gdb.reverse/step-reverse.exp b/gdb/testsuite/gdb.reverse/step-reverse.exp index 27e4b17..2c3b95a 100644 --- a/gdb/testsuite/gdb.reverse/step-reverse.exp +++ b/gdb/testsuite/gdb.reverse/step-reverse.exp @@ -20,9 +20,7 @@ # Test step and next in reverse # -if ![supports_reverse] { - return -} +require supports_reverse standard_testfile diff --git a/gdb/testsuite/gdb.reverse/time-reverse.exp b/gdb/testsuite/gdb.reverse/time-reverse.exp index 73648af..07d55b3 100644 --- a/gdb/testsuite/gdb.reverse/time-reverse.exp +++ b/gdb/testsuite/gdb.reverse/time-reverse.exp @@ -19,9 +19,7 @@ # This test tests time syscall for reverse execution. # -if ![supports_reverse] { - return -} +require supports_reverse standard_testfile diff --git a/gdb/testsuite/gdb.reverse/until-reverse.exp b/gdb/testsuite/gdb.reverse/until-reverse.exp index 23fc881..c9d0c7e 100644 --- a/gdb/testsuite/gdb.reverse/until-reverse.exp +++ b/gdb/testsuite/gdb.reverse/until-reverse.exp @@ -16,9 +16,7 @@ # This file is part of the GDB testsuite. It tests 'until' and # 'advance' in reverse debugging. -if ![supports_reverse] { - return -} +require supports_reverse standard_testfile .c ur1.c diff --git a/gdb/testsuite/gdb.reverse/waitpid-reverse.exp b/gdb/testsuite/gdb.reverse/waitpid-reverse.exp index eb7e900..9c9b9d4 100644 --- a/gdb/testsuite/gdb.reverse/waitpid-reverse.exp +++ b/gdb/testsuite/gdb.reverse/waitpid-reverse.exp @@ -21,9 +21,7 @@ # Also serves as regression test for gdb/19187 (recording across a # fork). -if ![supports_reverse] { - return -} +require supports_reverse standard_testfile diff --git a/gdb/testsuite/gdb.reverse/watch-reverse.exp b/gdb/testsuite/gdb.reverse/watch-reverse.exp index c4144c1..6b81a6f 100644 --- a/gdb/testsuite/gdb.reverse/watch-reverse.exp +++ b/gdb/testsuite/gdb.reverse/watch-reverse.exp @@ -18,9 +18,7 @@ # with watchpoints. -if ![supports_reverse] { - return -} +require supports_reverse standard_testfile |