diff options
author | John Baldwin <jhb@FreeBSD.org> | 2023-07-14 08:39:24 -0700 |
---|---|---|
committer | John Baldwin <jhb@FreeBSD.org> | 2023-07-14 08:39:24 -0700 |
commit | 6af166ed587b15a46a2bb92bb16b72f4b76d400f (patch) | |
tree | 52ccd6c997e320890fb7ad9c25968f08ecca60f9 /gdb | |
parent | a4a688ffa46533bf26d5d27dc7f75c22d90fd638 (diff) | |
download | gdb-6af166ed587b15a46a2bb92bb16b72f4b76d400f.zip gdb-6af166ed587b15a46a2bb92bb16b72f4b76d400f.tar.gz gdb-6af166ed587b15a46a2bb92bb16b72f4b76d400f.tar.bz2 |
Add a have_native_target helper function for use with require.
Move logic from auto-connect-native-target.exp into this helper.
Diffstat (limited to 'gdb')
-rw-r--r-- | gdb/testsuite/gdb.base/auto-connect-native-target.exp | 18 | ||||
-rw-r--r-- | gdb/testsuite/lib/gdb.exp | 14 |
2 files changed, 15 insertions, 17 deletions
diff --git a/gdb/testsuite/gdb.base/auto-connect-native-target.exp b/gdb/testsuite/gdb.base/auto-connect-native-target.exp index 002a6d6..0586cd4 100644 --- a/gdb/testsuite/gdb.base/auto-connect-native-target.exp +++ b/gdb/testsuite/gdb.base/auto-connect-native-target.exp @@ -22,23 +22,7 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile debug]} { return -1 } -# Whether this GDB is configured with a "native" target. -set have_native 0 - -set test "help target native" -gdb_test_multiple $test $test { - -re "Undefined target command.*$gdb_prompt $" { - set have_native 0 - } - -re "Native process.*$gdb_prompt $" { - set have_native 1 - } -} - -if { !$have_native } { - unsupported "no \"target native\" support." - return -} +require have_native_target # Returns the topmost target pushed on the target stack. TEST is used # as test message. diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp index bf8cdbd..66c04a2 100644 --- a/gdb/testsuite/lib/gdb.exp +++ b/gdb/testsuite/lib/gdb.exp @@ -9837,6 +9837,20 @@ gdb_caching_proc have_compile_and_link_flag { flag } { additional_flags=$flag] } +# Return 1 if this GDB is configured with a "native" target. + +gdb_caching_proc have_native_target {} { + gdb_test_multiple "help target native" "" { + -re -wrap "Undefined target command.*" { + return 0 + } + -re -wrap "Native process.*" { + return 1 + } + } + return 0 +} + # Handle include file $srcdir/$subdir/FILE. proc include_file { file } { |