testsuite, gdb: recognize DW_OP_fbreg in lib/dwarf.exp

gdb/testsuite/ChangeLog:
2021-04-14  Tankut Baris Aktemur  <tankut.baris.aktemur@intel.com>

	* lib/dwarf.exp (_location): Recognize DW_OP_fbreg as an op.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index b8c84aaa57f56b1eed898e5470a0daa1dc9f8458..a7fadbdabdefe4adbc5d6b65912b465dbd18fb19 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2021-04-14  Tankut Baris Aktemur  <tankut.baris.aktemur@intel.com>
+
+       * lib/dwarf.exp (_location): Recognize DW_OP_fbreg as an op.
+
 2021-04-12  Will Schmidt  <will_schmidt@vnet.ibm.com>
 
        * gdb.arch/powerpc-vsx-regs.exp: Initialize vs* doublewords.

diff --git a/gdb/testsuite/lib/dwarf.exp b/gdb/testsuite/lib/dwarf.exp
index f6a35749cabf7c06d033e5acec40685400141e84..e4dc284f4ee9ea5d6a09e4e9fcf0956ec1d067d0 100644 (file)
--- a/gdb/testsuite/lib/dwarf.exp
+++ b/gdb/testsuite/lib/dwarf.exp
@@ -1211,6 +1211,11 @@ namespace eval Dwarf {
                    _op .sleb128 $argvec(offset)
                }
 
+               DW_OP_fbreg {
+                   _get_args $line $opcode offset
+                   _op .sleb128 $argvec(offset)
+               }
+
                default {
                    if {[llength $line] > 1} {
                        error "Unimplemented: operands in location for $opcode"