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.fortran | |
| 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.fortran')
| -rw-r--r-- | gdb/testsuite/gdb.fortran/info-main.exp | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/gdb/testsuite/gdb.fortran/info-main.exp b/gdb/testsuite/gdb.fortran/info-main.exp index e8583f3..7d11235b 100644 --- a/gdb/testsuite/gdb.fortran/info-main.exp +++ b/gdb/testsuite/gdb.fortran/info-main.exp @@ -19,11 +19,12 @@ load_lib fortran.exp standard_testfile .f90 -set old_gdbflags $GDBFLAGS -set GDBFLAGS [string map {"-readnow" ""} "$GDBFLAGS"] +save_vars { GDBFLAGS } { + set GDBFLAGS [string map {"-readnow" ""} "$GDBFLAGS"] -if {[prepare_for_testing ${testfile}.exp ${testfile} ${srcfile} {debug f90}]} { - return -1 + if {[prepare_for_testing ${testfile}.exp ${testfile} ${srcfile} {debug f90}]} { + return -1 + } } gdb_test "info main" "simple" "info main prior to start" @@ -35,8 +36,8 @@ if ![fortran_runto_main] { gdb_test "info main" "simple" "info main post start" -set GDBFLAGS "$GDBFLAGS -readnow" -clean_restart $testfile +save_vars { GDBFLAGS } { + set GDBFLAGS "$GDBFLAGS -readnow" + clean_restart $testfile +} gdb_test "info main" "simple" "info main with readnow" - -set GDBFLAGS $old_gdbflags |