[binutils-gdb] Add support of DW_OP_GNU_variable_value to DWARF assembler

[Kevin Buettner]

https://sourceware.org/git/gitweb.cgi?p=binutils-gdb.git;h=ae3a7c47e6a95d69a09838c11f9fd3c9cbb25cb6

commit ae3a7c47e6a95d69a09838c11f9fd3c9cbb25cb6
Author: Kevin Buettner <kevinb@redhat.com>
Date:   Mon Jul 30 16:15:34 2018 -0700

    Add support of DW_OP_GNU_variable_value to DWARF assembler
    
    gdb/testsuite/ChangeLog:
    
    	* lib/dwarf.exp: Add support for DW_OP_GNU_variable_value.

Diff:
---
 gdb/testsuite/ChangeLog     |  4 ++++
 gdb/testsuite/lib/dwarf.exp | 14 ++++++++++++++
 2 files changed, 18 insertions(+)

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 705e5f0..848cb65 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2018-08-18  Kevin Buettner  <kevinb@redhat.com>
+
+	* lib/dwarf.exp: Add support for DW_OP_GNU_variable_value.
+
 2018-08-17  Alan Hayward  <alan.hayward@arm.com>
 
 	PR gdb/18931
diff --git a/gdb/testsuite/lib/dwarf.exp b/gdb/testsuite/lib/dwarf.exp
index 82ec29b..0c3f50a 100644
--- a/gdb/testsuite/lib/dwarf.exp
+++ b/gdb/testsuite/lib/dwarf.exp
@@ -962,6 +962,20 @@ namespace eval Dwarf {
 		    _op .sleb128 [lindex $line 2]
 		}
 
+		DW_OP_GNU_variable_value {
+		    if {[llength $line] != 2} {
+			error "usage: $opcode LABEL"
+		    }
+
+		    # Here label is a section offset.
+		    set label [lindex $line 1]
+		    if { $_cu_version == 2 } {
+			_op .${_cu_addr_size}byte $label
+		    } else {
+			_op .${_cu_offset_size}byte $label
+		    }
+		}
+
 		DW_OP_deref_size {
 		    if {[llength $line] != 2} {
 			error "usage: DW_OP_deref_size SIZE"