diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index c57ddf55cbf..0be2fd3386c 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2020-05-16 Pedro Alves + + * gdb.multi/multi-re-run.exp (test_re_run): Switch + LAST_LOADED_FILE accordingly. + 2020-05-15 Philippe Waroquiers * gdb.base/alias.exp: Verify 'help aliases' shows user defined aliases. diff --git a/gdb/testsuite/gdb.multi/multi-re-run.exp b/gdb/testsuite/gdb.multi/multi-re-run.exp index 93cd709b5c7..a2432934824 100644 --- a/gdb/testsuite/gdb.multi/multi-re-run.exp +++ b/gdb/testsuite/gdb.multi/multi-re-run.exp @@ -51,6 +51,7 @@ proc test_re_run {re_run_inf} { global binfile1 binfile2 global inferior_exited_re global gdb_prompt + global last_loaded_file clean_restart ${binfile1} @@ -65,12 +66,17 @@ proc test_re_run {re_run_inf} { if {$re_run_inf == 1} { set steady_inf 2 + set steady_binfile $binfile2 + set re_run_binfile $binfile1 } else { set steady_inf 1 + set steady_binfile $binfile1 + set re_run_binfile $binfile2 } gdb_test "inferior $steady_inf" "Switching to inferior $steady_inf.*" \ "switch to steady inferior" + set last_loaded_file $steady_binfile # Run the steady inferior to a breakpoint, and let it stay stopped # there. @@ -81,6 +87,7 @@ proc test_re_run {re_run_inf} { gdb_test "inferior $re_run_inf" "Switching to inferior $re_run_inf.*" \ "switch to re-run inferior" + set last_loaded_file $re_run_binfile # Now run the RE_RUN_INF inferior a couple times. GDB used to # have a bug that caused the second run to fail to load