1# Copyright 2016 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 .S main.c 23 24# Make some DWARF for the test. 25set asm_file [standard_output_file $srcfile] 26Dwarf::assemble $asm_file { 27 global srcdir subdir srcfile2 28 29 set main_result [function_range main ${srcdir}/${subdir}/${srcfile2}] 30 set main_start [lindex $main_result 0] 31 set main_length [lindex $main_result 1] 32 33 cu {} { 34 compile_unit { 35 {low_pc $main_start addr} 36 {high_pc "$main_start + $main_length" addr} 37 } { 38 declare_labels integer_label 39 40 integer_label: DW_TAG_base_type { 41 {DW_AT_byte_size 4 DW_FORM_sdata} 42 {DW_AT_encoding @DW_ATE_signed} 43 {DW_AT_name integer} 44 } 45 46 DW_TAG_subprogram { 47 {name main} 48 {DW_AT_external 1 flag} 49 {low_pc $main_start addr} 50 {high_pc "$main_start + $main_length" addr} 51 } { 52 DW_TAG_lexical_block { 53 } { 54 DW_TAG_variable { 55 {DW_AT_name testvar} 56 {DW_AT_type :$integer_label} 57 {DW_AT_external 1 flag} 58 {DW_AT_location { 59 DW_OP_addr [gdb_target_symbol main] 60 } SPECIAL_expr} 61 } 62 } 63 } 64 } 65 } 66} 67 68if { [prepare_for_testing ${testfile}.exp ${testfile} \ 69 [list $srcfile2 $asm_file] {nodebug}] } { 70 return -1 71} 72 73runto_main 74 75# FAILing GDB did print: No symbol "testvar" in current context. 76gdb_test "p testvar" { = -?[0-9]+} 77