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