This is the mail archive of the
gdb-patches@sourceware.org
mailing list for the GDB project.
[RFA] gdb.ada/*.exp send_gdb vs. gdb_test
- From: Michael Snyder <msnyder at vmware dot com>
- To: "gdb-patches at sourceware dot org" <gdb-patches at sourceware dot org>
- Date: Tue, 25 May 2010 12:27:41 -0700
- Subject: [RFA] gdb.ada/*.exp send_gdb vs. gdb_test
another short one
2010-05-25 Michael Snyder <msnyder@vmware.com>
* gdb.ada/formatted_ref.exp: Replace send_gdb with gdb_test.
Index: formatted_ref.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.ada/formatted_ref.exp,v
retrieving revision 1.4
diff -u -p -r1.4 formatted_ref.exp
--- formatted_ref.exp 1 Jan 2010 07:31:51 -0000 1.4
+++ formatted_ref.exp 25 May 2010 19:26:29 -0000
@@ -46,16 +46,13 @@ proc get_address { var } {
global expect_out
global gdb_prompt
- send_gdb "print $var'access\n"
- gdb_expect {
+ gdb_test_multiple "print $var'access" "address of $var" {
-re "\\$\[0-9\]+ = \\(.*\\) (0x\[0-9a-f\]+).*$gdb_prompt $" {
return $expect_out(1,string)
- }
- timeout {
- perror "couldn't find address of $var"
- return ""
}
}
+ perror "couldn't find address of $var"
+ return ""
}
proc test_p_x { var val addr } {