1# Copyright (C) 2008, 2009, 2010, 2011 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 16if $tracelevel then { 17 strace $tracelevel 18} 19 20 21if {[skip_shlib_tests]} { 22 return 0 23} 24 25set testfile "fixsection" 26set srcfile ${srcdir}/${subdir}/${testfile}.c 27set binfile ${objdir}/${subdir}/${testfile} 28 29set libfile "fixsectshr" 30set libsrc ${srcdir}/${subdir}/${libfile}.c 31set lib_sl ${objdir}/${subdir}/${libfile}.sl 32 33set lib_opts [list debug nowarnings] 34set exec_opts [list debug nowarnings shlib=$lib_sl] 35 36if [get_compiler_info ${binfile}] { 37 return -1 38} 39 40if { [gdb_compile_shlib $libsrc $lib_sl $lib_opts] != "" 41 || [gdb_compile $srcfile $binfile executable $exec_opts] != ""} { 42 untested "Could not compile either $libsrc or $srcfile." 43 return -1 44} 45 46# Start with a fresh gdb. 47 48gdb_exit 49gdb_start 50gdb_reinitialize_dir $srcdir/$subdir 51gdb_load ${binfile} 52gdb_load_shlibs ${lib_sl} 53 54if ![runto_main] then { 55 fail "Can't run to main" 56 return 1; 57} 58 59# 60# set breakpoint at static function static_fun 61# 62gdb_test "break static_fun" \ 63 "Breakpoint.*at.* file .*${srcfile}, line.*" \ 64 "breakpoint at static_fun" 65 66# 67# exit gdb 68# 69gdb_exit 70