diff options
author | Bob Rossi <bob@brasko.net> | 2005-08-02 14:21:01 +0000 |
---|---|---|
committer | Bob Rossi <bob@brasko.net> | 2005-08-02 14:21:01 +0000 |
commit | f1ea48cbd9dfb5df1183e6ced6875272eec8e4bb (patch) | |
tree | ae37214799cfed0fc50c77d4a03b26bb2321cee3 /gdb/testsuite/lib | |
parent | 8e3de13a7def5bf8e931e34500f97bdeee6b111b (diff) | |
download | gdb-f1ea48cbd9dfb5df1183e6ced6875272eec8e4bb.zip gdb-f1ea48cbd9dfb5df1183e6ced6875272eec8e4bb.tar.gz gdb-f1ea48cbd9dfb5df1183e6ced6875272eec8e4bb.tar.bz2 |
2005-08-02 Bob Rossi <bob@brasko.net>
* gdb.mi/mi-syn-frame.exp, gdb.mi/mi2-syn-frame.exp: Add MESSAGE
parameter to mi_gdb_test.
* lib/mi-support.exp (mi_gdb_test): Make MESSAGE parameter necessary.
Diffstat (limited to 'gdb/testsuite/lib')
-rw-r--r-- | gdb/testsuite/lib/mi-support.exp | 13 |
1 files changed, 4 insertions, 9 deletions
diff --git a/gdb/testsuite/lib/mi-support.exp b/gdb/testsuite/lib/mi-support.exp index c03c3cc..da4fd34 100644 --- a/gdb/testsuite/lib/mi-support.exp +++ b/gdb/testsuite/lib/mi-support.exp @@ -517,10 +517,9 @@ proc mi_gdb_load { arg } { # this is the null string no command is sent. # PATTERN is the pattern to match for a PASS, and must NOT include # the \r\n sequence immediately before the gdb prompt. -# MESSAGE is an optional message to be printed. If this is -# omitted, then the pass/fail messages use the command string as the -# message. (If this is the empty string, then sometimes we don't -# call pass or fail at all; I don't understand this at all.) +# MESSAGE is the message to be printed. (If this is the empty string, +# then sometimes we don't call pass or fail at all; I don't +# understand this at all.) # # Returns: # 1 if the test failed, @@ -533,13 +532,9 @@ proc mi_gdb_test { args } { global GDB expect_out upvar timeout timeout - if [llength $args]>2 then { - set message [lindex $args 2] - } else { - set message [lindex $args 0] - } set command [lindex $args 0] set pattern [lindex $args 1] + set message [lindex $args 2] if [llength $args]==5 { set question_string [lindex $args 3]; |