This is the mail archive of the
gdb-patches@sourceware.org
mailing list for the GDB project.
Re: [PATCH] GDB/testsuite: Add a way to send multiple init commands
- From: "Maciej W. Rozycki" <macro at codesourcery dot com>
- To: Tom Tromey <tromey at redhat dot com>
- Cc: Keith Seitz <keiths at redhat dot com>, Eli Zaretskii <eliz at gnu dot org>, <gdb-patches at sourceware dot org>
- Date: Wed, 11 Jun 2014 19:39:42 +0100
- Subject: Re: [PATCH] GDB/testsuite: Add a way to send multiple init commands
- Authentication-results: sourceware.org; auth=none
- References: <alpine dot DEB dot 1 dot 10 dot 1406091614210 dot 3047 at tp dot orcam dot me dot uk> <87a99jwj4u dot fsf at fleche dot redhat dot com>
On Wed, 11 Jun 2014, Tom Tromey wrote:
> Maciej> 2014-06-10 Maciej W. Rozycki <macro@mips.com>
> Maciej> Maciej W. Rozycki <macro@codesourcery.com>
>
> Maciej> * lib/gdb.exp (gdb_run_cmd): Process `gdb_init_commands'.
> Maciej> * lib/mi-support.exp (mi_run_cmd): Process `gdb_init_commands'.
>
> I like Keith's proposed cleanup.
>
> Maciej> + set commands [target_info gdb_init_commands];
>
> Extraneous ";". There are a few of these.
Sigh, it just shows my lack of experience with TCL back in 2005. I've
been pondering an update to the change to avoid some code duplication, so
given I had to touch it anyway I went ahead and did it. Here's the
result.
It has been lightly tested with gdb.base/advance.exp, with neither
setting defined, with `gdb_init_command' only, with `gdb_init_commands'
only having a single element, with `gdb_init_commands' only having two
elements and with both `gdb_init_command' and `gdb_init_commands' defined,
the latter having two elements. It has been also smoke-tested with
gdb.mi/mi-break.exp, with the last arrangement mentioned above only.
> I think this patch should also update testsuite/README to document the
> new setting.
And presumably the old one as well, right? Cc-ing Eli for this part.
2014-06-11 Maciej W. Rozycki <macro@mips.com>
Maciej W. Rozycki <macro@codesourcery.com>
* lib/gdb.exp (gdb_run_cmd): Process `gdb_init_commands'.
* lib/mi-support.exp (mi_run_cmd): Process `gdb_init_commands'.
* README (Board Settings): Document `gdb_init_command' and
`gdb_init_commands'.
Maciej
gdb-init-commands.diff
Index: gdb-fsf-trunk-quilt/gdb/testsuite/README
===================================================================
--- gdb-fsf-trunk-quilt.orig/gdb/testsuite/README 2014-06-03 15:23:24.000000000 +0100
+++ gdb-fsf-trunk-quilt/gdb/testsuite/README 2014-06-11 19:29:49.538972371 +0100
@@ -271,6 +271,16 @@ gdb,use_precord
The board supports process record.
+gdb_init_command
+gdb_init_commands
+
+ Commands to send to GDB every time a program is about to be run. The
+ first of these settings defines a single command as a string. The
+ second defines a TCL list of commands being a string each. The commands
+ are sent one by one in a sequence, first from `gdb_init_command', if any,
+ followed by individual commands from `gdb_init_command', if any, in this
+ list's order.
+
gdb_server_prog
The location of GDBserver. If GDBserver somewhere other than its
Index: gdb-fsf-trunk-quilt/gdb/testsuite/lib/gdb.exp
===================================================================
--- gdb-fsf-trunk-quilt.orig/gdb/testsuite/lib/gdb.exp 2014-06-07 18:27:52.000000000 +0100
+++ gdb-fsf-trunk-quilt/gdb/testsuite/lib/gdb.exp 2014-06-11 19:05:45.388928853 +0100
@@ -209,8 +209,15 @@ proc delete_breakpoints {} {
proc gdb_run_cmd {args} {
global gdb_prompt use_gdb_stub
+ set commands ""
if [target_info exists gdb_init_command] {
- send_gdb "[target_info gdb_init_command]\n"
+ lappend commands [target_info gdb_init_command]
+ }
+ if [target_info exists gdb_init_commands] {
+ set commands [concat $commands [target_info gdb_init_commands]]
+ }
+ foreach command $commands {
+ send_gdb "$command\n"
gdb_expect 30 {
-re "$gdb_prompt $" { }
default {
Index: gdb-fsf-trunk-quilt/gdb/testsuite/lib/mi-support.exp
===================================================================
--- gdb-fsf-trunk-quilt.orig/gdb/testsuite/lib/mi-support.exp 2014-06-07 18:27:50.000000000 +0100
+++ gdb-fsf-trunk-quilt/gdb/testsuite/lib/mi-support.exp 2014-06-11 19:06:27.888927573 +0100
@@ -859,8 +859,15 @@ proc mi_run_cmd_full {use_mi_command arg
set run_match ""
}
+ set commands ""
if [target_info exists gdb_init_command] {
- send_gdb "[target_info gdb_init_command]\n"
+ lappend commands [target_info gdb_init_command]
+ }
+ if [target_info exists gdb_init_commands] {
+ set commands [concat $commands [target_info gdb_init_commands]]
+ }
+ foreach command $commands {
+ send_gdb "$command\n"
gdb_expect 30 {
-re "$mi_gdb_prompt$" { }
default {