* config/sh.exp: New file.

* config/slite.exp: Try to connect multiple times to the board
	before rebooting. Only send a "monitor run" if need_monitor_run
	is set.

	* gdb.base/break.exp: Don't do the "stub continue" test if
	the target has gdb_stub set.

	* gdb.base/callfuncs.exp: Increase the timeout.

	* gdb.base/interrupt.exp: Don't even try to compile the testcase
	if the target has gdb,noinferiorio set.

	* gdb.base/list.exp: Increase match_max to 10000 characters.

	* gdb.base/sigall.exp: Check for gdb,nosignals on the target.

	* gdb.base/watchpoint.exp: Check for gdb,noinferiorio on the
	target.

	* lib/gdb.exp(gdb_run_cmd): Fix for targets that use stubs.

Misc fixes for sparclite and SH.
This commit is contained in:
Bob Manson
1997-02-05 06:25:42 +00:00
parent 5d05bf0d50
commit b6f32a5bb9
5 changed files with 22 additions and 10 deletions

View File

@ -56,6 +56,7 @@ mt-vxworks
netware.exp netware.exp
nind.exp nind.exp
rom68k.exp rom68k.exp
sh.exp
sim.exp sim.exp
slite.exp slite.exp
udi.exp udi.exp

View File

@ -0,0 +1 @@
load_lib ../config/monitor.exp

View File

@ -157,8 +157,9 @@ if ![target_info exists use_gdb_stub] {
timeout { fail "run until function breakpoint (timeout)" } timeout { fail "run until function breakpoint (timeout)" }
} }
} else { } else {
gdb_test continue "Continuing\\..*Breakpoint \[0-9\]+, main \\(argc=.*, argv=.*, envp=.*\\) at .*$srcfile:60.*60\[\t \]+if .argc.*\{" \ if ![target_info exists gdb_stub] {
"stubs continue" gdb_test continue "Continuing\\..*Breakpoint \[0-9\]+, main \\(argc=.*, argv=.*, envp=.*\\) at .*$srcfile:60.*60\[\t \]+if .argc.*\{" "stub continue"
}
} }
# #
@ -308,6 +309,8 @@ proc test_next_with_recursion {} {
delete_breakpoints delete_breakpoints
set timeout 20;
gdb_test next "\[0-9\]*\[\t \]+return \\(value\\);.*" \ gdb_test next "\[0-9\]*\[\t \]+return \\(value\\);.*" \
"next over recursive call" "next over recursive call"

View File

@ -372,10 +372,9 @@ proc test_stepping {} {
# Test stepping and other mundane operations with watchpoints enabled # Test stepping and other mundane operations with watchpoints enabled
proc test_watchpoint_triggered_in_syscall {} { proc test_watchpoint_triggered_in_syscall {} {
global gdb_prompt global gdb_prompt
global noinferiorio
global noresults global noresults
if $noinferiorio { if [target_info exists gdb,noinferiorio] {
verbose "Skipping test_watchpoint_triggered_in_syscall due to noinferiorio" verbose "Skipping test_watchpoint_triggered_in_syscall due to noinferiorio"
return return
} }

View File

@ -182,12 +182,14 @@ proc gdb_run_cmd {args} {
if [target_info exists use_gdb_stub] { if [target_info exists use_gdb_stub] {
send_gdb "jump *start\n" send_gdb "jump *start\n"
expect { expect {
-re "Continuing at \[^\r\n\]*\[\r\n\]" {
if ![target_info exists gdb_stub] {
return;
}
}
-re "Line.* Jump anyway.*y or n. $" { -re "Line.* Jump anyway.*y or n. $" {
send_gdb "y\n" send_gdb "y\n"
expect { exp_continue;
-re "Continuing.*$gdb_prompt $" {}
timeout { perror "Jump to start() failed (timeout)"; return }
}
} }
-re "No symbol.*context.*$gdb_prompt $" {} -re "No symbol.*context.*$gdb_prompt $" {}
-re "The program is not being run.*$gdb_prompt $" { -re "The program is not being run.*$gdb_prompt $" {
@ -195,7 +197,13 @@ proc gdb_run_cmd {args} {
} }
timeout { perror "Jump to start() failed (timeout)"; return } timeout { perror "Jump to start() failed (timeout)"; return }
} }
send_gdb "continue\n" if [target_info exists gdb_stub] {
expect {
-re ".*$gdb_prompt $" {
send_gdb "continue\n"
}
}
}
return return
} }
send_gdb "run $args\n" send_gdb "run $args\n"
@ -255,7 +263,7 @@ proc runto { function } {
-re "Break.* at .*:$decimal.*$gdb_prompt $" { -re "Break.* at .*:$decimal.*$gdb_prompt $" {
return 1 return 1
} }
-re "Breakpoint \[0-9\]*, \[0-9xa-f\]* in $function.*$gdb_prompt $" { -re "Breakpoint \[0-9\]*, \[0-9xa-f\]* in .*$gdb_prompt $" {
return 1 return 1
} }
-re "$gdb_prompt $" { -re "$gdb_prompt $" {