return language;
}
-/* Return the named attribute or NULL if not there. */
+/* Return the NAME attribute of DIE in *CU, or return NULL if not there. Also
+ return in *CU the cu in which the attribute was actually found. */
static struct attribute *
-dwarf2_attr (struct die_info *die, unsigned int name, struct dwarf2_cu *cu)
+dwarf2_attr (struct die_info *die, unsigned int name, struct dwarf2_cu **cu)
{
for (;;)
{
break;
struct die_info *prev_die = die;
- die = follow_die_ref (die, spec, &cu);
+ die = follow_die_ref (die, spec, cu);
if (die == prev_die)
/* Self-reference, we're done. */
break;
return NULL;
}
+/* Return the NAME attribute of DIE in CU, or return NULL if not there. */
+
+static struct attribute *
+dwarf2_attr (struct die_info *die, unsigned int name, struct dwarf2_cu *cu)
+{
+ return dwarf2_attr (die, name, &cu);
+}
+
/* Return the string associated with a string-typed attribute, or NULL if it
is either not found or is of an incorrect type. */
if (attr != nullptr)
sym->set_line (attr->constant_value (0));
+ struct dwarf2_cu *file_cu = cu;
attr = dwarf2_attr (die,
inlined_func ? DW_AT_call_file : DW_AT_decl_file,
- cu);
+ &file_cu);
if (attr != nullptr && attr->is_nonnegative ())
{
file_name_index file_index
= (file_name_index) attr->as_nonnegative ();
struct file_entry *fe;
- if (cu->line_header != NULL)
- fe = cu->line_header->file_name_at (file_index);
+ if (file_cu->line_header == nullptr)
+ {
+ file_and_directory fnd (nullptr, nullptr);
+ handle_DW_AT_stmt_list (file_cu->dies, file_cu, fnd, {}, false);
+ }
+
+ if (file_cu->line_header != nullptr)
+ fe = file_cu->line_header->file_name_at (file_index);
else
fe = NULL;
--- /dev/null
+# Copyright 2024 Free Software Foundation, Inc.
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+load_lib dwarf.exp
+
+# This test can only be run on targets which support DWARF-2 and use gas.
+require dwarf2_support
+
+standard_testfile main.c -dw.S
+
+set asm_file [standard_output_file $srcfile2]
+Dwarf::assemble $asm_file {
+ global srcdir subdir srcfile srcfile2
+ declare_labels var_label int_label L1 L2
+
+ cu {} {
+ compile_unit {
+ {language @DW_LANG_C}
+ {stmt_list $L1 DW_FORM_sec_offset}
+ } {
+ tag_variable {
+ {name var1}
+ {abstract_origin %$var_label}
+ {const_value 1 DW_FORM_sdata}
+ }
+ subprogram {
+ {external 1 flag}
+ {MACRO_AT_func {main}}
+ }
+ int_label: base_type {
+ {byte_size 4 udata}
+ {encoding @DW_ATE_signed}
+ {name int}
+ }
+ }
+ }
+
+ cu {} {
+ compile_unit {
+ {language @DW_LANG_C}
+ {stmt_list $L2 DW_FORM_sec_offset}
+ } {
+ var_label: tag_variable {
+ {name "var1"}
+ {type %$int_label}
+ {decl_file 1}
+ {decl_line 1}
+ }
+ }
+ }
+
+ lines {version 2} L1 {
+ file_name "file1.c" 0
+ file_name "file2.c" 0
+ }
+
+ lines {version 2} L2 {
+ file_name "file3.c" 0
+ file_name "file4.c" 0
+ }
+}
+
+if { [prepare_for_testing "failed to prepare" ${testfile} \
+ [list $srcfile $asm_file] {nodebug}] } {
+ return -1
+}
+
+if ![runto main] {
+ return -1
+}
+
+gdb_test "p var1" " = 1"
+
+set re \
+ [multi_line \
+ "All variables matching regular expression \"var1\":" \
+ "" \
+ "File file3.c:" \
+ "1:\tstatic int var1;"]
+gdb_test "info var var1" $re