aboutsummaryrefslogtreecommitdiff
path: root/gdb/testsuite/lib
diff options
context:
space:
mode:
authorBob Rossi <bob@brasko.net>2005-08-02 14:21:01 +0000
committerBob Rossi <bob@brasko.net>2005-08-02 14:21:01 +0000
commitf1ea48cbd9dfb5df1183e6ced6875272eec8e4bb (patch)
treeae37214799cfed0fc50c77d4a03b26bb2321cee3 /gdb/testsuite/lib
parent8e3de13a7def5bf8e931e34500f97bdeee6b111b (diff)
downloadgdb-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.exp13
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];