1# Copyright 2011-2020 Free Software Foundation, Inc. 2 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. 7# 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. 12# 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/>. 15 16load_lib mi-support.exp 17set MIFLAGS "-i=mi2" 18 19if {[skip_shlib_tests]} { 20 untested "skipping shared library tests" 21 return -1 22} 23 24gdb_exit 25if [mi_gdb_start] { 26 continue 27} 28 29standard_testfile solib-main.c solib-lib.c 30 31set libname "solib-lib" 32set srcfile_lib ${srcdir}/${subdir}/$srcfile2 33set binfile_lib [standard_output_file ${libname}.so] 34set lib_flags [list debug] 35 36set srcfile_main ${srcdir}/${subdir}/$srcfile 37set bin_flags [list debug shlib=${binfile_lib}] 38 39if [get_compiler_info] { 40 return -1 41} 42 43if { [gdb_compile_shlib ${srcfile_lib} ${binfile_lib} $lib_flags] != "" 44 || [gdb_compile ${srcfile_main} ${binfile} executable $bin_flags] != "" } { 45 untested "failed to compile" 46 return -1 47} 48 49mi_delete_breakpoints 50mi_gdb_reinitialize_dir $srcdir/$subdir 51mi_gdb_load ${binfile} 52 53mi_load_shlibs $binfile_lib 54 55proc_with_prefix test_stop_on_solib_events {} { 56 mi_gdb_test "777-gdb-set stop-on-solib-events 1" "777\\^done" \ 57 "set stop-on-solib-events" 58 59 # We use "run" rather than "-exec-run" here in order to test that CLI 60 # commands still cause the correct MI output to be generated. 61 mi_run_with_cli 62 63 # Also test that the CLI solib event note is output. 64 set test "CLI prints solib event" 65 gdb_expect { 66 -re "~\"Stopped due to shared library event \\(no libraries added or removed\\)\\\\n" { 67 pass "$test" 68 } 69 timeout { 70 fail "$test (timeout)" 71 } 72 } 73 74 mi_expect_stop solib-event .* .* .* .* .* "check for solib event" 75 76 # Unset solib events to avoid interfering with other tests. 77 mi_gdb_test "778-gdb-set stop-on-solib-events 0" "778\\^done" \ 78 "unset stop-on-solib-events" 79} 80 81proc_with_prefix test_file_list_shared_libraries {} { 82 global libname 83 global binfile 84 85 mi_continue_to main 86 87 mi_gdb_test "222-file-list-shared-libraries" \ 88 "222\\^done,shared-libraries=\\\[\{id=\".*${libname}.so\",target-name=\".*${libname}.so\",host-name=\".*${libname}.so\",symbols-loaded=\"1\",thread-group=\".*\",ranges=\\\[\{from=\".*\",to=\".*\"\}]\}]" \ 89 "get the list of shared libraries" 90} 91 92test_stop_on_solib_events 93test_file_list_shared_libraries 94