[gdb/testsuite] Fix gdb.base/info_sources_2.exp for remote target

With test-case gdb.base/info_sources_2.exp and target board
remote-gdbserver-on-localhost (using REMOTE_TARGET_USERNAME) we run into some
failures.

Fix these by adding the missing gdb_load_shlib.

Tested on x86_64-linux.
This commit is contained in:
Tom de Vries
2022-11-15 15:24:54 +01:00
parent b108c563f0
commit 9af7a37003

View File

@ -20,6 +20,8 @@ if { [skip_shlib_tests] } {
return 0
}
set is_remote_target [is_remote target]
standard_testfile -test.c -lib.c
set solib_name [standard_output_file ${testfile}-lib.so]
@ -37,6 +39,8 @@ if {[gdb_compile ${srcdir}/${subdir}/${srcfile} ${binfile} executable \
clean_restart ${binfile}
set solib_name [gdb_load_shlib $solib_name]
if ![runto foo] {
untested "failed to run to function foo"
return -1
@ -55,6 +59,7 @@ if ![runto foo] {
# file is NOT listed for the given object file.
proc run_info_sources { extra_args args } {
global gdb_prompt srcdir subdir
global is_remote_target
with_test_prefix "args: ${extra_args}" {
@ -76,6 +81,9 @@ proc run_info_sources { extra_args args } {
-re "^(\[^\r\n\]+):\r\n" {
set objfile_name $expect_out(1,string)
if { $is_remote_target } {
set objfile_name [file tail $objfile_name]
}
exp_continue
}
@ -129,6 +137,10 @@ proc run_info_sources { extra_args args } {
# Figure out the path for SOURCEFILE that we're looking for.
set sourcepath [file normalize ${srcdir}/${subdir}/${sourcefile}]
if { $is_remote_target } {
set objfile [file tail $objfile]
}
# Make sure we handle the case where there are no source files
# associated with a particular objfile.
set source_list {}