From: Tom de Vries <tdevries@suse.de>
Date: Tue, 7 Mar 2023 14:28:52 +0000 (+0100)
Subject: [gdb/testsuite] Fix gdb.base/fork-no-detach-follow-child-dlopen.exp for remote target
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=dfe30a41c8c1237f70a9cc31cc8cc90f1c1a46f6;p=binutils-gdb.git

[gdb/testsuite] Fix gdb.base/fork-no-detach-follow-child-dlopen.exp for remote target

Fix test-case gdb.base/fork-no-detach-follow-child-dlopen.exp for target board
remote-gdbserver-on-localhost.exp by using gdb_download_shlib and gdb_locate_shlib.

Tested on x86_64-linux.
---

diff --git a/gdb/testsuite/gdb.base/fork-no-detach-follow-child-dlopen.exp b/gdb/testsuite/gdb.base/fork-no-detach-follow-child-dlopen.exp
index 6bc734ebf0f..94111fe3beb 100644
--- a/gdb/testsuite/gdb.base/fork-no-detach-follow-child-dlopen.exp
+++ b/gdb/testsuite/gdb.base/fork-no-detach-follow-child-dlopen.exp
@@ -32,14 +32,16 @@ if { [gdb_compile_shlib $srcdir/$subdir/$srcfile2 $shlib_path {debug}] != "" } {
     return
 }
 
-set opts [list shlib_load additional_flags=-DSHLIB_PATH="${shlib_path}"]
+set shlib_path_target [gdb_download_shlib $::shlib_path]
+
+set opts [list shlib_load additional_flags=-DSHLIB_PATH="${shlib_path_target}"]
 if { [build_executable "failed to prepare" ${testfile} ${srcfile} $opts] } {
     return
 }
 
 proc do_test {} {
     clean_restart $::binfile
-    gdb_load_shlib $::shlib_path
+    gdb_locate_shlib $::shlib_path
     gdb_test_no_output "set follow-fork-mode child"
     gdb_test_no_output "set detach-on-fork off"