Home | History | Annotate | Line # | Download | only in gdb.dwarf2 
      1 # Copyright 2023-2024 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 
     16 # Check that an empty file name in the .debug_line section doesn't cause
     17 # problems.
     18 
     19 load_lib dwarf.exp
     20 
     21 # This test can only be run on targets which support DWARF-2 and use gas.
     22 require dwarf2_support
     23 
     24 # The .c files use __attribute__.
     25 require is_c_compiler_gcc
     26 
     27 standard_testfile main.c -dw.S
     28 
     29 set asm_file [standard_output_file $srcfile2]
     30 Dwarf::assemble $asm_file {
     31     declare_labels Llines
     32     global srcdir subdir srcfile
     33 
     34     cu { version 5 } {
     35 	compile_unit {
     36 	    {language @DW_LANG_C}
     37 	    {name $srcfile}
     38 	    {stmt_list $Llines DW_FORM_sec_offset}
     39 	} {
     40 	    subprogram {
     41 		{external 1 flag}
     42 		{MACRO_AT_func {main}}
     43 	    }
     44 	}
     45     }
     46 
     47     lines {version 5} Llines {
     48 	include_dir "${srcdir}/${subdir}"
     49 	file_name "" 1
     50     }
     51 }
     52 
     53 if { [build_executable "failed to prepare" ${testfile} \
     54 	  [list $srcfile $asm_file] {nodebug}] } {
     55     return -1
     56 }
     57 
     58 clean_restart
     59 
     60 # If there's an ERROR during gdb_load, the assert will produce an UNRESOLVED
     61 # rather than a FAIL.
     62 gdb_assert { [gdb_load $binfile] == 0 }
     63 
     64 # But this will produce an actual FAIL, which is more visible than
     65 # ERROR/UNRESOLVED.
     66 gdb_assert { [info exists gdb_spawn_id] }
     67