aboutsummaryrefslogtreecommitdiff
path: root/gdb/testsuite
diff options
context:
space:
mode:
Diffstat (limited to 'gdb/testsuite')
-rw-r--r--gdb/testsuite/ChangeLog6
-rw-r--r--gdb/testsuite/gdb.base/print-symbol-loading-lib.c21
-rw-r--r--gdb/testsuite/gdb.base/print-symbol-loading-main.c25
-rw-r--r--gdb/testsuite/gdb.base/print-symbol-loading.exp144
4 files changed, 196 insertions, 0 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 569c899..9cee218 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2014-03-31 Doug Evans <dje@google.com>
+
+ * gdb.base/print-symbol-loading-lib.c: New file.
+ * gdb.base/print-symbol-loading-main.c: New file.
+ * gdb.base/print-symbol-loading.exp: New file.
+
2014-03-31 Yao Qi <yao@codesourcery.com>
* gdb.base/source-dir.exp: Allow ';' as a directory separator.
diff --git a/gdb/testsuite/gdb.base/print-symbol-loading-lib.c b/gdb/testsuite/gdb.base/print-symbol-loading-lib.c
new file mode 100644
index 0000000..1e31e53
--- /dev/null
+++ b/gdb/testsuite/gdb.base/print-symbol-loading-lib.c
@@ -0,0 +1,21 @@
+/* Copyright 2010-2014 Free Software Foundation, Inc.
+
+ This file is part of GDB.
+
+ 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/>. */
+
+void
+lib (void)
+{
+}
diff --git a/gdb/testsuite/gdb.base/print-symbol-loading-main.c b/gdb/testsuite/gdb.base/print-symbol-loading-main.c
new file mode 100644
index 0000000..8379b58
--- /dev/null
+++ b/gdb/testsuite/gdb.base/print-symbol-loading-main.c
@@ -0,0 +1,25 @@
+/* Copyright 2010-2014 Free Software Foundation, Inc.
+
+ This file is part of GDB.
+
+ 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/>. */
+
+extern void lib (void);
+
+int
+main (void)
+{
+ lib ();
+ return 0;
+}
diff --git a/gdb/testsuite/gdb.base/print-symbol-loading.exp b/gdb/testsuite/gdb.base/print-symbol-loading.exp
new file mode 100644
index 0000000..a080ce1
--- /dev/null
+++ b/gdb/testsuite/gdb.base/print-symbol-loading.exp
@@ -0,0 +1,144 @@
+# Copyright 2012-2014 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/>.
+
+# Test the "print symbol-loading" option.
+
+if {[skip_shlib_tests]} {
+ return 0
+}
+
+standard_testfile print-symbol-loading-main.c
+set libfile print-symbol-loading-lib
+set srcfile_lib ${libfile}.c
+set binfile_lib [standard_output_file ${libfile}.so]
+set gcorefile ${binfile}.gcore
+set objfile [standard_output_file ${testfile}.o]
+
+if { [gdb_compile_shlib ${srcdir}/${subdir}/${srcfile_lib} ${binfile_lib} {debug}] != ""
+ || [gdb_compile ${srcdir}/${subdir}/${srcfile} ${objfile} object {debug}] != "" } {
+ untested ${testfile}.exp
+ return -1
+}
+set opts [list debug shlib=${binfile_lib}]
+if { [gdb_compile ${objfile} ${binfile} executable $opts] != "" } {
+ untested ${testfile}.exp
+ return -1
+}
+
+clean_restart ${binfile}
+gdb_load_shlibs ${binfile_lib}
+
+# Does this gdb support gcore?
+set test "help gcore"
+gdb_test_multiple $test $test {
+ -re "Undefined command: .gcore.*\r\n$gdb_prompt $" {
+ # gcore command not supported -- nothing to test here.
+ unsupported "gdb does not support gcore on this target"
+ return -1
+ }
+ -re "Save a core file .*\r\n$gdb_prompt $" {
+ pass $test
+ }
+}
+
+if ![runto lib] {
+ return -1
+}
+
+if {![gdb_gcore_cmd $gcorefile "save a corefile"]} {
+ return -1
+}
+
+proc test_load_core { print_symbol_loading } {
+ global binfile binfile_lib gcorefile srcdir subdir
+ with_test_prefix "core ${print_symbol_loading}" {
+ gdb_exit
+ gdb_start
+ gdb_reinitialize_dir $srcdir/$subdir
+ gdb_test_no_output "set print symbol-loading $print_symbol_loading"
+ if { ${print_symbol_loading} != "off" } {
+ gdb_test "file $binfile" "Reading symbols from.*done\\." "file"
+ } else {
+ gdb_test_no_output "file $binfile" "file"
+ }
+ # Rename the shared lib so gdb can't find it.
+ remote_exec host "mv -f ${binfile_lib} ${binfile_lib}.save"
+ gdb_test "core ${gcorefile}" "Core was generated by .*" \
+ "re-load generated corefile"
+ # Now put it back and use "set solib-search-path" to trigger
+ # loading of symbols.
+ remote_exec host "mv -f ${binfile_lib}.save ${binfile_lib}"
+ set test_name "load shared-lib"
+ switch "${print_symbol_loading}" {
+ "off" {
+ gdb_test_no_output "set solib-search-path [file dirname ${binfile_lib}]" \
+ ${test_name}
+ }
+ "brief" {
+ gdb_test "set solib-search-path [file dirname ${binfile_lib}]" \
+ "Loading symbols for shared libraries\\." \
+ ${test_name}
+ }
+ "full" {
+ gdb_test "set solib-search-path [file dirname ${binfile_lib}]" \
+ "Reading symbols from.*Loaded symbols for.*" \
+ ${test_name}
+ }
+ }
+ gdb_test "frame" "#0 \[^\r\n\]* lib .*" "library got loaded"
+ }
+}
+
+test_load_core off
+test_load_core brief
+test_load_core full
+
+# Now test the sharedlibrary command.
+
+proc test_load_shlib { print_symbol_loading } {
+ global binfile
+ with_test_prefix "shlib ${print_symbol_loading}" {
+ clean_restart ${binfile}
+ gdb_test_no_output "set auto-solib-add off"
+ if ![runto_main] {
+ return -1
+ }
+ gdb_test_no_output "set print symbol-loading $print_symbol_loading"
+ set test_name "load shared-lib"
+ switch ${print_symbol_loading} {
+ "off" {
+ gdb_test_no_output "sharedlibrary .*" \
+ ${test_name}
+ }
+ "brief" {
+ gdb_test "sharedlibrary .*" \
+ "Loading symbols for shared libraries: \\.\\*" \
+ ${test_name}
+ }
+ "full" {
+ gdb_test "sharedlibrary .*" \
+ "Reading symbols from.*Loaded symbols for.*" \
+ ${test_name}
+ }
+ }
+ gdb_breakpoint "lib"
+ gdb_continue_to_breakpoint "lib"
+ gdb_test "frame" "#0 \[^\r\n\]* lib .*" "library got loaded"
+ }
+}
+
+test_load_shlib off
+test_load_shlib brief
+test_load_shlib full