From: Mark Wielaard <mark@klomp.org>
Date: Mon, 14 Dec 2020 19:00:50 +0000 (+0100)
Subject: Add form used for SPECIAL_expr as comment in testsuite Dwarf Assembler
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=8cd6d968de17f5dac1601d7cbdda838c9d82c822;p=binutils-gdb.git

Add form used for SPECIAL_expr as comment in testsuite Dwarf Assembler

Replace the "SPECIAL_expr" comment with either "DW_FORM_block" or
"DW_FORM_exprloc" in the abbrev.

gdb/testsuite/ChangeLog:

	* lib/dwarf.exp (Dwarf::_handle_attribute): Handle SPECIAL_expr
	specially, set attr_form_comment to the actual FORM string used.
---

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index ab03f0745da..8206b3e35cc 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2020-12-14  Mark Wielaard  <mark@klomp.org>
+
+	* lib/dwarf.exp (Dwarf::_handle_attribute): Handle SPECIAL_expr
+	specially, set attr_form_comment to the actual FORM string used.
+
 2020-12-14  Mark Wielaard  <mark@klomp.org>
 
 	* lib/dwarf.exp (Dwarf::_read_constants): Don't set
diff --git a/gdb/testsuite/lib/dwarf.exp b/gdb/testsuite/lib/dwarf.exp
index 43ae29697cd..5afb3e3e736 100644
--- a/gdb/testsuite/lib/dwarf.exp
+++ b/gdb/testsuite/lib/dwarf.exp
@@ -622,12 +622,22 @@ namespace eval Dwarf {
     proc _handle_attribute { attr_name attr_value attr_form } {
 	variable _abbrev_section
 	variable _constants
+	variable _cu_version
 
 	_handle_DW_FORM $attr_form $attr_value
 
 	_defer_output $_abbrev_section {
+	    if { $attr_form eq "SPECIAL_expr" } {
+		if { $_cu_version < 4 } {
+		    set attr_form_comment "DW_FORM_block"
+		} else {
+		    set attr_form_comment "DW_FORM_exprloc"
+		}
+	    } else {
+		set attr_form_comment $attr_form
+	    }
 	    _op .uleb128 $_constants($attr_name) $attr_name
-	    _op .uleb128 $_constants($attr_form) $attr_form
+	    _op .uleb128 $_constants($attr_form) $attr_form_comment
 	}
     }