forked from Imagelibrary/binutils-gdb
Add a have_native_target helper function for use with require.
Move logic from auto-connect-native-target.exp into this helper.
This commit is contained in:
@@ -22,23 +22,7 @@ if {[prepare_for_testing "failed to prepare" $testfile $srcfile debug]} {
|
|||||||
return -1
|
return -1
|
||||||
}
|
}
|
||||||
|
|
||||||
# Whether this GDB is configured with a "native" target.
|
require have_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
|
|
||||||
}
|
|
||||||
|
|
||||||
# Returns the topmost target pushed on the target stack. TEST is used
|
# Returns the topmost target pushed on the target stack. TEST is used
|
||||||
# as test message.
|
# as test message.
|
||||||
|
|||||||
@@ -9837,6 +9837,20 @@ gdb_caching_proc have_compile_and_link_flag { flag } {
|
|||||||
additional_flags=$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.
|
# Handle include file $srcdir/$subdir/FILE.
|
||||||
|
|
||||||
proc include_file { file } {
|
proc include_file { file } {
|
||||||
|
|||||||
Reference in New Issue
Block a user