OpenE2K/binutils-gdb
12
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gdb/testsuite/

Browse Source 
* gdb.base/stale-infcall.c (infcall): New label test-next.
	(main): New labels test-pass and test-fail.
	* gdb.base/stale-infcall.exp: Continue to test-next.  Put breakpoint
	$test_fail_bpnum to test-fail.
	(test system longjmp tracking support): New test.
	Delete $test_fail_bpnum.
	* lib/gdb.exp (gdb_continue_to_breakpoint): Accept also Temporary
	breakpoint.
This commit is contained in:
Jan Kratochvil 2012-07-02 12:06:56 +00:00
parent 2d7b58e8d6
commit a16242411f
4 changed files with 35 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
gdb/testsuite/ChangeLog
View File

@ -1,3 +1,14 @@
2012-07-02 Jan Kratochvil <jan.kratochvil@redhat.com>
* gdb.base/stale-infcall.c (infcall): New label test-next.
(main): New labels test-pass and test-fail.
* gdb.base/stale-infcall.exp: Continue to test-next. Put breakpoint
$test_fail_bpnum to test-fail.
(test system longjmp tracking support): New test.
Delete $test_fail_bpnum.
* lib/gdb.exp (gdb_continue_to_breakpoint): Accept also Temporary
breakpoint.
2012-06-30 Doug Evans <dje@google.com>
* gdb.dwarf2/fission-reread.S: New file.

7
gdb/testsuite/gdb.base/stale-infcall.c
View File

@ -26,7 +26,7 @@ static jmp_buf jmp;
void
infcall (void)
{
longjmp (jmp, 1);
longjmp (jmp, 1); /* test-next */
}
static void
@ -54,7 +54,10 @@ run2 (void)
int
main ()
{
if (setjmp (jmp) == 0)
if (setjmp (jmp) == 0) /* test-pass */
infcall ();
if (setjmp (jmp) == 0) /* test-fail */
run1 ();
else
run2 ();

18
gdb/testsuite/gdb.base/stale-infcall.exp
View File

@ -23,6 +23,24 @@ if ![runto_main] {
return -1
}
gdb_breakpoint [gdb_get_line_number "test-next"] temporary
gdb_continue_to_breakpoint "test-next" ".* test-next .*"
gdb_breakpoint [gdb_get_line_number "test-fail"]
gdb_test_no_output {set $test_fail_bpnum=$bpnum}
set test "test system longjmp tracking support"
gdb_test_multiple "next" $test {
-re " test-pass .*\r\n$gdb_prompt $" {
pass $test
}
-re " test-fail .*\r\n$gdb_prompt $" {
xfail $test
untested "System lacks support for tracking longjmps"
return -1
}
}
gdb_test_no_output {delete $test_fail_bpnum}
gdb_breakpoint [gdb_get_line_number "break-run1"]
gdb_breakpoint [gdb_get_line_number "break-run2"]
gdb_breakpoint [gdb_get_line_number "break-exit"]

2
gdb/testsuite/lib/gdb.exp
View File

@ -469,7 +469,7 @@ proc gdb_continue_to_breakpoint {name {location_pattern .*}} {
send_gdb "continue\n"
gdb_expect {
-re "Breakpoint .* (at|in) $location_pattern\r\n$gdb_prompt $" {
-re "(?:Breakpoint|Temporary breakpoint) .* (at|in) $location_pattern\r\n$gdb_prompt $" {
pass $full_name
}
-re ".*$gdb_prompt $" {