2
0
mirror of https://sourceware.org/git/binutils-gdb.git synced 2025-02-23 13:21:43 +08:00

[gdb/testsuite] Fix gdb.base/print-file-var.exp for remote target

When running test-case gdb.base/print-file-var.exp with target board
remote-gdbserver-on-localhost (using REMOTE_TARGET_USERNAME) we run into some
failures.

Fix these by using the name of a shared lib as returned by gdb_load_shlib.

This required splitting up the gdb_load_shlib functionality, which is now
defined as:
...
proc gdb_load_shlib { file } {
    set dest [gdb_download_shlib $file]
    gdb_locate_shlib $file
    return $dest
}
...
such that we can do gdb_download_shlib before gdb is started.

Tested on x86_64-linux.

Co-Authored-by: Ivan Tetyushkin <ivan.tetyushkin@syntacore.com>
This commit is contained in:
Tom de Vries 2022-11-15 15:24:54 +01:00
parent 2a1742f31c
commit 4b4f2a7d25
2 changed files with 29 additions and 17 deletions
gdb/testsuite

View File

@ -59,8 +59,10 @@ proc test {hidden dlopen version_id_main lang} {
set main_opts [list debug $lang]
set link_opts [list debug shlib=${libobj1}]
set target_libobj2 [gdb_download_shlib $libobj2]
if {$dlopen} {
lappend main_opts "additional_flags=-DSHLIB_NAME=\"$libobj2\""
lappend main_opts "additional_flags=-DSHLIB_NAME=\"$target_libobj2\""
lappend link_opts "shlib_load"
} else {
lappend link_opts "shlib=${libobj2}"
@ -79,7 +81,7 @@ proc test {hidden dlopen version_id_main lang} {
clean_restart $executable
gdb_load_shlib $libobj1
gdb_load_shlib $libobj2
gdb_locate_shlib $libobj2
if ![runto_main] {
return -1

View File

@ -5870,30 +5870,40 @@ proc gdb_remote_download {dest fromfile {tofile {}}} {
}
}
# gdb_load_shlib LIB...
#
# Copy the listed library to the target.
# Copy shlib FILE to the target.
proc gdb_load_shlib { file } {
proc gdb_download_shlib { file } {
return [gdb_remote_download target [shlib_target_file $file]]
}
# Set solib-search-path to allow gdb to locate shlib FILE.
proc gdb_locate_shlib { file } {
global gdb_spawn_id
if ![info exists gdb_spawn_id] {
perror "gdb_load_shlib: GDB is not running"
}
set dest [gdb_remote_download target [shlib_target_file $file]]
if {[is_remote target]} {
# If the target is remote, we need to tell gdb where to find the
# libraries.
#
# We could set this even when not testing remotely, but a user
# generally won't set it unless necessary. In order to make the tests
# more like the real-life scenarios, we don't set it for local testing.
gdb_test "set solib-search-path [file dirname $file]" "" \
"set solib-search-path for [file tail $file]"
# If the target is remote, we need to tell gdb where to find the
# libraries.
if { ![is_remote target] } {
return
}
# We could set this even when not testing remotely, but a user
# generally won't set it unless necessary. In order to make the tests
# more like the real-life scenarios, we don't set it for local testing.
gdb_test "set solib-search-path [file dirname $file]" "" \
"set solib-search-path for [file tail $file]"
}
# Copy shlib FILE to the target and set solib-search-path to allow gdb to
# locate it.
proc gdb_load_shlib { file } {
set dest [gdb_download_shlib $file]
gdb_locate_shlib $file
return $dest
}