darlinghq/darling-gdb
1
0
Fork 0
mirror of https://github.com/darlinghq/darling-gdb.git synced 2025-02-13 13:35:56 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

* lib/gdb.exp (gdb_compile): Also set rpath for shlib=, on a

Browse Source 
remote host.
This commit is contained in:
Nathan Froyd 2009-11-12 17:35:54 +00:00
parent 75aa492e67
commit bdf7534a4d
2 changed files with 30 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gdb/testsuite/ChangeLog
View File

@ -1,3 +1,9 @@
2009-11-12 Daniel Jacobowitz <dan@codesourcery.com>
Nathan Froyd <froydnj@codesourcery.com>
* lib/gdb.exp (gdb_compile): Also set rpath for shlib=, on a
remote host.
2009-11-12 Nathan Froyd <froydnj@codesourcery.com>
* gdb.base/step-line.exp: Copy step-line.inp to the remote host.

36
gdb/testsuite/lib/gdb.exp
View File

@ -1734,6 +1734,7 @@ proc gdb_compile {source dest type options} {
# "shlib=librarypath" in OPTIONS.
set new_options ""
set shlib_found 0
set shlib_load 0
foreach opt $options {
if [regexp {^shlib=(.*)} $opt dummy_var shlib_name] {
if [test_compiler_info "xlc-*"] {
@ -1755,22 +1756,33 @@ proc gdb_compile {source dest type options} {
}
}
} elseif { $opt == "shlib_load" } {
if { ([istarget "*-*-mingw*"]
|| [istarget *-*-cygwin*]
|| [istarget *-*-pe*]
|| [istarget arm*-*-symbianelf*]
|| [istarget hppa*-*-hpux*])} {
# Do not need anything.
} elseif { [istarget *-*-openbsd*] } {
lappend new_options "additional_flags=-Wl,-rpath,${outdir}"
} else {
lappend new_options "libs=-ldl"
lappend new_options "additional_flags=-Wl,-rpath,\\\$ORIGIN"
}
set shlib_load 1
} else {
lappend new_options $opt
}
}
# We typically link to shared libraries using an absolute path, and
# that's how they are found at runtime. If we are going to
# dynamically load one by basename, we must specify rpath. If we
# are using a remote host, DejaGNU will link to the shared library
# using a relative path, so again we must specify an rpath.
if { $shlib_load || ($shlib_found && [is_remote host]) } {
if { ([istarget "*-*-mingw*"]
|| [istarget *-*-cygwin*]
|| [istarget *-*-pe*]
|| [istarget arm*-*-symbianelf*]
|| [istarget hppa*-*-hpux*])} {
# Do not need anything.
} elseif { [istarget *-*-openbsd*] } {
lappend new_options "additional_flags=-Wl,-rpath,${outdir}"
} else {
if { $shlib_load } {
lappend new_options "libs=-ldl"
}
lappend new_options "additional_flags=-Wl,-rpath,\\\$ORIGIN"
}
}
set options $new_options
if [target_info exists gdb_stub] {