Use require isnative
authorTom Tromey <tom@tromey.com>
Wed, 14 Dec 2022 17:08:00 +0000 (10:08 -0700)
committerTom Tromey <tom@tromey.com>
Fri, 13 Jan 2023 20:18:56 +0000 (13:18 -0700)
This changes some tests to use "require isnative".

16 files changed:
gdb/testsuite/gdb.arch/s390-multiarch.exp
gdb/testsuite/gdb.base/argv0-symlink.exp
gdb/testsuite/gdb.base/attach-pie-misread.exp
gdb/testsuite/gdb.base/bigcore.exp
gdb/testsuite/gdb.base/break-interp.exp
gdb/testsuite/gdb.base/corefile.exp
gdb/testsuite/gdb.base/corefile2.exp
gdb/testsuite/gdb.base/jit-reader.exp
gdb/testsuite/gdb.base/prelink.exp
gdb/testsuite/gdb.base/skip-solib.exp
gdb/testsuite/gdb.mi/mi-async.exp
gdb/testsuite/gdb.mi/mi-corefile.exp
gdb/testsuite/gdb.threads/attach-into-signal.exp
gdb/testsuite/gdb.threads/attach-slow-waitpid.exp
gdb/testsuite/gdb.threads/attach-stopped.exp
gdb/testsuite/gdb.threads/corethreads.exp

index f08c5770744ae29ee8c499be4d1738f70042782f..b82cf15901114ef8e9d9d45991249265f02a85fa 100644 (file)
@@ -23,7 +23,8 @@
 # running native.  It should be executed on a sufficiently new Linux
 # kernel that provides the 'system_call' regset.
 
-if { ![isnative] || ![istarget s390x-*-* ] } {
+require isnative
+if { ![istarget s390x-*-* ] } {
     verbose "Skipping s390 multi-arch tests."
     return
 }
index 82e77cbe0802e953a26ea579d3583e38f3fb2a31..b321a2442219f2eaf284d23e85060e38e1714750 100644 (file)
 # Therefore, it can't work reliably on anything other than configurations 
 # where build/host/target are all the same.
 
-if { ![isnative] } {
-    unsupported "argv0-symlink.exp not supported on non-native target"
-    return -1
-}
+require isnative
 
 if { [is_remote host] } {
     unsupported "argv0-symlink.exp not supported on remote host"
index cd96a6ea76a3ffc5334a1ec367242c786e04e912..4e0d549351c9397b990bd4abb3cce297dc976ac1 100644 (file)
@@ -14,9 +14,8 @@
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
 # This test only works on GNU/Linux.
-require !use_gdb_stub
-if { ![isnative] || [is_remote host]
-     || ![istarget *-linux*] || [skip_shlib_tests]} {
+require !use_gdb_stub isnative
+if { [is_remote host] || ![istarget *-linux*] || [skip_shlib_tests]} {
     return
 }
 
index f3e7467e942351922158960e946b06b4b5fe7276..743dc1dfbec7ced90cf5ef622a172cea9dcca61c 100644 (file)
 # Are we on a target board?  As of 2004-02-12, GDB didn't have a
 # mechanism that would let it efficiently access a remote corefile.
 
-if {![isnative]} {
-    untested "remote system"
-    return
-}
+require isnative
 
 # Can the system run this test (in particular support sparse
 # corefiles)?  On systems that lack sparse corefile support this test
index 02a5685802ef23d8f4e117572eb32819fc8fd808..2cee092b184f954ef1016f259c4568d2ef1dcc75 100644 (file)
@@ -14,9 +14,8 @@
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
 # This test only works on GNU/Linux.
-require !use_gdb_stub
-if { ![isnative] || [is_remote host]
-     || ![istarget *-linux*] || [skip_shlib_tests]} {
+require !use_gdb_stub isnative
+if { [is_remote host] || ![istarget *-linux*] || [skip_shlib_tests]} {
     return
 }
 
index 2888e2d5e412f5935104e1fe731fe2170c9aa62d..4da4b0de68431f11426d3c05472551cd2f8b4420 100644 (file)
@@ -17,9 +17,7 @@
 
 
 # are we on a target board
-if {![isnative]} {
-    return
-}
+require isnative
 
 standard_testfile coremaker.c
 
index 75981ac42ab26bde41b4ee90dacb36d11d5beb60..51732d61bf522c525769fd3eb3c7045b94a1adf6 100644 (file)
@@ -18,9 +18,7 @@
 # coremaker2.c for details.
 
 # are we on a target board
-if {![isnative]} {
-    return
-}
+require isnative
 
 # Some of these tests will only work on GNU/Linux due to the
 # fact that Linux core files includes a section describing
index 1d02233406e7699587039f5160ae6a2bc303cf7a..1ff3f2a0c2128f5ccbb6dc23e71f07cbee7c9f72 100644 (file)
@@ -22,11 +22,7 @@ if { (![istarget x86_64-*-*] && ![istarget i?86-*-*]) || ![is_lp64_target] } {
     return -1;
 }
 
-require !skip_shlib_tests
-
-if { ![isnative] } {
-    return -1
-}
+require !skip_shlib_tests isnative
 
 # Increase this to see more detail.
 set test_verbose 0
index a89aaa1b370df5d6a64ed5c23ea3a4023f3cc109..9c5b777b4a2593901af57bbdd2510bfd357ff589 100644 (file)
@@ -19,7 +19,8 @@
 # This file was written by Alexandre Oliva <aoliva@redhat.com>
 
 
-if { ![isnative] || [is_remote host] || [skip_shlib_tests]} {
+require isnative
+if { [is_remote host] || [skip_shlib_tests]} {
     return
 }
 
index 60d5dffe52712c3f9cd7dec9b57ceaa362c3216f..22a1e8746e73ea56f76290f06551fa2e661f1ee1 100644 (file)
@@ -20,8 +20,8 @@
 #
 
 # This only works on GNU/Linux.
-if { ![isnative] || [is_remote host] || ![istarget *-linux*]
-     || [skip_shlib_tests]} {
+require isnative
+if { [is_remote host] || ![istarget *-linux*] || [skip_shlib_tests]} {
     return
 }
 
index 880db6de68be5afa5da65b6bb4215ae3c45f9994..5ca7c5dccc3aba311600870ff6a0af47ef527b52 100644 (file)
@@ -21,7 +21,8 @@
 # mi_run_cmd, it ignores whatever target the rest of GDB testsuite is
 # using, and always tries to run natively.  So, don't do anything unless
 # we're actually testing native.
-if {!([isnative] && [istarget *-linux*])} {
+require isnative
+if {![istarget *-linux*]} {
   return
 }
 
index 9f9cac56779e8e191eaf406d64fb111c6b49224c..0c791888117a6e6db39fa05ef9bbdb18bed0a174 100644 (file)
@@ -18,9 +18,7 @@
 load_lib mi-support.exp
 set MIFLAGS "-i=mi"
 
-if {![isnative]} {
-    return
-}
+require isnative
 
 standard_testfile
 
index c778d31719c9db39207c1c6a44100a5c3364e6b4..4a5caaa2e85cd910232320168bb0a4b11305f10b 100644 (file)
@@ -17,8 +17,8 @@
 # This file was created by Jan Kratochvil <jan.kratochvil@redhat.com>.
 
 # This test only works on Linux
-require !use_gdb_stub
-if { ![isnative] || [is_remote host] || ![istarget *-linux*] } {
+require !use_gdb_stub isnative
+if { [is_remote host] || ![istarget *-linux*] } {
     return
 }
 
index 823614e5ba3f869658a3f3fe03e7096b363b20c7..7512a672890608e0b9ce72d03b979241cfc78bc5 100644 (file)
@@ -37,8 +37,8 @@
 # during the attach phase.
 
 # This test only works on Linux
-require !use_gdb_stub
-if { ![isnative] || [is_remote host] || ![istarget *-linux*] } {
+require !use_gdb_stub isnative
+if { [is_remote host] || ![istarget *-linux*] } {
     return
 }
 
index 3904d4c087b9694d4d74b591cce3ef56511bb1d1..35b31afafafc07f89be5d42de92abe31ac4b9a5a 100644 (file)
@@ -18,8 +18,8 @@
 # This file was updated by Jan Kratochvil <jan.kratochvil@redhat.com>.
 
 # This test only works on Linux
-require !use_gdb_stub
-if { ![isnative] || [is_remote host] || ![istarget *-linux*] } {
+require !use_gdb_stub isnative
+if { [is_remote host] || ![istarget *-linux*] } {
     return
 }
 
index d1f70959e187c708a666c54a9958ab31234a02d8..026499e30d31e0333dca8c0fcaf4213c695d37a4 100644 (file)
@@ -15,7 +15,8 @@
 
 # Are we on a target board?  And non-Linux targets seem to identify the thread
 # differently.
-if {![isnative] || ![istarget "*-*-linux*"]} {
+require isnative
+if {![istarget "*-*-linux*"]} {
     return
 }