+2002-09-04 Keith Seitz <keiths@redhat.com>
+
+ * 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 <keiths@redhat.com>
* lib/gdb.exp (gdb_compile_pthreads): Fix "build_bin" typo.
-# 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
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;
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"