@@ -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 {![istarget "powerpc*-*-aix*"]} {
- return
-}
+require {istarget "powerpc*-*-aix*"}
if { [prepare_for_testing "failed to prepare" aix-sighandle aix-sighandle.c] } {
return -1
@@ -14,10 +14,7 @@
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-if {![istarget "alpha*-*-*"]} {
- verbose "Skipping alpha step tests."
- return
-}
+require {istarget "alpha*-*-*"}
set testfile "alpha-step"
set srcfile ${testfile}.c
@@ -22,10 +22,7 @@
#
require allow_altivec_tests
-if {![istarget "powerpc*"]} {
- verbose "Skipping altivec abi tests."
- return
-}
+require {istarget "powerpc*"}
standard_testfile
@@ -22,10 +22,7 @@
#
require allow_altivec_tests
-if {![istarget "powerpc*"]} {
- verbose "Skipping altivec register tests."
- return
-}
+require {istarget "powerpc*"}
standard_testfile
@@ -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 { ![istarget x86_64-*-* ] || ![is_lp64_target] } {
- return
-}
+require {istarget x86_64-*-*} is_lp64_target
standard_testfile .S
@@ -18,11 +18,7 @@
# This file is part of the gdb testsuite.
-
-if { ![istarget x86_64-*-* ] || ![is_lp64_target] } {
- verbose "Skipping amd64 byte register tests."
- return
-}
+require {istarget x86_64-*-*} is_lp64_target
standard_testfile amd64-pseudo.c
@@ -18,15 +18,7 @@
# Test displaced stepping over VEX-encoded RIP-relative AVX
# instructions.
-if { ![istarget x86_64-*-* ] || ![is_lp64_target] } {
- verbose "Skipping x86_64 displaced stepping tests."
- return
-}
-
-if { ![have_avx] } {
- verbose "Skipping x86_64 displaced stepping tests."
- return
-}
+require {istarget x86_64-*-*} is_lp64_target have_avx
standard_testfile .S
@@ -18,10 +18,7 @@
# Test amd64 displaced stepping.
-if { ![istarget x86_64-*-* ] || ![is_lp64_target] } {
- verbose "Skipping x86_64 displaced stepping tests."
- return
-}
+require {istarget x86_64-*-*} is_lp64_target
set newline "\[\r\n\]*"
@@ -18,11 +18,7 @@
# This file is part of the gdb testsuite.
-
-if { ![istarget x86_64-*-* ] || ![is_lp64_target] } {
- verbose "Skipping amd64 dword register tests."
- return
-}
+require {istarget x86_64-*-*} is_lp64_target
standard_testfile amd64-pseudo.c
@@ -20,9 +20,8 @@ if [info exists COMPILE] {
# make check RUNTESTFLAGS="gdb.arch/amd64-entry-value-inline.exp COMPILE=1"
standard_testfile
lappend opts debug optimize=-O2
-} elseif { ![istarget x86_64-*-* ] || ![is_lp64_target] } {
- verbose "Skipping ${testfile}."
- return
+} else {
+ require {istarget x86_64-*-*} is_lp64_target
}
if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} $opts] } {
@@ -20,9 +20,8 @@ if [info exists COMPILE] {
# make check RUNTESTFLAGS="gdb.arch/amd64-entry-value-param-dwarf5.exp COMPILE=1"
set srcfile ${srcfile2}
lappend opts optimize=-O2 additional_flags=-gdwarf-5
-} elseif { ![istarget x86_64-*-* ] || ![is_lp64_target] } {
- verbose "Skipping amd64-entry-value-param-dwarf5."
- return
+} else {
+ require {istarget x86_64-*-*} is_lp64_target
}
if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} $opts] } {
@@ -15,10 +15,7 @@
standard_testfile .S .cc
-if { ![istarget x86_64-*-* ] || ![is_lp64_target] } {
- verbose "Skipping amd64-entry-value-paramref."
- return
-}
+require {istarget x86_64-*-*} is_lp64_target
if { [prepare_for_testing_full "failed to prepare" \
[list $testfile "c++" $srcfile {}]] } {
@@ -20,9 +20,8 @@ if [info exists COMPILE] {
# make check RUNTESTFLAGS="gdb.arch/amd64-entry-value.exp COMPILE=1"
set srcfile ${testfile}.cc
lappend opts debug optimize=-O2
-} elseif { ![istarget x86_64-*-* ] || ![is_lp64_target] } {
- verbose "Skipping amd64-entry-value."
- return
+} else {
+ require {istarget x86_64-*-*} is_lp64_target
}
if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} $opts] } {
@@ -17,10 +17,7 @@
# This testcase exercises evaluation with amd64 calling conventions.
-if { ![istarget x86_64-*-* ] || ![is_lp64_target] } {
- verbose "Skipping x86_64 eval test."
- return
-}
+require {istarget x86_64-*-*} is_lp64_target
standard_testfile .cc
@@ -29,10 +29,7 @@
standard_testfile .S
-if { ![istarget x86_64-*-* ] || ![is_lp64_target] } {
- verbose "Skipping ${testfile}."
- return
-}
+require {istarget x86_64-*-*} is_lp64_target
if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} {nopie}] } {
return -1
@@ -30,10 +30,8 @@
set opts {}
standard_testfile .c
-if { ![istarget x86_64-*-* ] || ![is_lp64_target] } {
- verbose "Skipping ${testfile}."
- return
-}
+require {istarget x86_64-*-*} is_lp64_target
+
if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} $opts] } {
return -1
}
@@ -20,9 +20,8 @@ if [info exists COMPILE] {
# make check RUNTESTFLAGS="gdb.arch/amd64-optimout-repeat.exp COMPILE=1"
set srcfile ${srcfile2}
lappend opts debug optimize=-O2
-} elseif { ![istarget x86_64-*-* ] || ![is_lp64_target] } {
- verbose "Skipping amd64-optimout-repeat."
- return
+} else {
+ require {istarget x86_64-*-*} is_lp64_target
}
if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} $opts] } {
@@ -15,11 +15,7 @@
# Verify that gdbarches for i386 variants and osabi none are properly created.
-if { ![istarget x86_64-*-* ] } {
- untested "skipping x86-64 specific test"
- return
-}
-
+require {istarget x86_64-*-*}
proc test_osabi_none { arch void_ptr_size long_double_size } {
clean_restart
@@ -16,10 +16,7 @@
standard_testfile .S
set binfile ${binfile}.o
-if { ![istarget x86_64-*-* ] || ![is_lp64_target] } {
- verbose "Skipping ${testfile}."
- return
-}
+require {istarget x86_64-*-*} is_lp64_target
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" object {debug}] != "" } {
untested "failed to compile"
@@ -24,9 +24,8 @@ if [info exists COMPILE] {
# make check RUNTESTFLAGS='gdb.arch/amd64-prologue-xmm.exp COMPILE=1'
set srcfile ${csrcfile}
lappend opts debug optimize=-O0
-} elseif { ![istarget x86_64-*-* ] || ![is_lp64_target] } {
- verbose "Skipping amd64-prologue-xmm test."
- return 0
+} else {
+ require {istarget x86_64-*-*} is_lp64_target
}
if {[prepare_for_testing "failed to prepare" ${binfile} $srcfile $opts]} {
@@ -15,10 +15,7 @@
standard_testfile ".S"
-if { ![istarget "x86_64-*-*"] || ![is_lp64_target] } {
- verbose "Skipping $testfile.exp"
- return
-}
+require {istarget x86_64-*-*} is_lp64_target
if { [prepare_for_testing "failed to prepare" $testfile $srcfile] } {
return -1
@@ -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 { ![istarget "x86_64-*-*"] || ![is_lp64_target] } {
- verbose "Skipping amd64-stap-special-operands.exp"
- return
-}
+require {istarget x86_64-*-*} is_lp64_target
proc test_probe { probe_name } {
with_test_prefix "probe: ${probe_name}" {
@@ -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 { ![istarget "x86_64-*-*"] || ![is_lp64_target] } {
- verbose "Skipping amd64-stap-wrong-subexp.exp"
- return
-}
+require {istarget x86_64-*-*} is_lp64_target
standard_testfile amd64-stap-wrong-subexp.S
@@ -20,9 +20,8 @@ if [info exists COMPILE] {
# make check RUNTESTFLAGS="gdb.arch/amd64-tailcall-cxx.exp COMPILE=1"
standard_testfile amd64-tailcall-cxx1.cc amd64-tailcall-cxx2.cc
lappend opts debug optimize=-O2
-} elseif { ![istarget x86_64-*-* ] || ![is_lp64_target] } {
- verbose "Skipping ${testfile}."
- return
+} else {
+ require {istarget x86_64-*-*} is_lp64_target
}
if { [prepare_for_testing "failed to prepare" ${testfile} "${srcfile} ${srcfile2}" $opts] } {
@@ -20,9 +20,8 @@ if [info exists COMPILE] {
# make check RUNTESTFLAGS="gdb.arch/amd64-tailcall-noret.exp COMPILE=1"
standard_testfile
lappend opts debug optimize=-O2
-} elseif { ![istarget x86_64-*-* ] || ![is_lp64_target] } {
- verbose "Skipping ${testfile}."
- return
+} else {
+ require {istarget x86_64-*-*} is_lp64_target
}
lappend opts nopie
@@ -15,10 +15,7 @@
standard_testfile .S
-if { ![istarget x86_64-*-* ] || ![is_lp64_target] } {
- verbose "Skipping ${testfile}."
- return
-}
+require {istarget x86_64-*-*} is_lp64_target
if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile} {}] } {
return -1
@@ -18,11 +18,7 @@
# This file is part of the gdb testsuite.
-
-if { ![istarget x86_64-*-* ] || ![is_lp64_target] } {
- verbose "Skipping amd64 word register tests."
- return
-}
+require {istarget x86_64-*-*} is_lp64_target
standard_testfile amd64-pseudo.c
@@ -15,10 +15,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 {![istarget "arc*-*-*"]} {
- verbose "Skipping ARC prologue test."
- return
-}
+require {istarget "arc*-*-*"}
standard_testfile .S
@@ -31,10 +31,7 @@
# about requirements to actual test cases can be found in corresponding
# assembly file of this test case (arc-decode-insn.S).
-if {![istarget "arc*-*-*"]} {
- verbose "Skipping ARC decoder test."
- return
-}
+require {istarget "arc*-*-*"}
standard_testfile .S
@@ -15,10 +15,7 @@
# Test ARC disassembler options.
-if {![istarget "arc-*-*"]} {
- verbose "Skipping ARC disassembler option test."
- return
-}
+require {istarget "arc-*-*"}
standard_testfile .s
set objfile [standard_output_file ${testfile}.o]
@@ -15,9 +15,7 @@
# This file is part of the gdb testsuite.
-if { ![istarget "arm*-*-*"]} {
- return 1
-}
+require {istarget "arm*-*-*"}
standard_testfile
if { [prepare_for_testing "failed to prepare" $testfile $srcfile ]} {
@@ -18,10 +18,7 @@
# This test exercises set/show disassembler-options results are preserved
# across multiple set architecture calls.
-if {![istarget "arm*-*-*"]} {
- verbose "Skipping ARM disassembler options."
- return
-}
+require {istarget "arm*-*-*"}
gdb_exit
gdb_start
@@ -18,10 +18,7 @@
# Contributed by Pierre Langlois <pierre.langlois@embecosm.com>
# Tests for the AVR __flash named address space qualifier.
-if {![istarget "avr*"]} {
- verbose "Skipping ${gdb_test_file_name}."
- return
-}
+require {istarget "avr*"}
# The __flash qualifier was added in GCC 4.7.
if {[test_compiler_info {gcc-[0-4]-[0-6]}]} {
@@ -21,11 +21,7 @@
# This file uses e500-abi.c for input.
#
-
-if {![istarget "powerpc-*eabispe"]} {
- verbose "Skipping e500 abi tests."
- return
-}
+require {istarget "powerpc-*eabispe"}
set testfile "e500-abi"
set binfile ${objdir}/${subdir}/${testfile}
@@ -17,11 +17,7 @@
# Test PowerPC E500 prologue analyzer.
-
-if {![istarget "powerpc-*"]} {
- verbose "Skipping powerpc E500 prologue tests."
- return
-}
+require {istarget "powerpc-*"}
set testfile "e500-prologue"
set srcfile ${testfile}.c
@@ -21,11 +21,7 @@
# This file uses e500-regs.c for input.
#
-
-if {![istarget "powerpc-*eabispe"]} {
- verbose "Skipping e500 register tests."
- return
-}
+require {istarget "powerpc-*eabispe"}
set testfile "e500-regs"
set binfile ${objdir}/${subdir}/${testfile}
@@ -23,11 +23,7 @@
# Test SH backtraces with >256 byte frame stack. (PR:1291)
-
-if {![istarget "sh-*-*"]} {
- verbose "Skipping SH backtrace tests."
- return
-}
+require {istarget "sh-*-*"}
set testfile "gdb1291"
set srcfile ${testfile}.s
@@ -25,11 +25,7 @@
# Observe that the until command doesn't go all the way to sub2.
-
-if {![istarget "sh-*-*"]} {
- verbose "Skipping SH backtrace tests."
- return
-}
+require {istarget "sh-*-*"}
set testfile "gdb1431"
set srcfile ${testfile}.s
@@ -21,11 +21,7 @@
# Tests for PR:1558. Hits breakpoint at main after function called
# from main.
-
-if {![istarget "sh-*-*"]} {
- verbose "Skipping SH breakpoint test."
- return
-}
+require {istarget "sh-*-*"}
set testfile "gdb1558"
set srcfile ${testfile}.c
@@ -24,10 +24,7 @@ if { ![istarget i?86-*-*] && ![istarget x86_64-*-* ] } {
return
}
-if { ![have_avx] } {
- verbose "Skipping x86 AVX tests."
- return
-}
+require have_avx
standard_testfile .c
@@ -21,14 +21,7 @@ if { ![istarget i?86-*-*] && ![istarget x86_64-*-* ] } {
standard_testfile
-if { ![supports_mpx_check_pointer_bounds] } {
- return -1
-}
-
-if { ![have_mpx] } {
- unsupported "processor does not support MPX"
- return -1
-}
+require supports_mpx_check_pointer_bounds have_mpx
set comp_flags "-mmpx -fcheck-pointer-bounds -I${srcdir}/../nat"
@@ -23,14 +23,7 @@ if { ![istarget i?86-*-*] && ![istarget x86_64-*-* ] } {
standard_testfile
-if { ![supports_mpx_check_pointer_bounds] } {
- return -1
-}
-
-if { ![have_mpx] } {
- unsupported "processor does not support MPX"
- return -1
-}
+require supports_mpx_check_pointer_bounds have_mpx
set comp_flags "-mmpx -fcheck-pointer-bounds -I${srcdir}/../nat/"
@@ -23,14 +23,7 @@ if { ![istarget i?86-*-*] && ![istarget x86_64-*-* ] } {
standard_testfile
-if { ![supports_mpx_check_pointer_bounds] } {
- return -1
-}
-
-if { ![have_mpx] } {
- unsupported "processor does not support MPX"
- return -1
-}
+require supports_mpx_check_pointer_bounds have_mpx
set comp_flags "-mmpx -fcheck-pointer-bounds -I${srcdir}/../nat/"
@@ -29,14 +29,7 @@ if { ![istarget i?86-*-*] && ![istarget x86_64-*-* ] } {
standard_testfile
-if { ![supports_mpx_check_pointer_bounds] } {
- return -1
-}
-
-if { ![have_mpx] } {
- unsupported "processor does not support MPX"
- return -1
-}
+require supports_mpx_check_pointer_bounds have_mpx
set comp_flags "-mmpx -fcheck-pointer-bounds -I${srcdir}/../nat/"
@@ -27,14 +27,7 @@ if { ![istarget i?86-*-*] && ![istarget x86_64-*-* ] } {
return
}
-if { ![supports_mpx_check_pointer_bounds] } {
- return -1
-}
-
-if { ![have_mpx] } {
- unsupported "processor does not support MPX"
- return -1
-}
+require supports_mpx_check_pointer_bounds have_mpx
set comp_flags "-mmpx -fcheck-pointer-bounds -I${srcdir}/../nat/"
@@ -27,10 +27,7 @@ if { ![istarget x86_64-*-*] && ![istarget i?86-*-*] } {
return
}
-if { ![supports_fcf_protection] } {
- untested "-fcf-protection not supported"
- return
-}
+require supports_fcf_protection
set opts {debug additional_flags=-fcf-protection=full}
@@ -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 ![istarget "ia64-*-*"] {
- verbose "Skipping ia64-breakpoint-shadow test."
- return
-}
+require {istarget "ia64-*-*"}
set testfile ia64-breakpoint-shadow
set srcfile ${testfile}.S
@@ -16,10 +16,7 @@
# Tests for ARM iWMMXt register setting and fetching.
-if {![istarget "arm*-*-*"]} {
- verbose "Skipping iWMMXt register tests."
- return
-}
+require {istarget "arm*-*-*"}
set testfile "iwmmxt-regs"
set binfile ${objdir}/${subdir}/${testfile}
@@ -15,10 +15,7 @@
# Test MIPS disassembler options.
-if {![istarget "mips*-*-*"]} {
- verbose "Skipping MIPS disassembler option tests."
- return
-}
+require {istarget "mips*-*-*"}
standard_testfile .s
set objfile [standard_output_file ${testfile}.o]
@@ -17,10 +17,7 @@
# Test MIPS Floating Point Control Register handling.
-if {![istarget "mips*-*-*"]} {
- verbose "Skipping MIPS Floating Point Control Register tests."
- return
-}
+require {istarget "mips*-*-*"}
standard_testfile
@@ -15,10 +15,7 @@
# Test MIPS Floating Point General Register handling in core files.
-if {![istarget "mips*-*-*"]} {
- verbose "Skipping MIPS Floating Point General Register tests."
- return
-}
+require {istarget "mips*-*-*"}
standard_testfile
@@ -15,9 +15,7 @@
# Test single-step on bbit.
-if ![istarget "*octeon*"] {
- return -1
-}
+require {istarget "*octeon*"}
proc current_insn {} {
global gdb_prompt
@@ -25,10 +25,7 @@
# toolchain for a subset of ABIs, so we need to check that a MIPS16
# executable can be built and run at all before we attempt the actual test.
-if {![istarget "mips*-*-*"]} {
- verbose "Skipping MIPS16 thunk support tests."
- return
-}
+require {istarget "mips*-*-*"}
# A helper to set caller's SRCFILE and OBJFILE based on FILENAME and SUFFIX.
proc set_src_and_obj { filename { suffix "" } } {
@@ -24,10 +24,7 @@
# lnia Rx == addpcis Rx,0
# subcis Rx,value == addpcis Rx,-value
-if { ![istarget powerpc*-*] } {
- verbose "Skipping powerpc addpcis test."
- return
-}
+require {istarget powerpc*-*}
set retval 0
@@ -18,10 +18,7 @@
# Test rs6000 prologue analyzer.
-if {![istarget "powerpc-*-aix*"]} {
- verbose "Skipping powerpc-aix prologue tests."
- return
-}
+require {istarget "powerpc-*-aix*"}
set testfile "powerpc-aix-prologue"
set srcfile ${testfile}.c
@@ -20,10 +20,7 @@
standard_testfile .s
set objfile [standard_output_file ${testfile}.o]
-if {![istarget "powerpc*-*-*"]} {
- verbose "Skipping PowerPC instructions disassembly."
- return
-}
+require {istarget "powerpc*-*-*"}
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${objfile}" object {debug}] != "" } {
untested "PowerPC instructions disassembly"
@@ -20,10 +20,7 @@
standard_testfile .s
set objfile [standard_output_file ${testfile}.o]
-if {![istarget "powerpc*-*-*"]} {
- verbose "Skipping PowerPC instructions disassembly."
- return
-}
+require {istarget "powerpc*-*-*"}
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${objfile}" object {debug}] != "" } {
untested "PowerPC instructions disassembly"
@@ -20,10 +20,7 @@
standard_testfile .s
set objfile [standard_output_file ${testfile}.o]
-if {![istarget "powerpc*-*-*"]} {
- verbose "Skipping PowerPC instructions disassembly."
- return
-}
+require {istarget "powerpc*-*-*"}
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${objfile}" object {debug}] != "" } {
untested "PowerPC instructions disassembly"
@@ -20,10 +20,7 @@
# Testcase for ppc decimal128 pseudo-registers.
-if {![istarget "powerpc64*-*"]} {
- verbose "Skipping powerpc Decimal128 pseudo-registers testcase."
- return
-}
+require {istarget "powerpc64*-*"}
standard_testfile
@@ -18,10 +18,7 @@
# This test exercises set/show disassembler-options results are preserved
# across multiple set architecture calls.
-if {![istarget "powerpc*-*-*"]} {
- verbose "Skipping PowerPC disassembler options."
- return
-}
+require {istarget "powerpc*-*-*"}
gdb_exit
gdb_start
@@ -18,10 +18,7 @@
# This tests checks that generating and loading a core file preserves
# the correct FPSCR size.
-if {![istarget "powerpc*-*-linux*"]} {
- verbose "Skipping PowerPC test for corefiles with FPSCR."
- return
-}
+require {istarget "powerpc*-*-linux*"}
standard_testfile .c
@@ -25,10 +25,7 @@
# registers are then checked against the saved values, because the
# abort should have reverted the registers to these values.
-if {![istarget "powerpc*-*-linux*"]} {
- verbose "Skipping PowerPC test for HTM registers."
- return
-}
+require {istarget "powerpc*-*-linux*"}
standard_testfile .c .gen.c
@@ -23,10 +23,7 @@
# lnia Rx == addpcis Rx,0 == lnia Rx
# subcis Rx,value == addpcis Rx,-value
-if { ![istarget powerpc*-*] } {
- verbose "Skipping powerpc lnia test."
- return
-}
+require {istarget powerpc*-*}
set retval 0
@@ -16,11 +16,7 @@
# Test to see if gdb is properly single stepping over the
# displaced plxv instruction.
-if { ![istarget powerpc*-*] } {
- verbose "Skipping powerpc ISA 3.1 plxv test."
- return
-}
-require allow_power_isa_3_1_tests
+require {istarget powerpc*-*} allow_power_isa_3_1_tests
set retval 0
@@ -20,10 +20,7 @@
standard_testfile .s
set objfile [standard_output_file ${testfile}.o]
-if {![istarget "powerpc*-*-*"]} {
- verbose "Skipping PowerPC instructions disassembly."
- return
-}
+require {istarget "powerpc*-*-*"}
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${objfile}" object {debug}] != "" } {
untested "PowerPC instructions disassembly"
@@ -20,10 +20,7 @@
standard_testfile .s
set objfile [standard_output_file ${testfile}.o]
-if {![istarget "powerpc*-*-*"]} {
- verbose "Skipping PowerPC instructions disassembly."
- return
-}
+require {istarget "powerpc*-*-*"}
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${objfile}" object {debug}] != "" } {
untested "PowerPC instructions disassembly"
@@ -20,10 +20,7 @@
standard_testfile .s
set objfile [standard_output_file ${testfile}.o]
-if {![istarget "powerpc*-*-*"]} {
- verbose "Skipping PowerPC instructions disassembly."
- return
-}
+require {istarget "powerpc*-*-*"}
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${objfile}" object {debug}] != "" } {
untested "PowerPC instructions disassembly"
@@ -20,10 +20,7 @@
standard_testfile .s
set objfile [standard_output_file ${testfile}.o]
-if {![istarget "powerpc*-*-*"]} {
- verbose "Skipping PowerPC instructions disassembly."
- return
-}
+require {istarget "powerpc*-*-*"}
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${objfile}" object {debug}] != "" } {
untested "PowerPC instructions disassembly"
@@ -20,10 +20,7 @@
# values, then write to the registers trough GDB, step once, and check
# again if we read back the same values.
-if {![istarget "powerpc*-*-linux*"]} {
- verbose "Skipping PowerPC test for PPR and DSCR registers."
- return
-}
+require {istarget "powerpc*-*-linux*"}
standard_testfile .c
@@ -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 {![istarget "powerpc-*-*"] } {
- verbose "Skipping powerpc back trace test."
- return
-}
+require {istarget "powerpc-*-*"}
standard_testfile .c .S
set binfile [standard_output_file ${testfile}]
@@ -17,10 +17,7 @@
# Do not run on AIX (where we won't be able to build the tests without
# some surgery) or on PowerPC64 (ditto, dot symbols).
-if {[istarget *-*-aix*] || ![istarget "powerpc-*-*"]} {
- verbose "Skipping PowerPC prologue tests."
- return
-}
+require {!istarget *-*-aix*} {istarget "powerpc-*-*"}
set testfile "powerpc-prologue"
set srcfile ${testfile}.c
@@ -15,10 +15,7 @@
# Testcase for PR tdep/17379.
-if {![istarget "powerpc*-*-*"]} {
- verbose "Skipping powerpc-stackless.exp"
- return
-}
+require {istarget "powerpc*-*-*"}
standard_testfile .S
@@ -22,10 +22,7 @@
# branch to TAR and check that we stop at the address that we wrote to
# register.
-if {![istarget "powerpc*-*-linux*"]} {
- verbose "Skipping PowerPC test for the TAR register."
- return
-}
+require {istarget "powerpc*-*-linux*"}
standard_testfile .c
@@ -20,11 +20,7 @@
# 0 to 31 in each of the 16 bytes of each corresponding register, and
# we then check if gdb sees these same values.
-require allow_altivec_tests
-if {![istarget "powerpc*"]} {
- verbose "Skipping PowerPC vector register tests."
- return
-}
+require allow_altivec_tests {[istarget "powerpc*"}
standard_testfile
@@ -18,11 +18,7 @@
# This test checks that generating and loading a core file preserves
# the correct VSX register state.
-if {![istarget "powerpc*-*-linux*"]} {
- verbose "Skipping PowerPC test for corefiles with VSX registers."
- return
-}
-require allow_vsx_tests
+require {istarget "powerpc*-*-linux*"} allow_vsx_tests
standard_testfile .c
@@ -20,10 +20,7 @@
standard_testfile .s
set objfile [standard_output_file ${testfile}.o]
-if {![istarget "powerpc*-*-*"]} {
- verbose "Skipping PowerPC instructions disassembly."
- return
-}
+require {istarget "powerpc*-*-*"}
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${objfile}" object {debug}] != "" } {
untested "PowerPC instructions disassembly"
@@ -20,10 +20,7 @@
standard_testfile .s
set objfile [standard_output_file ${testfile}.o]
-if {![istarget "powerpc*-*-*"]} {
- verbose "Skipping PowerPC instructions disassembly."
- return
-}
+require {istarget "powerpc*-*-*"}
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${objfile}" object {debug}] != "" } {
untested "PowerPC instructions disassembly"
@@ -20,10 +20,7 @@
standard_testfile .s
set objfile [standard_output_file ${testfile}.o]
-if {![istarget "powerpc*-*-*"]} {
- verbose "Skipping PowerPC instructions disassembly."
- return
-}
+require {istarget "powerpc*-*-*"}
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${objfile}" object {debug}] != "" } {
untested "PowerPC instructions disassembly"
@@ -17,10 +17,7 @@
# Do not run on AIX (where we won't be able to build the tests without
# some surgery) or on PowerPC64 (ditto, dot symbols).
-if {[istarget *-*-aix*] || ![istarget "powerpc*-*-*"]} {
- verbose "Skipping PowerPC prologue tests."
- return
-}
+require {!istarget *-*-aix*} {istarget "powerpc*-*-*"}
standard_testfile .c
@@ -16,10 +16,7 @@
# Tests for Powerpc Decimal Floating Point registers setting and fetching
-if {![istarget "powerpc*"]} {
- verbose "Skipping powerpc decimal floating point register tests."
- return
-}
+require {istarget "powerpc*"}
standard_testfile
@@ -16,10 +16,7 @@
# Tests for Powerpc floating point register setting and fetching
-if {![istarget "powerpc*"]} {
- verbose "Skipping powerpc floating point register tests."
- return
-}
+require {istarget "powerpc*"}
standard_testfile
@@ -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 {![istarget "powerpc*"]} {
- verbose "Skipping powerpc long-double floating point tests."
- return
-}
+require {istarget "powerpc*"}
standard_testfile
@@ -19,11 +19,7 @@
# a lwarx/ldarx instruction and ending with a stwcx/stdcx
# instruction.
-
-if {![istarget "powerpc*"] || ![is_lp64_target]} {
- verbose "Skipping testing of powerpc64 single stepping over atomic sequences."
- return
-}
+require {istarget "powerpc*"} is_lp64_target
standard_testfile .S
@@ -23,10 +23,7 @@
# read, then that functionality might not be used because f.i.
# line-info is used instead. So, we use nodebug.
-if {![istarget "powerpc*"] || ![is_lp64_target]} {
- unsupported "Not powerpc64"
- return
-}
+require {istarget "powerpc*"} is_lp64_target
set flags { nodebug }
if [info exists COMPILE] {
@@ -21,10 +21,7 @@
# were introduced in ISA 2.06, they were implemented only in POWER8 (ISA 2.07).
-if {![istarget "powerpc*"] || ![is_lp64_target]} {
- untested "skipping powerpc isa 207 atomic sequences test"
- return
-}
+require {istarget "powerpc*"} is_lp64_target
standard_testfile .c .S
@@ -16,10 +16,7 @@
# Test GDB for RISC-V always uses an uncompressed breakpoint when
# setting up for an inferior call.
-if {![istarget "riscv*-*-*"]} {
- verbose "Skipping ${gdb_test_file_name}."
- return
-}
+require {istarget "riscv*-*-*"}
standard_testfile
@@ -23,10 +23,7 @@
#
# In all other cases the default will be RV64.
-if {![istarget "riscv*-*-*"]} {
- verbose "Skipping ${gdb_test_file_name}."
- return
-}
+require {istarget "riscv*-*-*"}
# Start GDB with no executable.
gdb_start
@@ -16,12 +16,7 @@
# Check the formatting of the fcsr, fflags, and frm registers in the
# output of the 'info registers' command.
-if {![istarget "riscv*-*-*"]} {
- verbose "Skipping ${gdb_test_file_name}."
- return
-}
-
-require allow_float_test
+require {istarget "riscv*-*-*"} allow_float_test
standard_testfile
@@ -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 {![istarget "riscv*-*-*"]} {
- verbose "Skipping ${gdb_test_file_name}."
- return
-}
+require {istarget "riscv*-*-*"}
standard_testfile
@@ -15,10 +15,7 @@
# Check that we can load different RISC-V target descriptions.
-if {![istarget "riscv*-*-*"]} {
- verbose "Skipping ${gdb_test_file_name}."
- return
-}
+require {istarget "riscv*-*-*"}
clean_restart
@@ -17,10 +17,7 @@
# loading a new target description file, and which registers show up
# in the output of the 'info registers' command.
-if {![istarget "riscv*-*-*"]} {
- verbose "Skipping ${gdb_test_file_name}."
- return
-}
+require {istarget "riscv*-*-*"}
standard_testfile
@@ -22,10 +22,7 @@
# prologue. We trick GDB into parsing the fake instruction by tail
# calling from a different function, 'bar' to the middle of 'func'.
-if {![istarget "riscv*-*-*"]} {
- verbose "Skipping ${gdb_test_file_name}."
- return
-}
+require {istarget "riscv*-*-*"}
standard_testfile riscv-unwind-long-insn.c \
riscv-unwind-long-insn.S
@@ -16,10 +16,7 @@
# This tests GDB's ability to use the RISC-V prologue scanner in order to
# unwind through a function that uses the 'ld' instruction in its prologue.
-if {![istarget "riscv64-*-*"]} {
- verbose "Skipping ${gdb_test_file_name}."
- return
-}
+require {istarget "riscv64-*-*"}
standard_testfile riscv64-unwind-prologue-with-ld-lw.c \
riscv64-unwind-prologue-with-ld-lw-foo.s
@@ -16,10 +16,7 @@
# This tests GDB's ability to use the RISC-V prologue scanner in order to
# unwind through a function that uses the 'c.mv' instruction in its prologue.
-if {![istarget "riscv64-*-*"]} {
- verbose "Skipping ${gdb_test_file_name}."
- return
-}
+require {istarget "riscv64-*-*"}
standard_testfile .c .s
if {[prepare_for_testing "failed to prepare" $testfile \
@@ -23,11 +23,7 @@
# running native. It should be executed on a sufficiently new Linux
# kernel that provides the 'system_call' regset.
-require isnative
-if { ![istarget s390x-*-* ] } {
- verbose "Skipping s390 multi-arch tests."
- return
-}
+require isnative {istarget s390x-*-*}
standard_testfile
set binprefix $binfile
@@ -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 {![istarget "s390*-*-*"]} {
- verbose "Skipping s390 stackless test."
- return
-}
+require {istarget "s390*-*-*"}
standard_testfile .S
@@ -21,9 +21,7 @@
# PC must be extracted from the sigreturn register save area in the
# stack.
-if {![istarget "sparc*-*-linux*"]} {
- return 0
-}
+require {istarget "sparc*-*-linux*"}
set testfile sparc-sysstep
set srcfile ${testfile}.c
@@ -18,10 +18,7 @@
# Basic tests of examining/assigning ADI version tags, and reporting
# precise mismatch.
-if {![istarget "sparc64*-*-linux*"]} {
- verbose "Skipping sparc64 ADI test."
- return 0
-}
+require {istarget "sparc64*-*-linux*"}
standard_testfile
@@ -18,10 +18,7 @@
# Tests decoding of various sparc64 registers.
# At the moment, only few registers are tested, but more can be added in future.
-if {![istarget "sparc64*-*-linux*"]} {
- verbose "Skipping sparc64 register tests."
- return 0
-}
+require {istarget "sparc64*-*-linux*"}
standard_testfile .S
@@ -15,10 +15,7 @@
# Test single stepping over Thumb-2 IT blocks.
-if {![istarget arm*-*eabi*]} {
- verbose "Skipping Thumb-2 tests."
- return
-}
+require {istarget arm*-*eabi*}
standard_testfile .S
@@ -19,11 +19,7 @@
#
-if {![istarget "powerpc*"]} {
- verbose "Skipping vsx register tests."
- return
-}
-require allow_vsx_tests
+require {istarget "powerpc*"} allow_vsx_tests
standard_testfile
@@ -18,11 +18,7 @@
# Test the vsr registers print values in float128 bit format.
#
-if {![istarget "powerpc*"]} {
- verbose "Skipping vsr float128 field tests."
- return
-}
-require allow_vsx_tests
+require {istarget "powerpc*"} allow_vsx_tests
standard_testfile
@@ -22,17 +22,7 @@
set data_overlays 1
-if {[istarget "m32r-*-*"]} {
- set linker_script "${srcdir}/${subdir}/m32r.ld"
-} else {
- verbose "Skipping overlay test -- not implemented for this target."
- return
-}
-
-if {[istarget "*-*-linux*"]} {
- verbose "Skipping overlay test -- Linux doesn't support overlayed programs."
- return
-}
+require {istarget "m32r-*-*"} {!istarget "*-*-linux*"}
standard_testfile overlays.c ovlymgr.c foo.c bar.c baz.c grbx.c
@@ -16,10 +16,7 @@
# This file was written by Jeff Law. (law@cygnus.com)
-if ![istarget "mn10300*-*-*"] {
- verbose "Tests ignored for all but mn10300 based targets."
- return
-}
+require {istarget "mn10300*-*-*"}
global exec_output
@@ -15,10 +15,7 @@
# This file was written by Kazu Hirata. (kazu@hxi.com)
-if ![istarget "h8300*-*-*"] {
- verbose "Tests ignored for all but h8300s based targets."
- return
-}
+require {istarget "h8300*-*-*"}
set testfile "h8300s"
@@ -16,12 +16,7 @@
# This file was written by Jeff Law. (law@cs.utah.edu)
-if ![istarget "hppa*-*-*"] {
- verbose "Tests ignored for all but hppa based targets."
- return
-}
-
-
+require {istarget "hppa*-*-*"}
set testfile "hppa"
set srcfile ${srcdir}/${subdir}/${testfile}.s
@@ -16,10 +16,7 @@
# This file was written by Jeff Law. (law@cygnus.com)
-if ![istarget "mn10300*-*-*"] {
- verbose "Tests ignored for all but mn10300 based targets."
- return
-}
+require {istarget "mn10300*-*-*"}
global exec_output
@@ -15,10 +15,7 @@
# This file was written by Jeff Law. (law@cs.utah.edu)
-if ![istarget "sh3*-*-*"] {
- verbose "Tests ignored for all but sh3 based targets."
- return
-}
+require {istarget "sh3*-*-*"}
set testfile "sh3"
@@ -15,10 +15,7 @@
# This file was written by Michael Snyder (msnyder@redhat.com)
-if ![istarget "h8300*-*-*"] {
- verbose "Tests ignored for all but h8300s based targets."
- return
-}
+require {istarget "h8300*-*-*"}
set testfile "t01_mov"
@@ -15,10 +15,7 @@
# This file was written by Michael Snyder (msnyder@redhat.com)
-if ![istarget "h8300*-*-*"] {
- verbose "Tests ignored for all but h8300s based targets."
- return
-}
+require {istarget "h8300*-*-*"}
set testfile "t02_mova"
@@ -15,10 +15,7 @@
# This file was written by Michael Snyder (msnyder@redhat.com)
-if ![istarget "h8300*-*-*"] {
- verbose "Tests ignored for all but h8300s based targets."
- return
-}
+require {istarget "h8300*-*-*"}
set testfile "t03_add"
@@ -15,10 +15,7 @@
# This file was written by Michael Snyder (msnyder@redhat.com)
-if ![istarget "h8300*-*-*"] {
- verbose "Tests ignored for all but h8300s based targets."
- return
-}
+require {istarget "h8300*-*-*"}
set testfile "t04_sub"
@@ -15,10 +15,7 @@
# This file was written by Michael Snyder (msnyder@redhat.com)
-if ![istarget "h8300*-*-*"] {
- verbose "Tests ignored for all but h8300s based targets."
- return
-}
+require {istarget "h8300*-*-*"}
set testfile "t05_cmp"
@@ -15,10 +15,7 @@
# This file was written by Michael Snyder (msnyder@redhat.com)
-if ![istarget "h8300*-*-*"] {
- verbose "Tests ignored for all but h8300s based targets."
- return
-}
+require {istarget "h8300*-*-*"}
set testfile "t06_ari2"
@@ -15,10 +15,7 @@
# This file was written by Michael Snyder (msnyder@redhat.com)
-if ![istarget "h8300*-*-*"] {
- verbose "Tests ignored for all but h8300s based targets."
- return
-}
+require {istarget "h8300*-*-*"}
set testfile "t07_ari3"
@@ -15,10 +15,7 @@
# This file was written by Michael Snyder (msnyder@redhat.com)
-if ![istarget "h8300*-*-*"] {
- verbose "Tests ignored for all but h8300s based targets."
- return
-}
+require {istarget "h8300*-*-*"}
set testfile "t08_or"
@@ -15,10 +15,7 @@
# This file was written by Michael Snyder (msnyder@redhat.com)
-if ![istarget "h8300*-*-*"] {
- verbose "Tests ignored for all but h8300s based targets."
- return
-}
+require {istarget "h8300*-*-*"}
set testfile "t09_xor"
@@ -15,10 +15,7 @@
# This file was written by Michael Snyder (msnyder@redhat.com)
-if ![istarget "h8300*-*-*"] {
- verbose "Tests ignored for all but h8300s based targets."
- return
-}
+require {istarget "h8300*-*-*"}
set testfile "t10_and"
@@ -15,10 +15,7 @@
# This file was written by Michael Snyder (msnyder@redhat.com)
-if ![istarget "h8300*-*-*"] {
- verbose "Tests ignored for all but h8300s based targets."
- return
-}
+require {istarget "h8300*-*-*"}
set testfile "t11_logs"
@@ -15,10 +15,7 @@
# This file was written by Michael Snyder (msnyder@redhat.com)
-if ![istarget "h8300*-*-*"] {
- verbose "Tests ignored for all but h8300s based targets."
- return
-}
+require {istarget "h8300*-*-*"}
set testfile "t12_bit"
@@ -15,10 +15,7 @@
# This file was written by Michael Snyder (msnyder@redhat.com)
-if ![istarget "h8300*-*-*"] {
- verbose "Tests ignored for all but h8300s based targets."
- return
-}
+require {istarget "h8300*-*-*"}
set testfile "t13_otr"
@@ -104,15 +104,13 @@ proc sparc_register_tests { } {
"list changed registers"
}
-if {[istarget "sparc-*-*"]} {
- mi_clean_restart
- sparc_register_tests_no_exec
- mi_clean_restart $binfile
- mi_runto_main
- sparc_register_tests
-} else {
- verbose "mi-regs.exp tests ignored for this target"
-}
+require {istarget "sparc-*-*"}
+
+mi_clean_restart
+sparc_register_tests_no_exec
+mi_clean_restart $binfile
+mi_runto_main
+sparc_register_tests
mi_gdb_exit
return 0
@@ -37,10 +37,7 @@ set gen_src record_test_isa_2_06.c
set executable record_test_isa_2_06
set options [list debug]
-if {![istarget "powerpc*"]} {
- verbose "Skipping PowerPC ISA 2.06 instruction record_test_2_06."
- return
-}
+require {istarget "powerpc*"}
if {[build_executable "failed to prepare" $executable $srcfile $options] == -1} {
return -1
@@ -37,11 +37,7 @@ standard_testfile
set gen_src record_test_isa_3_1.c
set executable record_test_isa_3_1
-if {![istarget "powerpc*"]} {
- verbose "Skipping PowerPC ISA 3.1 instruction record_test."
- return
-}
-require allow_power_isa_3_1_tests
+require {istarget "powerpc*"} allow_power_isa_3_1_tests
set options [list additional_flags=-mcpu=power10 debug]
if {[build_executable "failed to prepare" $executable $srcfile $options] == -1} {
@@ -17,12 +17,7 @@
# This test tests s390 MVCLE opcode for reverse execution.
#
-require supports_reverse
-
-if { ! [istarget "s390*-*-*"] } {
- verbose "Skipping s390 MVCLE instruction recording tests."
- return
-}
+require supports_reverse {istarget "s390*-*-*"}
standard_testfile