| # Copyright 2010 Free Software Foundation, Inc. |
| |
| # This program is free software; you can redistribute it and/or modify |
| # it under the terms of the GNU General Public License as published by |
| # the Free Software Foundation; either version 3 of the License, or |
| # (at your option) any later version. |
| # |
| # This program is distributed in the hope that it will be useful, |
| # but WITHOUT ANY WARRANTY; without even the implied warranty of |
| # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| # GNU General Public License for more details. |
| # |
| # You should have received a copy of the GNU General Public License |
| # along with this program. If not, see <http://www.gnu.org/licenses/>. |
| |
| # This test only works on GNU/Linux. |
| if { ![isnative] || [is_remote host] || ![istarget *-linux*] || [skip_shlib_tests]} { |
| continue |
| } |
| |
| set test "break-interp" |
| set binprefix ${objdir}/${subdir}/${test} |
| # Only to get the $interp_system name. |
| set srcfile_test "start.c" |
| set binfile_test ${test}-test |
| set binfile_lib ${objdir}/${subdir}/${test}.so |
| set srcfile "${test}-main.c" |
| set srcfile_lib "${test}-lib.c" |
| |
| if [get_compiler_info ${binfile_lib}] { |
| return -1 |
| } |
| |
| # Use -soname so that it is listed with " => " by ldd and this testcase makes |
| # a copy of ${binfile_lib} for each prelink variant. |
| |
| if {[gdb_compile_shlib ${srcdir}/${subdir}/${srcfile_lib} ${binfile_lib} [list debug additional_flags=-Wl,-soname,${test}.so]] != ""} { |
| return -1 |
| } |
| |
| if {[build_executable ${test}.exp $binfile_test ${srcfile_test} {}] == -1} { |
| return -1 |
| } |
| |
| # Return the interpreter filename string. |
| # Return "" if no interpreter was found. |
| proc section_get {exec section} { |
| global objdir |
| global subdir |
| set tmp "${objdir}/${subdir}/break-interp.interp" |
| set objcopy_program [transform objcopy] |
| |
| set command "exec $objcopy_program -O binary --set-section-flags $section=A --change-section-address $section=0 -j $section $exec $tmp" |
| verbose -log "command is $command" |
| set result [catch $command output] |
| verbose -log "result is $result" |
| verbose -log "output is $output" |
| if {$result == 1} { |
| return "" |
| } |
| set fi [open $tmp] |
| fconfigure $fi -translation binary |
| set data [read $fi] |
| close $fi |
| #file delete $tmp |
| # .interp has size $len + 1 but .gnu_debuglink contains garbage after \000. |
| set len [string first \000 $data] |
| if {$len < 0} { |
| verbose -log "section $section not found" |
| return "" |
| } |
| set retval [string range $data 0 [expr $len - 1]] |
| verbose -log "section $section is <$retval>" |
| return $retval |
| } |
| |
| # Note: The separate debug info file content build-id/crc32 are not verified |
| # contrary to the GDB search algorithm skipping non-matching ones. |
| proc system_debug_get {exec} { |
| global debug_root |
| |
| set exec_build_id_debug [build_id_debug_filename_get $exec] |
| set debug_base "[file tail $exec].debug" |
| set exec_dir [file dirname $exec] |
| |
| # isfile returns 1 even for symlinks to files. |
| set retval $debug_root/$exec_build_id_debug |
| if [file isfile $retval] { |
| return $retval |
| } |
| set retval $exec_dir/$debug_base |
| if [file isfile $retval] { |
| return $retval |
| } |
| set retval $exec_dir/.debug/$debug_base |
| if [file isfile $retval] { |
| return $retval |
| } |
| set retval $debug_root/$exec_dir/$debug_base |
| if [file isfile $retval] { |
| return $retval |
| } |
| return "" |
| } |
| |
| gdb_exit |
| gdb_start |
| set debug_root "" |
| set test "show debug-file-directory" |
| gdb_test_multiple $test $test { |
| -re "The directory where separate debug symbols are searched for is \"(.*)\".\r\n$gdb_prompt $" { |
| set debug_root $expect_out(1,string) |
| } |
| } |
| |
| set interp_system [section_get ${objdir}/${subdir}/$binfile_test .interp] |
| set interp_system_debug [system_debug_get $interp_system] |
| verbose -log "$interp_system has debug $interp_system_debug" |
| |
| proc prelinkNO_run {arg} { |
| set command "exec /usr/sbin/prelink -uN $arg" |
| verbose -log "command is $command" |
| set result [catch $command output] |
| verbose -log "result is $result" |
| verbose -log "output is $output" |
| return [list $result $output] |
| } |
| |
| proc prelinkNO {arg {name {}}} { |
| if {$name == ""} { |
| set name [file tail $arg] |
| } |
| set test "unprelink $name" |
| set run [prelinkNO_run $arg] |
| set result [lindex $run 0] |
| set output [lindex $run 1] |
| if {$result == 0 && $output == ""} { |
| verbose -log "$name has been now unprelinked" |
| set run [prelinkNO_run $arg] |
| set result [lindex $run 0] |
| set output [lindex $run 1] |
| } |
| # Last line does miss the trailing \n. |
| if {$result == 1 && [regexp {^(/usr/sbin/prelink: [^ ]* does not have .gnu.prelink_undo section\n?)*$} $output]} { |
| pass $test |
| return 1 |
| } else { |
| fail $test |
| return 0 |
| } |
| } |
| |
| proc prelinkYES {arg {name ""}} { |
| if {$name == ""} { |
| set name [file tail $arg] |
| } |
| set test "prelink $name" |
| set command "exec /usr/sbin/prelink -qNR --no-exec-shield $arg" |
| verbose -log "command is $command" |
| set result [catch $command output] |
| verbose -log "result is $result" |
| verbose -log "output is $output" |
| if {$result == 0 && $output == ""} { |
| pass $test |
| return 1 |
| } else { |
| fail $test |
| return 0 |
| } |
| } |
| |
| # Resolve symlinks. |
| proc symlink_resolve {file} { |
| set loop 0 |
| while {[file type $file] == "link"} { |
| set target [file readlink $file] |
| if {[file pathtype $target] == "relative"} { |
| set src2 [file dirname $file]/$target |
| } else { |
| set src2 $target |
| } |
| verbose -log "Resolved symlink $file targetting $target as $src2" |
| set file $src2 |
| |
| set loop [expr $loop + 1] |
| if {$loop > 30} { |
| fail "Looping symlink resolution for $file" |
| return "" |
| } |
| } |
| return $file |
| } |
| |
| proc copy {src dest} { |
| set src [symlink_resolve $src] |
| # Test name would contain build-id hash for symlink-unresolved $src. |
| set test "copy [file tail $src] to [file tail $dest]" |
| set command "file copy -force $src $dest" |
| verbose -log "command is $command" |
| if [catch $command] { |
| fail $test |
| return 0 |
| } else { |
| pass $test |
| return 1 |
| } |
| } |
| |
| proc strip_debug {dest} { |
| set test "strip [file tail $dest]" |
| set strip_program [transform strip] |
| set command "exec $strip_program --strip-debug $dest" |
| verbose -log "command is $command" |
| if [catch $command] { |
| fail $test |
| return 0 |
| } else { |
| pass $test |
| return 1 |
| } |
| } |
| |
| # `runto' does not check we stopped really at the function we specified. |
| proc reach {func command} { |
| global gdb_prompt |
| |
| if [gdb_breakpoint $func allow-pending] { |
| set test "reach $func" |
| gdb_test_multiple $command $test { |
| -re "Breakpoint \[0-9\]+, $func \\(.*\\) at .*:\[0-9\]+\r\n.*$gdb_prompt $" { |
| pass $test |
| } |
| -re "Breakpoint \[0-9\]+, \[0-9xa-f\]+ in $func \\(\\)( from .*)?\r\n$gdb_prompt $" { |
| pass $test |
| } |
| } |
| } |
| } |
| |
| proc test_core {file} { |
| global srcdir subdir gdb_prompt |
| |
| set corefile [core_find $file {} "segv"] |
| if {$corefile == ""} { |
| return |
| } |
| |
| gdb_exit |
| gdb_start |
| # Clear it to never find any separate debug infos in $debug_root. |
| gdb_test "set debug-file-directory" "" "set debug-file-directory for core" |
| gdb_reinitialize_dir $srcdir/$subdir |
| gdb_load $file |
| |
| # Do not check the binary filename as it may be truncated. |
| gdb_test "core-file $corefile" "Core was generated by .*\r\n#0 .*" "core loaded" |
| |
| gdb_test "bt" "#\[0-9\]+ +\[^\r\n\]*\\mlibfunc\\M\[^\r\n\]*\r\n#\[0-9\]+ +\[^\r\n\]*\\mmain\\M.*" "core main bt" |
| } |
| |
| proc test_attach {file} { |
| global board_info |
| |
| gdb_exit |
| |
| set test "sleep function started" |
| |
| set command "${file} sleep" |
| set res [remote_spawn host $command]; |
| if { $res < 0 || $res == "" } { |
| perror "Spawning $command failed." |
| fail $test |
| return |
| } |
| set pid [exp_pid -i $res] |
| gdb_expect { |
| -re "sleeping\r\n" { |
| pass $test |
| } |
| eof { |
| fail "$test (eof)" |
| return |
| } |
| timeout { |
| fail "$test (timeout)" |
| return |
| } |
| } |
| |
| gdb_exit |
| gdb_start |
| gdb_test "attach $pid" "Attaching to process $pid\r\n.*" "attach" |
| gdb_test "bt" "#\[0-9\]+ +\[^\r\n\]*\\mlibfunc\\M\[^\r\n\]*\r\n#\[0-9\]+ +\[^\r\n\]*\\mmain\\M.*" "attach main bt" |
| gdb_exit |
| |
| remote_exec host "kill -9 $pid" |
| } |
| |
| proc test_ld {file ifmain trynosym} { |
| global srcdir subdir gdb_prompt |
| |
| # First test normal `file'-command loaded $FILE with symbols. |
| |
| gdb_exit |
| gdb_start |
| # Clear it to never find any separate debug infos in $debug_root. |
| gdb_test "set debug-file-directory" |
| gdb_reinitialize_dir $srcdir/$subdir |
| gdb_load $file |
| |
| reach "dl_main" "run segv" |
| |
| gdb_test "bt" "#0 +\[^\r\n\]*\\mdl_main\\M.*" "dl bt" |
| |
| if $ifmain { |
| reach "main" continue |
| |
| reach "libfunc" continue |
| |
| gdb_test "bt" "#0 +\[^\r\n\]*\\mlibfunc\\M\[^\r\n\]*\r\n#1 +\[^\r\n\]*\\mmain\\M.*" "main bt" |
| |
| test_core $file |
| |
| test_attach $file |
| } |
| |
| if !$trynosym { |
| return |
| } |
| |
| global pf_prefix |
| set old_ldprefix $pf_prefix |
| lappend pf_prefix "symbol-less:" |
| |
| # Test also `exec-file'-command loaded $FILE - therefore without symbols. |
| # SYMBOL_OBJFILE is not available and only EXEC_BFD must be used. |
| |
| gdb_exit |
| gdb_start |
| # Clear it to never find any separate debug infos in $debug_root. |
| gdb_test "set debug-file-directory" |
| gdb_reinitialize_dir $srcdir/$subdir |
| |
| # Test no (error) message has been printed by `exec-file'. |
| set escapedfile [string_to_regexp $file] |
| gdb_test "exec-file $file" "exec-file $escapedfile" "load" |
| |
| if $ifmain { |
| reach "dl_main" run |
| |
| set test "info files" |
| set entrynohex "" |
| gdb_test_multiple $test $test { |
| -re "\r\n\[\t \]*Entry point:\[\t \]*0x(\[0-9a-f\]+)\r\n.*$gdb_prompt $" { |
| set entrynohex $expect_out(1,string) |
| pass $test |
| } |
| } |
| if {$entrynohex != ""} { |
| gdb_test "break *0x$entrynohex" "" "break at entry point" |
| gdb_test "continue" "\r\nBreakpoint \[0-9\]+, 0x0*$entrynohex in .*" "entry point reached" |
| } |
| } else { |
| # There is no symbol to break at ld.so. Moreover it can exit with an |
| # error code. |
| gdb_test "run" "Program exited (normally|with code \[0-9\]+)\\." "ld.so exit" |
| } |
| |
| set pf_prefix $old_ldprefix |
| } |
| |
| # Create separate binaries for each testcase - to make the possible reported |
| # problem reproducible after the whole test run finishes. |
| |
| set old_ldprefix $pf_prefix |
| foreach ldprelink {NO YES} { |
| foreach ldsepdebug {NO IN SEP} { |
| # Skip running the ldsepdebug test if we do not have system separate |
| # debug info available. |
| if {$interp_system_debug == "" && $ldsepdebug == "SEP"} { |
| continue |
| } |
| |
| set ldname "LDprelink${ldprelink}debug${ldsepdebug}" |
| set interp $binprefix-$ldname |
| |
| # prelink needs to always prelink all the dependencies to do any file |
| # modifications of its files. ld.so also needs all the dependencies to |
| # be prelinked to omit the relocation process. In-memory file offsets |
| # are not dependent whether ld.so went the prelink way or through the |
| # relocation process. |
| # |
| # For GDB we are not interested whether prelink succeeds as it is |
| # transparent to GDB. GDB is being tested for differences of file |
| # offsets vs. in-memory offsets. So we have to prelink even ld.so for |
| # the BIN modification to happen but we need to restore the original |
| # possibly unprelinked ld.so to test all the combinations for GDB. |
| set interp_saved ${interp}-saved |
| |
| set pf_prefix $old_ldprefix |
| lappend pf_prefix "$ldname:" |
| |
| if {$ldsepdebug == "NO"} { |
| copy $interp_system $interp |
| # Never call strip-debug before unprelink: |
| # prelink: ...: Section .note.gnu.build-id created after prelinking |
| if ![prelinkNO $interp] { |
| continue |
| } |
| strip_debug $interp |
| } elseif {$ldsepdebug == "IN" && $interp_system_debug == ""} { |
| copy $interp_system $interp |
| } elseif {$ldsepdebug == "IN" && $interp_system_debug != ""} { |
| copy $interp_system $interp |
| copy $interp_system_debug "${interp}.debug" |
| # eu-unstrip: DWARF data in '...' not adjusted for prelinking bias; consider prelink -u |
| if {![prelinkNO $interp] || ![prelinkNO "${interp}.debug"]} { |
| continue |
| } |
| set test "eu-unstrip unprelinked:[file tail $interp_system] + [file tail $interp_system_debug] to [file tail $interp]" |
| set command "exec eu-unstrip -o $interp $interp ${interp}.debug" |
| verbose -log "command is $command" |
| if [catch $command] { |
| setup_xfail *-*-* |
| fail $test |
| continue |
| } else { |
| pass $test |
| } |
| } elseif {$ldsepdebug == "SEP" && $interp_system_debug == ""} { |
| copy $interp_system $interp |
| # eu-unstrip: DWARF data in '...' not adjusted for prelinking bias; consider prelink -u |
| if ![prelinkNO $interp] { |
| continue |
| } |
| gdb_gnu_strip_debug $interp |
| } elseif {$ldsepdebug == "SEP" && $interp_system_debug != ""} { |
| copy $interp_system $interp |
| copy $interp_system_debug "${interp}.debug" |
| } |
| |
| if {$ldsepdebug == "SEP"} { |
| if ![prelinkNO "${interp}.debug"] { |
| continue |
| } |
| } else { |
| file delete "${interp}.debug" |
| } |
| |
| if ![prelink$ldprelink $interp] { |
| continue |
| } |
| test_ld $interp 0 [expr {$ldsepdebug == "NO"}] |
| |
| if ![copy $interp $interp_saved] { |
| continue |
| } |
| set old_binprefix $pf_prefix |
| foreach binprelink {NO YES} { |
| foreach binsepdebug {NO IN SEP} { |
| foreach binpie {NO YES} { |
| # This combination is not possible, non-PIE (fixed address) |
| # binary cannot be prelinked to any (other) address. |
| if {$binprelink == "YES" && $binpie == "NO"} { |
| continue |
| } |
| |
| set binname "BINprelink${binprelink}debug${binsepdebug}pie${binpie}" |
| set exec $binprefix-$binname |
| set dir ${exec}.d |
| |
| set pf_prefix $old_binprefix |
| lappend pf_prefix "$binname:" |
| |
| set opts "additional_flags=-Wl,--dynamic-linker,$interp,-rpath,$dir" |
| lappend opts "additional_flags=-Wl,$binfile_lib,-rpath,[file dirname $binfile_lib]" |
| if {$binsepdebug != "NO"} { |
| lappend opts {debug} |
| } |
| if {$binpie == "YES"} { |
| lappend opts {additional_flags=-fPIE -pie} |
| } |
| if {[build_executable ${test}.exp [file tail $exec] $srcfile $opts] == -1} { |
| continue; |
| } |
| if {$binsepdebug == "SEP"} { |
| gdb_gnu_strip_debug $exec |
| # Just a sanity check. As gdb_gnu_strip_debug uses the |
| # "[file dirname $exec]/.debug/[file tail $exec].debug" |
| # variant delete the higher-priority exec.debug file. |
| file delete "$exec.debug" |
| } |
| |
| # Supply a self-sufficent directory $dir with the required |
| # libraries. To make an executable properly prelinked all |
| # its dependencies on libraries must be also prelinked. If |
| # some of the system libraries is currently not prelinked |
| # we have no right to prelink (modify it) at its current |
| # system place. |
| |
| file delete -force $dir |
| file mkdir $dir |
| |
| set command "ldd $exec" |
| set test "ldd [file tail $exec]" |
| set result [catch "exec $command" output] |
| verbose -log "result of $command is $result" |
| verbose -log "output of $command is $output" |
| if {$result != 0 || $output == ""} { |
| fail $test |
| } else { |
| pass $test |
| } |
| |
| # gdb testsuite will put there also needless -lm. |
| set test "$test output contains libc" |
| set libc [regexp -all -inline -line {^.* => (/[^ ]+).*$} $output] |
| if {[llength $libc] == 0} { |
| fail $test |
| } else { |
| pass $test |
| } |
| |
| set dests {} |
| for {set i 1} {$i < [llength $libc]} {incr i 2} { |
| set abspath [lindex $libc $i] |
| set dest "$dir/[file tail $abspath]" |
| copy $abspath $dest |
| lappend dests $dest |
| } |
| |
| if {[prelink$binprelink "--dynamic-linker=$interp --ld-library-path=$dir $exec $interp [concat $dests]" [file tail $exec]] |
| && [copy $interp_saved $interp]} { |
| test_ld $exec 1 [expr {$binsepdebug == "NO"}] |
| } |
| } |
| } |
| } |
| |
| file delete $interp_saved |
| } |
| } |
| set pf_prefix $old_ldprefix |