51 lines
1.3 KiB
Diff
51 lines
1.3 KiB
Diff
|
[gdb/fortran] Handle DW_AT_string_length with loclistptr
|
||
|
|
|
||
|
|
Fixes PR26910 - "[fortran] Printing dynamic string with DW_AT_string_length
|
||
|
|
of class loclistpr fails".
|
||
|
|
|
||
|
|
https://sourceware.org/bugzilla/show_bug.cgi?id=26910
|
||
|
|
|
||
|
|
---
|
||
|
|
gdb/dwarf2/read.c | 24 ++++++++++++++++++++----
|
||
|
|
1 file changed, 20 insertions(+), 4 deletions(-)
|
||
|
|
|
||
|
|
diff --git a/gdb/dwarf2/read.c b/gdb/dwarf2/read.c
|
||
|
|
index 05a50515ce4..798585dd380 100644
|
||
|
|
--- a/gdb/dwarf2/read.c
|
||
|
|
+++ b/gdb/dwarf2/read.c
|
||
|
|
@@ -18175,14 +18175,30 @@ attr_to_dynamic_prop (const struct attribute *attr, struct die_info *die,
|
||
|
|
}
|
||
|
|
else if (attr->form_is_constant ())
|
||
|
|
prop->set_const_val (attr->constant_value (0));
|
||
|
|
- else
|
||
|
|
+ else if (attr->form_is_section_offset ())
|
||
|
|
{
|
||
|
|
- dwarf2_invalid_attrib_class_complaint (dwarf_form_name (attr->form),
|
||
|
|
- dwarf2_name (die, cu));
|
||
|
|
- return 0;
|
||
|
|
+ switch (attr->name)
|
||
|
|
+ {
|
||
|
|
+ case DW_AT_string_length:
|
||
|
|
+ baton = XOBNEW (obstack, struct dwarf2_property_baton);
|
||
|
|
+ baton->property_type = default_type;
|
||
|
|
+ fill_in_loclist_baton (cu, &baton->loclist, attr);
|
||
|
|
+ prop->set_loclist (baton);
|
||
|
|
+ gdb_assert (prop->baton () != NULL);
|
||
|
|
+ break;
|
||
|
|
+ default:
|
||
|
|
+ goto invalid;
|
||
|
|
+ }
|
||
|
|
}
|
||
|
|
+ else
|
||
|
|
+ goto invalid;
|
||
|
|
|
||
|
|
return 1;
|
||
|
|
+
|
||
|
|
+ invalid:
|
||
|
|
+ dwarf2_invalid_attrib_class_complaint (dwarf_form_name (attr->form),
|
||
|
|
+ dwarf2_name (die, cu));
|
||
|
|
+ return 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
/* See read.h. */
|