diff options
Diffstat (limited to 'gdb/testsuite/gdb.dwarf2/implptr-64bit.exp')
| -rw-r--r-- | gdb/testsuite/gdb.dwarf2/implptr-64bit.exp | 76 |
1 files changed, 38 insertions, 38 deletions
diff --git a/gdb/testsuite/gdb.dwarf2/implptr-64bit.exp b/gdb/testsuite/gdb.dwarf2/implptr-64bit.exp index c4496f1..8ceaa4e 100644 --- a/gdb/testsuite/gdb.dwarf2/implptr-64bit.exp +++ b/gdb/testsuite/gdb.dwarf2/implptr-64bit.exp @@ -39,54 +39,54 @@ proc test_1 { name dwarf_version offset_size addr_size ref_addr_size two_cu } { is_64 $is_64 } { compile_unit { - { producer "GNU C 4.4.3" } - { language @DW_LANG_C89 } - { name 1.c } + DW_AT_producer "GNU C 4.4.3" + DW_AT_language @DW_LANG_C89 + DW_AT_name 1.c } { declare_labels struct_label variable_label int_label pointer_label int_label: base_type { - { byte_size 4 DW_FORM_sdata } - { DW_AT_encoding @DW_ATE_signed } - { name int } + DW_AT_byte_size 4 DW_FORM_sdata + DW_AT_encoding @DW_ATE_signed + DW_AT_name int } struct_label: structure_type { - { name s } - { byte_size 4 sdata } + DW_AT_name s + DW_AT_byte_size 4 sdata } { member { - { name f } - { type :$int_label } - { data_member_location 0 data1 } + DW_AT_name f + DW_AT_type :$int_label + DW_AT_data_member_location 0 data1 } } pointer_label: pointer_type { - { byte_size $Dwarf::_cu_addr_size sdata } - { type :$struct_label } + DW_AT_byte_size $Dwarf::_cu_addr_size sdata + DW_AT_type :$struct_label } variable_label: DW_TAG_variable { - { name v } - { location { + DW_AT_name v + DW_AT_location { DW_OP_implicit_value 0x1 0x1 0x1 0x1 - } SPECIAL_expr} - { type :$struct_label "DW_FORM_ref$ref_addr_size" } + } SPECIAL_expr + DW_AT_type :$struct_label "DW_FORM_ref$ref_addr_size" } if { !$two_cu } { subprogram { - {MACRO_AT_func {main}} - { type :$int_label } - { external 1 flag } + MACRO_AT_func {main} + DW_AT_type :$int_label + DW_AT_external 1 flag } { DW_TAG_variable { - { name p } - { location { - GNU_implicit_pointer $variable_label 0 - } SPECIAL_expr } - { type :$pointer_label "DW_FORM_ref$ref_addr_size" } + DW_AT_name p + DW_AT_location { + DW_OP_GNU_implicit_pointer $variable_label 0 + } SPECIAL_expr + DW_AT_type :$pointer_label "DW_FORM_ref$ref_addr_size" } } } @@ -100,21 +100,21 @@ proc test_1 { name dwarf_version offset_size addr_size ref_addr_size two_cu } { is_64 $is_64 } { compile_unit { - { producer "GNU C 4.4.3" } - { language @DW_LANG_C89 } - { name 1.c } + DW_AT_producer "GNU C 4.4.3" + DW_AT_language @DW_LANG_C89 + DW_AT_name 1.c } { subprogram { - { MACRO_AT_func {main} } - { type %$int_label } - { external 1 flag } + MACRO_AT_func {main} + DW_AT_type %$int_label + DW_AT_external 1 flag } { DW_TAG_variable { - { name p } - { location { - GNU_implicit_pointer $variable_label 0 - } SPECIAL_expr } - { type %$pointer_label } + DW_AT_name p + DW_AT_location { + DW_OP_GNU_implicit_pointer $variable_label 0 + } SPECIAL_expr + DW_AT_type %$pointer_label } } } @@ -125,11 +125,11 @@ proc test_1 { name dwarf_version offset_size addr_size ref_addr_size two_cu } { # 32-bit targets do not support any of the testcases; keep quiet there. set opts {quiet} set executable ${testfile}-${name} - if [prepare_for_testing "failed to prepare" $executable "${asm_file} ${srcfile}" $opts] { + if {[prepare_for_testing "failed to prepare" $executable "${asm_file} ${srcfile}" $opts]} { return -1 } - if ![runto_main] { + if {![runto_main]} { return -1 } |