diff options
| author | Rob Savoye <rob@cygnus> | 1994-01-06 05:43:20 +0000 |
|---|---|---|
| committer | Rob Savoye <rob@cygnus> | 1994-01-06 05:43:20 +0000 |
| commit | 70dbc7514f36e82a637e9338e8960737e4d146b4 (patch) | |
| tree | 21de6375292410f134a0746e161eb7de0291724e /gdb | |
| parent | 3107eb5b382e9ec4f8dfb172d1b9d82a4d797594 (diff) | |
| download | gdb-70dbc7514f36e82a637e9338e8960737e4d146b4.zip gdb-70dbc7514f36e82a637e9338e8960737e4d146b4.tar.gz gdb-70dbc7514f36e82a637e9338e8960737e4d146b4.tar.bz2 | |
Tweaked to work with either version of expect.
Diffstat (limited to 'gdb')
| -rw-r--r-- | gdb/testsuite/config/unix-gdb.exp | 18 |
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." |