aboutsummaryrefslogtreecommitdiff
path: root/gdb/testsuite/gdb.stabs
diff options
context:
space:
mode:
authorBob Manson <manson@cygnus>1997-02-02 07:59:25 +0000
committerBob Manson <manson@cygnus>1997-02-02 07:59:25 +0000
commit85fbaa747f9edd4184cce516c8804bb4553e08f7 (patch)
tree3011762b44f70c7e2abfd700004d1d0652c831a9 /gdb/testsuite/gdb.stabs
parente385d6e03e0733be01c51d24588b981c9e928d6c (diff)
downloadgdb-85fbaa747f9edd4184cce516c8804bb4553e08f7.zip
gdb-85fbaa747f9edd4184cce516c8804bb4553e08f7.tar.gz
gdb-85fbaa747f9edd4184cce516c8804bb4553e08f7.tar.bz2
* gdb.*/*.exp: Replace $prompt with $gdb_prompt.
* gdb.base/scope.exp: Use gdb_test. * gdb.c++/classes.exp: Ditto. * gdb.c++/inherit.exp: Ditto. More random cleanups. Still lots to go, however.
Diffstat (limited to 'gdb/testsuite/gdb.stabs')
-rw-r--r--gdb/testsuite/gdb.stabs/weird.exp16
1 files changed, 8 insertions, 8 deletions
diff --git a/gdb/testsuite/gdb.stabs/weird.exp b/gdb/testsuite/gdb.stabs/weird.exp
index b1c750c..047bae8 100644
--- a/gdb/testsuite/gdb.stabs/weird.exp
+++ b/gdb/testsuite/gdb.stabs/weird.exp
@@ -20,7 +20,7 @@ set bug_id 0
proc do_tests {} {
global binfile
- global prompt
+ global gdb_prompt
# Mips/alpha targets that use gcc with mips-tfile put out the stabs
# assembler directives embedded in comments. If the assembler
@@ -29,10 +29,10 @@ proc do_tests {} {
# Skip the rest of the stabs tests for this case.
send_gdb "ptype inttype\n"
expect {
- -re "^ptype inttype\r*\ntype = inttype.*$prompt $" {
+ -re "^ptype inttype\r*\ntype = inttype.*$gdb_prompt $" {
pass "stabs found"
}
- -re ".*$prompt $" {
+ -re ".*$gdb_prompt $" {
setup_xfail "mips-*-*"
setup_xfail "alpha-*-*"
fail "stabs not found"
@@ -193,16 +193,16 @@ field3 = 0x77888877\}" "print struct constant"
}
proc print_weird_var { var } {
- global prompt
+ global gdb_prompt
# Make sure that the variable gets printed out correctly, without
# any sort of warning message.
send_gdb "print $var\n"
expect {
- -re "^print $var\r*\n.\[0-9\]* = 42.*$prompt $" {
+ -re "^print $var\r*\n.\[0-9\]* = 42.*$gdb_prompt $" {
pass "variable $var printed properly"
}
- -re ".*$prompt $" {
+ -re ".*$gdb_prompt $" {
fail "variable $var not printed properly"
}
timeout { fail "variable $var not printed (timeout)" }
@@ -283,14 +283,14 @@ send_gdb "file $binfile\n"
# that a filename won't contain a space and a warning message will.
# But spaces following by backspaces aren't really spaces.
expect {
- -re "^file (\[^ \]| +\008)*\r*\nReading symbols from $binfile\.\.\.done\.\r*\n$prompt $" {
+ -re "^file (\[^ \]| +\008)*\r*\nReading symbols from $binfile\.\.\.done\.\r*\n$gdb_prompt $" {
pass "weirdx.o read without error"
}
-re "A program is being debugged already. Kill it\? \(y or n\)" {
send_gdb "y\n"
exp_continue
}
- -re ".*$prompt $" {
+ -re ".*$gdb_prompt $" {
fail "Errors reading weirdx.o"
}
timeout {