forked from Imagelibrary/binutils-gdb
Rename to allow_xml_test
This changes gdb_skip_xml_test to invert the sense, and renames it to allow_xml_test.
This commit is contained in:
@@ -13,7 +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/>.
|
||||
|
||||
require !gdb_skip_xml_test
|
||||
require allow_xml_test
|
||||
|
||||
gdb_start
|
||||
|
||||
|
||||
@@ -781,7 +781,7 @@ fill_all_syscalls_numbers
|
||||
|
||||
# Execute the tests, using XML support
|
||||
gdb_exit
|
||||
if { ![gdb_skip_xml_test] } {
|
||||
if { [allow_xml_test] } {
|
||||
clean_restart $binfile
|
||||
do_syscall_tests
|
||||
|
||||
|
||||
@@ -22,7 +22,7 @@ if {![istarget *-*-linux*]} {
|
||||
}
|
||||
|
||||
# Support for XML-output is needed to run this test.
|
||||
require !gdb_skip_xml_test
|
||||
require allow_xml_test
|
||||
|
||||
# Compile test program.
|
||||
if { [prepare_for_testing "failed to prepare" $testfile $srcfile {debug pthreads}] } {
|
||||
|
||||
@@ -14,7 +14,7 @@
|
||||
# along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
# Valgrind gdbserver requires gdb with xml support.
|
||||
require !gdb_skip_xml_test
|
||||
require allow_xml_test
|
||||
|
||||
load_lib valgrind.exp
|
||||
|
||||
|
||||
@@ -19,7 +19,7 @@
|
||||
# automatically instead of getting stuck or crashing.
|
||||
|
||||
# Valgrind gdbserver requires gdb with xml support.
|
||||
require !gdb_skip_xml_test
|
||||
require allow_xml_test
|
||||
|
||||
load_lib valgrind.exp
|
||||
|
||||
|
||||
@@ -30,7 +30,7 @@
|
||||
# Aborted (core dumped)
|
||||
|
||||
# Valgrind gdbserver requires gdb with xml support.
|
||||
require !gdb_skip_xml_test
|
||||
require allow_xml_test
|
||||
|
||||
load_lib valgrind.exp
|
||||
|
||||
|
||||
@@ -14,7 +14,7 @@
|
||||
# along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
# Valgrind gdbserver requires gdb with xml support.
|
||||
require !gdb_skip_xml_test
|
||||
require allow_xml_test
|
||||
|
||||
load_lib valgrind.exp
|
||||
|
||||
|
||||
@@ -19,7 +19,7 @@ require !gdb_debug_enabled
|
||||
|
||||
load_lib completion-support.exp
|
||||
|
||||
set do_xml_test [expr ![gdb_skip_xml_test]]
|
||||
set do_xml_test [allow_xml_test]
|
||||
|
||||
standard_testfile
|
||||
|
||||
|
||||
@@ -21,7 +21,7 @@ set MIFLAGS "-i=mi"
|
||||
standard_testfile
|
||||
|
||||
# Support for XML is needed to run this test.
|
||||
require !gdb_skip_xml_test
|
||||
require allow_xml_test
|
||||
|
||||
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
|
||||
untested "failed to compile"
|
||||
|
||||
@@ -23,7 +23,7 @@ if {![istarget *-*-linux*]} {
|
||||
}
|
||||
|
||||
# Support for XML-output is needed to run this test.
|
||||
require !gdb_skip_xml_test
|
||||
require allow_xml_test
|
||||
|
||||
gdb_exit
|
||||
if [mi_gdb_start] {
|
||||
|
||||
@@ -27,8 +27,8 @@ if {[build_executable $testfile.exp $testfile $srcfile debug] == -1} {
|
||||
return -1
|
||||
}
|
||||
|
||||
# gdb_skip_xml_test must be called while gdb is not running.
|
||||
set do_xml_test [expr ![gdb_skip_xml_test]]
|
||||
# allow_xml_test must be called while gdb is not running.
|
||||
set do_xml_test [allow_xml_test]
|
||||
|
||||
save_vars { GDBFLAGS } {
|
||||
# If GDB and GDBserver are both running locally, set the sysroot to avoid
|
||||
|
||||
@@ -37,7 +37,7 @@
|
||||
#
|
||||
# 4. Indentation of lines will be preserved so your input file needs
|
||||
# to follow the expected indentation.
|
||||
require !gdb_skip_xml_test
|
||||
require allow_xml_test
|
||||
|
||||
gdb_start
|
||||
|
||||
|
||||
@@ -17,7 +17,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/>.
|
||||
|
||||
require !gdb_skip_xml_test
|
||||
require allow_xml_test
|
||||
|
||||
gdb_start
|
||||
|
||||
|
||||
@@ -13,7 +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/>.
|
||||
|
||||
require !gdb_skip_xml_test
|
||||
require allow_xml_test
|
||||
|
||||
gdb_start
|
||||
|
||||
|
||||
@@ -13,7 +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/>.
|
||||
|
||||
require !gdb_skip_xml_test
|
||||
require allow_xml_test
|
||||
|
||||
gdb_start
|
||||
|
||||
|
||||
@@ -13,7 +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/>.
|
||||
|
||||
require !gdb_skip_xml_test
|
||||
require allow_xml_test
|
||||
|
||||
gdb_start
|
||||
|
||||
|
||||
@@ -16,7 +16,7 @@
|
||||
# Testing for 'maint print xml-tdesc'. Check we can print out the
|
||||
# current target description and load it back in again.
|
||||
|
||||
require !gdb_skip_xml_test
|
||||
require allow_xml_test
|
||||
|
||||
standard_testfile
|
||||
|
||||
|
||||
@@ -13,7 +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/>.
|
||||
|
||||
require !gdb_skip_xml_test
|
||||
require allow_xml_test
|
||||
|
||||
gdb_start
|
||||
|
||||
|
||||
@@ -6970,17 +6970,16 @@ proc gdb_skip_bogus_test { msg } {
|
||||
return 0
|
||||
}
|
||||
|
||||
# Return true if a test should be skipped due to lack of XML support
|
||||
# in the host GDB.
|
||||
# Return true if XML support is enabled in the host GDB.
|
||||
# NOTE: This must be called while gdb is *not* running.
|
||||
|
||||
gdb_caching_proc gdb_skip_xml_test {
|
||||
gdb_caching_proc allow_xml_test {
|
||||
global gdb_spawn_id
|
||||
global gdb_prompt
|
||||
global srcdir
|
||||
|
||||
if { [info exists gdb_spawn_id] } {
|
||||
error "GDB must not be running in gdb_skip_xml_tests."
|
||||
error "GDB must not be running in allow_xml_tests."
|
||||
}
|
||||
|
||||
set xml_file [gdb_remote_download host "${srcdir}/gdb.xml/trivial.xml"]
|
||||
@@ -6994,7 +6993,7 @@ gdb_caching_proc gdb_skip_xml_test {
|
||||
-re ".*$gdb_prompt $" { }
|
||||
}
|
||||
gdb_exit
|
||||
return $xml_missing
|
||||
return [expr {!$xml_missing}]
|
||||
}
|
||||
|
||||
# Return true if argv[0] is available.
|
||||
|
||||
@@ -171,7 +171,7 @@ proc skip_gdbserver_tests { } {
|
||||
# multiple target descriptions, GDB doesn't know which target
|
||||
# description GDBserver uses, and may fail to parse 'g' packet
|
||||
# after connection.
|
||||
if { [gdb_skip_xml_test]
|
||||
if { ![allow_xml_test]
|
||||
&& ([istarget "arm*-*-linux*"]
|
||||
|| [istarget "aarch64*-*-linux*"]
|
||||
|| [istarget "mips*-*-linux*"]
|
||||
|
||||
Reference in New Issue
Block a user