diff options
Diffstat (limited to 'gdb/testsuite/gdb.dwarf2/dw2-ranges-func.exp')
| -rw-r--r-- | gdb/testsuite/gdb.dwarf2/dw2-ranges-func.exp | 72 |
1 files changed, 37 insertions, 35 deletions
diff --git a/gdb/testsuite/gdb.dwarf2/dw2-ranges-func.exp b/gdb/testsuite/gdb.dwarf2/dw2-ranges-func.exp index 9fea8a8..5e45255 100644 --- a/gdb/testsuite/gdb.dwarf2/dw2-ranges-func.exp +++ b/gdb/testsuite/gdb.dwarf2/dw2-ranges-func.exp @@ -70,49 +70,51 @@ proc do_test {suffix} { cu {} { compile_unit { - {language @DW_LANG_C} - {name dw-ranges-func2.c} - {stmt_list $L DW_FORM_sec_offset} - {low_pc 0 addr} - {ranges ${cu_ranges_label} DW_FORM_sec_offset} + DW_AT_language @DW_LANG_C + DW_AT_name dw-ranges-func2.c + DW_AT_stmt_list $L DW_FORM_sec_offset + DW_AT_low_pc 0 addr + DW_AT_ranges ${cu_ranges_label} DW_FORM_sec_offset } { integer_label: DW_TAG_base_type { - {DW_AT_byte_size $int_size DW_FORM_sdata} - {DW_AT_encoding @DW_ATE_signed} - {DW_AT_name integer} + DW_AT_byte_size $int_size DW_FORM_sdata + DW_AT_encoding @DW_ATE_signed + DW_AT_name integer } volatile_label: DW_TAG_volatile_type { - {type :$integer_label} + DW_AT_type :$integer_label } DW_TAG_variable { - {name e} - {external 1 flag} - {type :$volatile_label} - {location {addr $e_var} SPECIAL_expr} + DW_AT_name e + DW_AT_external 1 flag + DW_AT_type :$volatile_label + DW_AT_location { + DW_OP_addr $e_var + } SPECIAL_expr } subprogram { - {external 1 flag} - {name main} - {DW_AT_type :$integer_label} - {low_pc $main_start addr} - {high_pc $main_len DW_FORM_data4} + DW_AT_external 1 flag + DW_AT_name main + DW_AT_type :$integer_label + DW_AT_low_pc $main_start addr + DW_AT_high_pc $main_len DW_FORM_data4 } subprogram { - {external 1 flag} - {name foo} - {ranges ${func_ranges_label} DW_FORM_sec_offset} + DW_AT_external 1 flag + DW_AT_name foo + DW_AT_ranges ${func_ranges_label} DW_FORM_sec_offset } subprogram { - {external 1 flag} - {name bar} - {low_pc $bar_start addr} - {high_pc $bar_len DW_FORM_data4} + DW_AT_external 1 flag + DW_AT_name bar + DW_AT_low_pc $bar_start addr + DW_AT_high_pc $bar_len DW_FORM_data4 } subprogram { - {external 1 flag} - {name baz} - {low_pc $baz_start addr} - {high_pc $baz_len DW_FORM_data4} + DW_AT_external 1 flag + DW_AT_name baz + DW_AT_low_pc $baz_start addr + DW_AT_high_pc $baz_len DW_FORM_data4 } } } @@ -203,7 +205,7 @@ proc do_test {suffix} { return -1 } - if ![runto_main] { + if {![runto_main]} { return -1 } @@ -234,12 +236,12 @@ proc do_test {suffix} { with_test_prefix "step-test-2" { clean_restart ${testfile} - if ![runto_main] { + if {![runto_main]} { return -1 } # Note that the RE used for the following test will fail when the - # breakpoint has been set on multiple locations. E.g. "(2 locations)". + # breakpoint has been set on multiple locations. E.g. "(2 locations)". # This is intentional since that behavior is one of the bugs that # this test case tests for. gdb_test "break foo" \ @@ -271,7 +273,7 @@ proc do_test {suffix} { } clean_restart ${testfile} - if ![runto_main] { + if {![runto_main]} { return -1 } @@ -363,7 +365,7 @@ proc do_test {suffix} { with_test_prefix "step-test-3" { clean_restart ${testfile} - if ![runto_main] { + if {![runto_main]} { return -1 } @@ -382,7 +384,7 @@ proc do_test {suffix} { # Tests in the "enable_foo_cold_stepping" section, below, did # not work prior to July, 2019. They had been disabled via # use of the "enable_foo_cold_stepping" flag. - # + # # As noted elsewhere, this test case causes foo_cold, # originally a separate function invoked via a subroutine # call, to be considered as part of foo via use of |