diff options
author | Yao Qi <yao.qi@linaro.org> | 2015-07-24 14:40:34 +0100 |
---|---|---|
committer | Yao Qi <yao.qi@linaro.org> | 2015-07-24 14:40:34 +0100 |
commit | 8cfe207c9fcfcf940ec8eb834afde41432ec6d80 (patch) | |
tree | 2095caa2232abb0b664ccc7dd156b9e9a3792978 /gdb/testsuite/lib | |
parent | 84b74b498eb690e5a856c23b9abc71f9680b81a6 (diff) | |
download | gdb-8cfe207c9fcfcf940ec8eb834afde41432ec6d80.zip gdb-8cfe207c9fcfcf940ec8eb834afde41432ec6d80.tar.gz gdb-8cfe207c9fcfcf940ec8eb834afde41432ec6d80.tar.bz2 |
Test --wrapper in extended-remote
We didn't test --wrapper option in extended-remote before, this patch
is to add a test case for it. In order to pass option --wrapper to
gdbserver in extended-remote, I add arg in gdbserver_start_extended,
and its default value is "", so that other places use
gdbserver_start_extended don't have to be updated.
gdb/testsuite:
2015-07-24 Yao Qi <yao.qi@linaro.org>
* lib/gdbserver-support.exp (gdbserver_start_extended): Add
argument options.
* gdb.server/ext-wrapper.exp: New file.
Diffstat (limited to 'gdb/testsuite/lib')
-rw-r--r-- | gdb/testsuite/lib/gdbserver-support.exp | 16 |
1 files changed, 11 insertions, 5 deletions
diff --git a/gdb/testsuite/lib/gdbserver-support.exp b/gdb/testsuite/lib/gdbserver-support.exp index 6c3401c..e6d8f2c 100644 --- a/gdb/testsuite/lib/gdbserver-support.exp +++ b/gdb/testsuite/lib/gdbserver-support.exp @@ -434,15 +434,21 @@ proc gdbserver_reconnect { } { return [gdb_target_cmd $gdbserver_protocol $gdbserver_gdbport] } -# Start and connect to a gdbserver in extended mode. Note this frobs -# $gdbserver_protocol, so should be used only from a board that -# usually connects in target remote mode. -proc gdbserver_start_extended { } { +# Start gdbserver in extended mode with OPTIONS and connect to it. Note +# this frobs $gdbserver_protocol, so should be used only from a board +# that usually connects in target remote mode. +proc gdbserver_start_extended { {options ""} } { global gdbserver_protocol global gdbserver_gdbport global use_gdb_stub - if { [catch { gdbserver_start "--multi" "" } res] == 1 } { + set gdbserver_options "--multi" + + if { $options != "" } { + append gdbserver_options " $options" + } + + if { [catch { gdbserver_start $gdbserver_options "" } res] == 1 } { perror $res return 2 } |