projects
/
deliverable
/
binutils-gdb.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
3107eb5
)
Tweaked to work with either version of expect.
author
Rob Savoye
<rob@cygnus>
Thu, 6 Jan 1994 05:43:20 +0000
(
05:43
+0000)
committer
Rob Savoye
<rob@cygnus>
Thu, 6 Jan 1994 05:43:20 +0000
(
05:43
+0000)
gdb/testsuite/config/unix-gdb.exp
patch
|
blob
|
blame
|
history
diff --git
a/gdb/testsuite/config/unix-gdb.exp
b/gdb/testsuite/config/unix-gdb.exp
index 32e4a9c20dffe010012bab2953821cad82ba90d7..58325f9cf8c093a8ff20040c4c0cff2550ee3bf6 100644
(file)
--- 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 {
# variables that need to set up
#
if ![info exists prompt] then {
- set prompt "\
(gdb\)
"
+ set prompt "\
[(\]gdb\[)\]
"
}
# some convenience abbreviations
#
}
# some convenience abbreviations
#
@@
-98,9
+98,7
@@
proc gdb_start {} {
global prompt
global spawn_id
global timeout
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"]
set oldtimeout $timeout
set timeout [expr "$timeout + 60"]
@@
-120,10
+118,8
@@
proc gdb_start {} {
}
}
expect {
}
}
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."
}
-re "$prompt $" {
perror "GDB never initialized."
@@
-139,7
+135,7
@@
proc gdb_start {} {
send "set height 0\n"
expect {
-re ".*$prompt $" {
send "set height 0\n"
expect {
-re ".*$prompt $" {
- verbose "Set
ing height to 0."
+ verbose "Set
ting height to 0." 2
}
timeout {
warning "Couldn't set the height to 0."
}
timeout {
warning "Couldn't set the height to 0."
@@
-149,9
+145,7
@@
proc gdb_start {} {
send "set width 0\n"
expect {
-re ".*$prompt $" {
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."
}
timeout {
warning "Couldn't set the width to 0."
This page took
0.025927 seconds
and
4
git commands to generate.