diff options
author | Tom de Vries <tdevries@suse.de> | 2024-05-03 15:07:33 +0200 |
---|---|---|
committer | Tom de Vries <tdevries@suse.de> | 2024-05-03 15:07:33 +0200 |
commit | 9dd1e642084cae1caed0a4a3af7bf93804d89530 (patch) | |
tree | d8c82ff8877a7c34da534d7ee2cc72f3010b4953 /gdb/testsuite/gdb.mi | |
parent | bab7860fa71715f7b4f68cddf79c420ee30f04fe (diff) | |
download | gdb-9dd1e642084cae1caed0a4a3af7bf93804d89530.zip gdb-9dd1e642084cae1caed0a4a3af7bf93804d89530.tar.gz gdb-9dd1e642084cae1caed0a4a3af7bf93804d89530.tar.bz2 |
[gdb/testsuite] Use save_vars to restore GDBFLAGS
There's a pattern of using:
...
set saved_gdbflags $GDBFLAGS
set GDBFLAGS "$GDBFLAGS ..."
<do something with GDBFLAGS>
set GDBFLAGS $saved_gdbflags
...
Simplify this by using save_vars:
...
save_vars { GDBFLAGS } {
set GDBFLAGS "$GDBFLAGS ..."
<do something with GDBFLAGS>
}
...
Tested on x86_64-linux.
Diffstat (limited to 'gdb/testsuite/gdb.mi')
-rw-r--r-- | gdb/testsuite/gdb.mi/mi-async.exp | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/gdb/testsuite/gdb.mi/mi-async.exp b/gdb/testsuite/gdb.mi/mi-async.exp index fc138a6..74aff56 100644 --- a/gdb/testsuite/gdb.mi/mi-async.exp +++ b/gdb/testsuite/gdb.mi/mi-async.exp @@ -29,10 +29,6 @@ if {![istarget *-linux*]} { # Check if start command is supported. require !use_gdb_stub -# The plan is for async mode to become the default but toggle for now. -set saved_gdbflags $GDBFLAGS -set GDBFLAGS [concat $GDBFLAGS " -ex \"set mi-async on\""] - load_lib mi-support.exp standard_testfile basics.c @@ -42,8 +38,13 @@ if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {deb return -1 } -if {[mi_clean_restart $binfile]} { - return +# The plan is for async mode to become the default but toggle for now. +save_vars { GDBFLAGS } { + set GDBFLAGS [concat $GDBFLAGS " -ex \"set mi-async on\""] + + if {[mi_clean_restart $binfile]} { + return + } } # mi_gdb_test cannot be used for asynchronous commands because there are @@ -75,5 +76,3 @@ proc linux_async_tests {} { linux_async_tests mi_gdb_exit - -set GDBFLAGS $saved_gdbflags |