diff options
| author | Daniel Jacobowitz <drow@false.org> | 2002-04-03 16:17:11 +0000 |
|---|---|---|
| committer | Daniel Jacobowitz <drow@false.org> | 2002-04-03 16:17:11 +0000 |
| commit | 5f279fa6a900974303ecf24bca7f392fcdf76924 (patch) | |
| tree | 7d2b1c1a4fcbae889d8cecb62ce81b16f61330f7 | |
| parent | d7866f045984f643f1be489ddf396d21fd59b389 (diff) | |
| download | gdb-5f279fa6a900974303ecf24bca7f392fcdf76924.zip gdb-5f279fa6a900974303ecf24bca7f392fcdf76924.tar.gz gdb-5f279fa6a900974303ecf24bca7f392fcdf76924.tar.bz2 | |
2002-04-03 Daniel Jacobowitz <drow@mvista.com>
* lib/gdb.exp (gdb_test): Move -notransfer inside of gdb_expect.
(gdb_expect): Remove $notransfer hack.
| -rw-r--r-- | gdb/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gdb/testsuite/lib/gdb.exp | 22 |
2 files changed, 9 insertions, 18 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 591295a..6bfd247 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2002-04-03 Daniel Jacobowitz <drow@mvista.com> + + * lib/gdb.exp (gdb_test): Move -notransfer inside of gdb_expect. + (gdb_expect): Remove $notransfer hack. + 2002-04-02 Daniel Jacobowitz <drow@mvista.com> * gdb.c++/classes.exp ("calling method for small class"): Match diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp index b36211f..e476599 100644 --- a/gdb/testsuite/lib/gdb.exp +++ b/gdb/testsuite/lib/gdb.exp @@ -440,9 +440,9 @@ proc gdb_test { args } { # we need to set -notransfer expect option so that # command output is not lost for pattern matching # - guo - gdb_expect -notransfer 2 { - -re "\[\r\n\]" { } - timeout { } + gdb_expect 2 { + -notransfer -re "\[\r\n\]" { verbose "partial: match" 3 } + timeout { verbose "partial: timeout" 3 } } set string [string range "$string" [expr $foo + 1] end]; } else { @@ -1132,20 +1132,6 @@ proc send_gdb { string } { # proc gdb_expect { args } { - # allow -notransfer expect flag specification, - # used by gdb_test routine for multi-line commands. - # packed with gtimeout when fed to remote_expect routine, - # which is a hack but due to what looks like a res and orig - # parsing problem in remote_expect routine (dejagnu/lib/remote.exp): - # what's fed into res is not removed from orig. - # - guo - if { [lindex $args 0] == "-notransfer" } { - set notransfer -notransfer; - set args [lrange $args 1 end]; - } else { - set notransfer ""; - } - if { [llength $args] == 2 && [lindex $args 0] != "-re" } { set gtimeout [lindex $args 0]; set expcode [list [lindex $args 1]]; @@ -1186,7 +1172,7 @@ proc gdb_expect { args } { } } set code [catch \ - {uplevel remote_expect host "$gtimeout $notransfer" $expcode} string]; + {uplevel remote_expect host $gtimeout $expcode} string]; if [info exists old_val] { set remote_suppress_flag $old_val; } else { |