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: Pedro Alves <palves at redhat dot com>
- To: "Maciej W. Rozycki" <macro at codesourcery dot com>, 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: Fri, 20 Jun 2014 09:50:05 +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> <alpine dot DEB dot 1 dot 10 dot 1406111821290 dot 3047 at tp dot orcam dot me dot uk>
On 06/11/2014 07:39 PM, Maciej W. Rozycki wrote:
> 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'.
I don't particularly see much need for this -- I do this in my
boards instead:
set GDBFLAGS ""
set GDBFLAGS "${GDBFLAGS} -ex \"set breakpoint always-inserted on\""
set GDBFLAGS "${GDBFLAGS} -ex \"set target-async 1\""
See:
https://sourceware.org/gdb/wiki/TestingGDB#Passing_an_option_to_GDB_.2BAC8_Running_the_whole_test_suite_in_a_non-default_mode
But, given gdb_init_command exists and this can be made
non-intrusive, it's fine with me to add the new option.
Thought, I'd much prefer if this code that appears twice:
> + 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 {
was factored out to a procedure that returns the command list. Like:
# Comment here
proc gdb_init_commands {} {
set commands {}
if [target_info exists gdb_init_command] {
lappend commands [target_info gdb_init_command]
}
if [target_info exists gdb_init_commands] {
set commands [concat $commands [target_info gdb_init_commands]]
}
return commands
}
And then, both users can do
foreach command [gdb_init_commands] {
--
Pedro Alves
>
> 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 {
>