aboutsummaryrefslogtreecommitdiff
path: root/gdb/testsuite/config
diff options
context:
space:
mode:
authorRob Savoye <rob@cygnus>1994-01-06 05:43:20 +0000
committerRob Savoye <rob@cygnus>1994-01-06 05:43:20 +0000
commit70dbc7514f36e82a637e9338e8960737e4d146b4 (patch)
tree21de6375292410f134a0746e161eb7de0291724e /gdb/testsuite/config
parent3107eb5b382e9ec4f8dfb172d1b9d82a4d797594 (diff)
downloadgdb-70dbc7514f36e82a637e9338e8960737e4d146b4.zip
gdb-70dbc7514f36e82a637e9338e8960737e4d146b4.tar.gz
gdb-70dbc7514f36e82a637e9338e8960737e4d146b4.tar.bz2
Tweaked to work with either version of expect.
Diffstat (limited to 'gdb/testsuite/config')
-rw-r--r--gdb/testsuite/config/unix-gdb.exp18
1 files changed, 6 insertions, 12 deletions
diff --git a/gdb/testsuite/config/unix-gdb.exp b/gdb/testsuite/config/unix-gdb.exp
index 32e4a9c..58325f9 100644
--- a/gdb/testsuite/config/unix-gdb.exp
+++ b/gdb/testsuite/config/unix-gdb.exp
@@ -24,7 +24,7 @@ load_lib gdb.exp
# variables that need to set up
#
if ![info exists prompt] then {
- set prompt "\(gdb\)"
+ set prompt "\[(\]gdb\[)\]"
}
# some convenience abbreviations
#
@@ -98,9 +98,7 @@ proc gdb_start {} {
global prompt
global spawn_id
global timeout
- if $verbose>1 then {
- send_user "Spawning $GDB $GDBFLAGS\n"
- }
+ verbose "Spawning $GDB $GDBFLAGS"
set oldtimeout $timeout
set timeout [expr "$timeout + 60"]
@@ -120,10 +118,8 @@ proc gdb_start {} {
}
}
expect {
- -re ".*$prompt $" {
- if $verbose>1 then {
- send_user "GDB initialized for native mode\n"
- }
+ -re ".*\r\n$prompt $" {
+ verbose "GDB initialized for native mode"
}
-re "$prompt $" {
perror "GDB never initialized."
@@ -139,7 +135,7 @@ proc gdb_start {} {
send "set height 0\n"
expect {
-re ".*$prompt $" {
- verbose "Seting height to 0."
+ verbose "Setting height to 0." 2
}
timeout {
warning "Couldn't set the height to 0."
@@ -149,9 +145,7 @@ proc gdb_start {} {
send "set width 0\n"
expect {
-re ".*$prompt $" {
- if $verbose>2 then {
- send_user "Seting width to 0.\n"
- }
+ verbose "Seting width to 0." 2
}
timeout {
warning "Couldn't set the width to 0."