1 # Copyright 2012-2014 Free Software Foundation, Inc.
3 # This program is free software; you can redistribute it and/or modify
4 # it under the terms of the GNU General Public License as published by
5 # the Free Software Foundation; either version 3 of the License, or
6 # (at your option) any later version.
8 # This program is distributed in the hope that it will be useful,
9 # but WITHOUT ANY WARRANTY; without even the implied warranty of
10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11 # GNU General Public License for more details.
13 # You should have received a copy of the GNU General Public License
14 # along with this program. If not, see <http://www.gnu.org/licenses/>.
16 # Test the "print symbol-loading" option.
18 if {[skip_shlib_tests]} {
22 standard_testfile print-symbol-loading-main.c
23 set libfile print-symbol-loading-lib
24 set srcfile_lib ${libfile}.c
25 set binfile_lib [standard_output_file ${libfile}.so]
26 set gcorefile ${binfile}.gcore
27 set objfile [standard_output_file ${testfile}.o]
29 if { [gdb_compile_shlib ${srcdir}/${subdir}/${srcfile_lib} ${binfile_lib} {debug}] != ""
30 || [gdb_compile ${srcdir}/${subdir}/${srcfile} ${objfile} object {debug}] != "" } {
31 untested ${testfile}.exp
34 set opts [list debug shlib=${binfile_lib}]
35 if { [gdb_compile ${objfile} ${binfile} executable $opts] != "" } {
36 untested ${testfile}.exp
40 clean_restart ${binfile}
41 gdb_load_shlibs ${binfile_lib}
43 # Does this gdb support gcore?
45 gdb_test_multiple $test $test {
46 -re "Undefined command: .gcore.*\r\n$gdb_prompt $" {
47 # gcore command not supported -- nothing to test here.
48 unsupported "gdb does not support gcore on this target"
51 -re "Save a core file .*\r\n$gdb_prompt $" {
60 if {![gdb_gcore_cmd $gcorefile "save a corefile"]} {
64 proc test_load_core { print_symbol_loading } {
65 global binfile binfile_lib gcorefile srcdir subdir
66 with_test_prefix "core ${print_symbol_loading}" {
69 gdb_reinitialize_dir $srcdir/$subdir
70 gdb_test_no_output "set print symbol-loading $print_symbol_loading"
71 if { ${print_symbol_loading} != "off" } {
72 gdb_test "file $binfile" "Reading symbols from.*done\\." "file"
74 gdb_test_no_output "file $binfile" "file"
76 # Rename the shared lib so gdb can't find it.
77 remote_exec host "mv -f ${binfile_lib} ${binfile_lib}.save"
78 gdb_test "core ${gcorefile}" "Core was generated by .*" \
79 "re-load generated corefile"
80 # Now put it back and use "set solib-search-path" to trigger
82 remote_exec host "mv -f ${binfile_lib}.save ${binfile_lib}"
83 set test_name "load shared-lib"
84 switch "${print_symbol_loading}" {
86 gdb_test_no_output "set solib-search-path [file dirname ${binfile_lib}]" \
90 gdb_test "set solib-search-path [file dirname ${binfile_lib}]" \
91 "Loading symbols for shared libraries\\." \
95 gdb_test "set solib-search-path [file dirname ${binfile_lib}]" \
96 "Reading symbols from.*Loaded symbols for.*" \
100 gdb_test "frame" "#0 \[^\r\n\]* lib .*" "library got loaded"
108 # Now test the sharedlibrary command.
110 proc test_load_shlib { print_symbol_loading } {
112 with_test_prefix "shlib ${print_symbol_loading}" {
113 clean_restart ${binfile}
114 gdb_test_no_output "set auto-solib-add off"
118 gdb_test_no_output "set print symbol-loading $print_symbol_loading"
119 set test_name "load shared-lib"
120 switch ${print_symbol_loading} {
122 gdb_test_no_output "sharedlibrary .*" \
126 gdb_test "sharedlibrary .*" \
127 "Loading symbols for shared libraries: \\.\\*" \
131 gdb_test "sharedlibrary .*" \
132 "Reading symbols from.*Loaded symbols for.*" \
137 gdb_continue_to_breakpoint "lib"
138 gdb_test "frame" "#0 \[^\r\n\]* lib .*" "library got loaded"
143 test_load_shlib brief