diff options
Diffstat (limited to 'gdb')
| -rw-r--r-- | gdb/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.ada/exec_changed.exp | 8 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.base/reread.exp | 8 |
3 files changed, 21 insertions, 0 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index a0cdd70b760..370a733d9d4 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,5 +1,10 @@ 2020-10-28 Tom de Vries <tdevries@suse.de> + * gdb.ada/exec_changed.exp: Add KFAILs for -readnow. + * gdb.base/reread.exp: Same. + +2020-10-28 Tom de Vries <tdevries@suse.de> + * lib/gdb.exp (readnow): Handle arg. * gdb.rust/traits.exp: Add KFAILs for -readnow. diff --git a/gdb/testsuite/gdb.ada/exec_changed.exp b/gdb/testsuite/gdb.ada/exec_changed.exp index d8ee7597feb..ba14c0e68f4 100644 --- a/gdb/testsuite/gdb.ada/exec_changed.exp +++ b/gdb/testsuite/gdb.ada/exec_changed.exp @@ -51,6 +51,8 @@ gdb_reinitialize_dir $srcdir/$subdir gdb_test "shell mv ${binfile} ${common_binfile}" ".*" "" gdb_load ${common_binfile} +set readnow_p [readnow ${common_binfile}] + # Start the program, we should land in the program main procedure if { [gdb_start_cmd] < 0 } { untested start @@ -76,6 +78,9 @@ gdb_test "shell touch ${common_binfile}" ".*" "" if { [gdb_start_cmd] < 0 } { fail "start second" } else { + if { $readnow_p } { + setup_kfail "gdb/26800" *-*-* + } gdb_test "" \ "second \\(\\) at .*second.adb.*" \ "start second" @@ -103,6 +108,9 @@ if { [gdb_start_cmd] < 0 } { gdb_test_no_output "set \$check_gdb_running = 0" "check gdb running" fail "start just first" } else { + if { $readnow_p } { + setup_kfail "gdb/26800" *-*-* + } gdb_test "" \ "first \\(\\) at .*first.adb.*" \ "start just first" diff --git a/gdb/testsuite/gdb.base/reread.exp b/gdb/testsuite/gdb.base/reread.exp index f824156cc39..52c4da79dbd 100644 --- a/gdb/testsuite/gdb.base/reread.exp +++ b/gdb/testsuite/gdb.base/reread.exp @@ -67,6 +67,8 @@ foreach_with_prefix opts { gdb_rename_execfile ${binfile1} ${binfile} gdb_load ${binfile} + set readnow_p [readnow ${binfile}] + # Set a breakpoint at foo gdb_test "break foo" \ @@ -97,6 +99,9 @@ foreach_with_prefix opts { unsupported $test } else { gdb_run_cmd + if { $readnow_p } { + setup_kfail "gdb/26800" *-*-* + } gdb_test "" "Breakpoint.* foo .* at .*:9.*" $test } @@ -133,6 +138,9 @@ foreach_with_prefix opts { gdb_rename_execfile ${binfile} ${binfile1} gdb_rename_execfile ${binfile2} ${binfile} gdb_run_cmd + if { $readnow_p } { + setup_kfail "gdb/26800" *-*-* + } gdb_test "" "Breakpoint.* foo .* at .*:9.*" \ "second pass: run to foo() second time" } |