* gdb.base/a1-selftest.exp (do_steps_and_nexts): Reinitialize source

directory to search gdb directory. Accept and step over conditional
	stack alignment code. Consume $prompt in failure cases.
	Reset timeout to $oldtimeout instead of some arbitrary value.
	* gdb.base/nodebug.exp:  Limit backtrace to 10 frames to avoid
	timeout problems with infinite stack backtraces.
	* gdb.base/ptype.exp (ptype struct link, union tu_link):
	Accept function parameters for linkfunc member.
This commit is contained in:
Peter Schauer 1996-11-22 18:16:24 +00:00
parent 00b45456dd
commit 49c7ee7be3
2 changed files with 33 additions and 3 deletions

View File

@ -1,3 +1,14 @@
Fri Nov 22 10:13:29 1996 Peter Schauer (pes@regent.e-technik.tu-muenchen.de)
* gdb.base/a1-selftest.exp (do_steps_and_nexts): Reinitialize source
directory to search gdb directory. Accept and step over conditional
stack alignment code. Consume $prompt in failure cases.
Reset timeout to $oldtimeout instead of some arbitrary value.
* gdb.base/nodebug.exp: Limit backtrace to 10 frames to avoid
timeout problems with infinite stack backtraces.
* gdb.base/ptype.exp (ptype struct link, union tu_link):
Accept function parameters for linkfunc member.
Thu Nov 21 09:17:19 1996 Fred Fish <fnf@cygnus.com>
* lib/gdb.exp (CFLAGS): Remove, unreferenced.

View File

@ -46,6 +46,9 @@ if [istarget "m68k*-*-hpux*"] then {
proc do_steps_and_nexts {} {
global prompt
global srcdir
gdb_reinitialize_dir $srcdir/..
for {set count 0} {$count < 20} {incr count} {
send "list\n"
@ -86,6 +89,18 @@ proc do_steps_and_nexts {} {
set description "next over init_malloc and everything it calls"
set command "next"
}
-re ".*count . 0x3.*$prompt $" {
set description "next over conditional stack alignment code 1"
set command "next"
}
-re ".*if .i != 0.*$prompt $" {
set description "next over conditional stack alignment code 2"
set command "next"
}
-re ".*alloca .i - 4.*$prompt $" {
set description "next over conditional stack alignment alloca"
set command "next"
}
-re ".*SET_TOP_LEVEL.*$prompt $" {
set description "next over SET_TOP_LEVEL call"
set command "next"
@ -113,11 +128,15 @@ proc do_steps_and_nexts {} {
setup_xfail "mips-*-irix5*"
fail "$description ended up at odd location"
}
-re ".*main.c.*No such file or directory" {
-re ".*main.c.*No such file or directory.*$prompt $" {
setup_xfail "rs6000-*-aix3*"
fail "must be able to list source lines"
return
}
-re ".*$prompt $" {
fail "unknown source line after $description"
return
}
default {
fail "unknown source line near main"
return
@ -166,7 +185,7 @@ proc test_with_self {} {
verbose "Timeout is now $timeout seconds" 2
return -1
}
set timeout 30
set timeout $oldtimeout
verbose "Timeout is now $timeout seconds" 2
# disassemble yourself
@ -237,7 +256,7 @@ proc test_with_self {} {
}
}
set timeout 30
set timeout $oldtimeout
verbose "Timeout is now $timeout seconds" 2
# do we have a version number ?