diff options
author | Alan Hayward <alan.hayward@arm.com> | 2019-05-17 16:38:02 +0100 |
---|---|---|
committer | Alan Hayward <alan.hayward@arm.com> | 2019-05-17 16:38:02 +0100 |
commit | 408e9b8b9ebeb854baea9aac52fa8df4d41eb53d (patch) | |
tree | e36e2bb0fd1758359e041ffb1ca5f34dfa64c348 /gdb/testsuite/lib/gdbserver-support.exp | |
parent | f9e2e39d23495844d998f54a0fccb9d6be7edb0e (diff) | |
download | gdb-408e9b8b9ebeb854baea9aac52fa8df4d41eb53d.zip gdb-408e9b8b9ebeb854baea9aac52fa8df4d41eb53d.tar.gz gdb-408e9b8b9ebeb854baea9aac52fa8df4d41eb53d.tar.bz2 |
testsuite: Create .cmd files for gdb and gdbserver
When spawning gdb or gdbserver create a .cmd file in the test output
directory containing the full command line, ensuring the current gdb
instance is appended to the files so that they can be quickly matched
to the corresponding gdb.in file.
gdb/testsuite/ChangeLog:
* lib/gdb.exp (default_gdb_spawn): Call gdb_write_cmd_file.
(gdb_write_cmd_file): New procedure.
* lib/gdbserver-support.exp (gdbserver_start): Call
gdbserver_write_cmd_file.
(gdbserver_write_cmd_file): New proedure.
Diffstat (limited to 'gdb/testsuite/lib/gdbserver-support.exp')
-rw-r--r-- | gdb/testsuite/lib/gdbserver-support.exp | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/gdb/testsuite/lib/gdbserver-support.exp b/gdb/testsuite/lib/gdbserver-support.exp index 164a1d1..54aa557 100644 --- a/gdb/testsuite/lib/gdbserver-support.exp +++ b/gdb/testsuite/lib/gdbserver-support.exp @@ -319,6 +319,8 @@ proc gdbserver_start { options arguments } { append gdbserver_command " $arguments" } + gdbserver_write_cmd_file $gdbserver_command + global server_spawn_id set server_spawn_id [remote_spawn target $gdbserver_command] @@ -597,3 +599,12 @@ proc gdbserver_debug_enabled { } { return [expr { $gdbserverdebug == "debug" || $gdbserverdebug == "remote" || $gdbserverdebug == "all" }] } + +# Write the command line used to invocate gdbserver to the cmd file. + +proc gdbserver_write_cmd_file { cmdline } { + set logfile [standard_output_file_with_gdb_instance gdbserver.cmd] + set cmd_file [open $logfile w] + puts $cmd_file $cmdline + catch "close $cmd_file" +} |