From 7ddebc7e5611da666dbc49457d88aff2e983c572 Mon Sep 17 00:00:00 2001 From: Keith Seitz Date: Wed, 4 Sep 2002 21:05:07 +0000 Subject: * lib/mi-support.exp: Update copyright. (mi_gdb_test): Increase the priority of the expected pattern so that it matches gdb_test. --- gdb/testsuite/ChangeLog | 6 ++++++ gdb/testsuite/lib/mi-support.exp | 14 +++++++------- 2 files changed, 13 insertions(+), 7 deletions(-) (limited to 'gdb') diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index d0f9ef2..7f3f2bf 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2002-09-04 Keith Seitz + + * lib/mi-support.exp: Update copyright. + (mi_gdb_test): Increase the priority of the expected pattern + so that it matches gdb_test. + 2002-09-03 Keith Seitz * lib/gdb.exp (gdb_compile_pthreads): Fix "build_bin" typo. diff --git a/gdb/testsuite/lib/mi-support.exp b/gdb/testsuite/lib/mi-support.exp index d3861e1..451dcea 100644 --- a/gdb/testsuite/lib/mi-support.exp +++ b/gdb/testsuite/lib/mi-support.exp @@ -1,4 +1,4 @@ -# Copyright 1999, 2000 Free Software Foundation, Inc. +# Copyright 1999, 2000, 2002 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by @@ -471,6 +471,12 @@ proc mi_gdb_test { args } { gdb_start set result -1 } + -re "\[\r\n\]*($pattern)\[\r\n\]+$mi_gdb_prompt\[ \]*$" { + if ![string match "" $message] then { + pass "$message" + } + set result 0 + } -re "(${question_string})$" { send_gdb "$response_string\n"; exp_continue; @@ -485,12 +491,6 @@ proc mi_gdb_test { args } { fail "$message" set result 1 } - -re "\[\r\n\]*($pattern)\[\r\n\]+$mi_gdb_prompt\[ \]*$" { - if ![string match "" $message] then { - pass "$message" - } - set result 0 - } -re "Program exited with code \[0-9\]+.*$mi_gdb_prompt\[ \]*$" { if ![string match "" $message] then { set errmsg "$message: the program exited" -- cgit v1.1