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/>. 15load_lib dwarf.exp 16 17# This test can only be run on targets which support DWARF-2 and use gas. 18if {![dwarf2_support]} { 19 return 0 20} 21 22standard_testfile .c dw2-case-insensitive-debug.S 23 24if [is_ilp32_target] { 25 set ptrbits 32 26} else { 27 set ptrbits 64 28} 29 30if { [prepare_for_testing "failed to prepare" ${testfile} \ 31 [list $srcfile $srcfile2] \ 32 [list nodebug additional_flags=-DPTRBITS=$ptrbits]] } { 33 return -1 34} 35 36gdb_test "show case-sensitive" {Case sensitivity in name search is "auto; currently on"\.} 37 38gdb_test "info functions fUnC_lang" \ 39 "All functions matching regular expression \"fUnC_lang\":" \ 40 "regexp case-sensitive on" 41 42gdb_test "set case-sensitive off" {warning: the current case sensitivity setting does not match the language\.} 43 44# The dot-leading symbol is for ppc64 function descriptors. 45# Note that info functions gives the FUNC_lang result using the fortran syntax 46# as specified in dw-case-insensitive-debug.S DW_AT_language. 47gdb_test "info functions fUnC_lang" \ 48 "All functions matching regular expression \"fUnC_lang\":\[\r\n\]+File file1.txt:\r\n\tfoo FUNC_lang\\(void\\);(\r\n\r\nNon-debugging symbols:\r\n0x\[0-9a-f\]+ +\\.FUNC_lang)?" \ 49 "regexp case-sensitive off" 50 51gdb_test "p fuNC_lang" { = {foo \(void\)} 0x[0-9a-f]+ <FUNC_lang>} 52gdb_test "p fuNC_symtab" { = {<text variable, no debug info>} 0x[0-9a-f]+ <\.?FUNC_symtab>} 53 54if {[gdb_breakpoint "fuNC_lang"] == 1} { 55 pass "setting breakpoint at fuNC_lang" 56} 57 58if {[gdb_breakpoint "fuNC_symtab"] == 1} { 59 pass "setting breakpoint at fuNC_symtab" 60} 61