[testsuite] Skip gdb.trace/range-stepping.exp test case if not supported

Tracepoints and range stepping are independent features.  This patch
skips the gdb.trace/range-stepping.exp test case if the target does not
support range stepping.

gdb/testsuite/ChangeLog:

	* gdb.base/range-stepping.exp (gdb_range_stepping_enabled):
	Move it to ...
	* lib/range-stepping-support.exp (gdb_range_stepping_enabled):
	... here.
	* gdb.trace/range-stepping.exp: Check that the target supports
	range stepping.
This commit is contained in:
Pierre Langlois 2015-07-15 14:33:32 +01:00
parent e7b01ce03d
commit 42422cc7d6
4 changed files with 35 additions and 21 deletions

View File

@ -1,3 +1,12 @@
2015-07-15 Pierre Langlois <pierre.langlois@arm.com>
* gdb.base/range-stepping.exp (gdb_range_stepping_enabled):
Move it to ...
* lib/range-stepping-support.exp (gdb_range_stepping_enabled):
... here.
* gdb.trace/range-stepping.exp: Check that the target supports
range stepping.
2015-07-14 Jan Kratochvil <jan.kratochvil@redhat.com>
* gdb.arch/i386-biarch-core.exp: Fix comment typo.

View File

@ -27,27 +27,6 @@ if ![runto_main] {
return -1
}
# Check whether range stepping is supported by the target.
proc gdb_range_stepping_enabled { } {
global gdb_prompt
set command "set range-stepping on"
set message "probe range-stepping support"
gdb_test_multiple $command $message {
-re "Range stepping is not supported.*\r\n$gdb_prompt $" {
pass $message
return 0
}
-re "^$command\r\n$gdb_prompt $" {
pass $message
return 1
}
}
return 0
}
if ![gdb_range_stepping_enabled] {
unsupported "range stepping not supported by the target"
return -1

View File

@ -34,6 +34,11 @@ if ![gdb_target_supports_trace] {
return -1
}
if ![gdb_range_stepping_enabled] {
unsupported "range stepping not supported by the target"
return -1
}
# Check that range stepping works well with tracepoints.
proc range_stepping_with_tracepoint { type } {

View File

@ -52,3 +52,24 @@ proc exec_cmd_expect_vCont_count { cmd exp_vCont_s exp_vCont_r } {
gdb_test_no_output "set debug remote 0" ""
return $ret
}
# Check whether range stepping is supported by the target.
proc gdb_range_stepping_enabled { } {
global gdb_prompt
set command "set range-stepping on"
set message "probe range-stepping support"
gdb_test_multiple $command $message {
-re "Range stepping is not supported.*\r\n$gdb_prompt $" {
pass $message
return 0
}
-re "^$command\r\n$gdb_prompt $" {
pass $message
return 1
}
}
return 0
}