* lib/gdb.exp (gdb_run_cmd): Move comment out from between expect
patterns, since that is not a valid context for comments.
This commit is contained in:
parent
86165efce5
commit
70bcd4bc7e
|
@ -1,3 +1,13 @@
|
|||
Tue Aug 23 19:14:06 1994 Stan Shebs (shebs@andros.cygnus.com)
|
||||
|
||||
* lib/gdb.exp (gdb_run_cmd): Move comment out from between expect
|
||||
patterns, since that is not a valid context for comments.
|
||||
|
||||
Fri Aug 19 15:07:30 1994 Kung Hsu (kung@mexican.cygnus.com)
|
||||
|
||||
* gdb.c++/demangle.exp (test_arm_style_demangling): Add tests for
|
||||
repeated types and repeated types with indices > 9.
|
||||
|
||||
Tue Aug 16 15:57:52 1994 Stan Shebs (shebs@andros.cygnus.com)
|
||||
|
||||
* gdb.base/printcmds.exp: Remove all the a29k XFAILs tagged with
|
||||
|
|
|
@ -113,7 +113,11 @@ proc delete_breakpoints {} {
|
|||
|
||||
|
||||
#
|
||||
# Generic run command.
|
||||
#
|
||||
# The second pattern below matches up to the first newline *only*.
|
||||
# Using ``.*$'' could swallow up output that we attempt to match
|
||||
# elsewhere.
|
||||
#
|
||||
proc gdb_run_cmd {} {
|
||||
send "run\n"
|
||||
|
@ -122,10 +126,6 @@ proc gdb_run_cmd {} {
|
|||
send "y\n"
|
||||
exp_continue
|
||||
}
|
||||
|
||||
# The following pattern matches up to to the first newline *only*.
|
||||
# Using ``.*$'' could swallow up output that we attempt to match
|
||||
# elsewhere.
|
||||
-re "Starting program: \[^\n\]*" {}
|
||||
}
|
||||
}
|
||||
|
@ -221,13 +221,15 @@ proc gdb_test { args } {
|
|||
|
||||
set result -1
|
||||
set errmess ""
|
||||
# trap the send so any problems don't crash things
|
||||
catch "send \"$command\n\"" errmess
|
||||
if [string match "write.spawn_id=\[0-9\]+.:" $errmess] then {
|
||||
perror "sent \"$command\" got expect error \"$errmess\""
|
||||
catch "close"
|
||||
gdb_start
|
||||
return -1
|
||||
if ![string match $command ""] {
|
||||
# trap the send so any problems don't crash things
|
||||
catch "send \"$command\n\"" errmess
|
||||
if [string match "write.spawn_id=\[0-9\]+.:" $errmess] then {
|
||||
perror "sent \"$command\" got expect error \"$errmess\""
|
||||
catch "close"
|
||||
gdb_start
|
||||
return -1
|
||||
}
|
||||
}
|
||||
|
||||
expect {
|
||||
|
|
Loading…
Reference in New Issue