diff options
Diffstat (limited to 'gdb/testsuite/lib/dap-support.exp')
| -rw-r--r-- | gdb/testsuite/lib/dap-support.exp | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/gdb/testsuite/lib/dap-support.exp b/gdb/testsuite/lib/dap-support.exp index 4a1a288..657ad7b 100644 --- a/gdb/testsuite/lib/dap-support.exp +++ b/gdb/testsuite/lib/dap-support.exp @@ -248,6 +248,7 @@ proc _dap_initialize {name} { # * stop_at_main - value is ignored, the presence of this means that # "stopAtBeginningOfMainSubprogram" will be passed to the launch # request. +# * cwd - value is the working directory to use. # # After this proc is called, gdb will be ready to accept breakpoint # requests. @@ -284,6 +285,10 @@ proc dap_launch {file {args {}}} { append params { stopAtBeginningOfMainSubprogram [l true]} } + cwd { + append envlist " cwd [format {[%s]} [list s $value]]" + } + default { error "unrecognized parameter $key" } |