add some missing ops to DWARF assembler

[deliverable/binutils-gdb.git] / gdb / testsuite / lib / dwarf.exp

diff --git a/gdb/testsuite/lib/dwarf.exp b/gdb/testsuite/lib/dwarf.exp
index 778ad1cf797046b4d35068c94d515921666f550a..72153ece64ce57df30929c86c4718f375ff9c072 100644 (file)
--- a/gdb/testsuite/lib/dwarf.exp
+++ b/gdb/testsuite/lib/dwarf.exp
@@ -803,7 +803,8 @@ namespace eval Dwarf {
        variable _cu_offset_size
 
        foreach line [split $body \n] {
-           if {[lindex $line 0] == ""} {
+           # Ignore blank lines, and allow embedded comments.
+           if {[lindex $line 0] == "" || [regexp -- {^[ \t]*#} $line]} {
                continue
            }
            set opcode [_map_name [lindex $line 0] _OP]
@@ -814,6 +815,7 @@ namespace eval Dwarf {
                    _op .${_cu_addr_size}byte [lindex $line 1]
                }
 
+               DW_OP_pick -
                DW_OP_const1u -
                DW_OP_const1s {
                    _op .byte [lindex $line 1]
@@ -854,6 +856,11 @@ namespace eval Dwarf {
                    _op .uleb128 [lindex $line 2]
                }
 
+               DW_OP_skip -
+               DW_OP_bra {
+                   _op .2byte [lindex $line 1]
+               }
+
                DW_OP_GNU_implicit_pointer {
                    if {[llength $line] != 3} {
                        error "usage: DW_OP_GNU_implicit_pointer LABEL OFFSET"