DW_LNE_set_address $foo_start
line [gdb_get_line_number "foo prologue" $libsrc]
DW_LNS_copy
+
DW_LNE_set_address foo_label
line [gdb_get_line_number "foo return" $libsrc]
DW_LNS_copy
+
+ DW_LNS_advance_pc 0
line [gdb_get_line_number "foo end" $libsrc]
DW_LNS_copy
DW_LNE_set_address $bar_start
line [gdb_get_line_number "bar prologue" $libsrc]
DW_LNS_copy
+
DW_LNE_set_address bar_label
line [gdb_get_line_number "bar return" $libsrc]
DW_LNS_copy
+
+ DW_LNS_advance_pc 0
line [gdb_get_line_number "bar end" $libsrc]
DW_LNS_copy
proc DW_LNS_copy {} {
variable _line_address_update
+ if { $_line_address_update == 0 } {
+ error "Missing address update for copy"
+ }
set _line_address_update 0
_op .byte 1
}