diff options
Diffstat (limited to 'gdb/testsuite/gdb.dwarf2/ada-array-bound.exp')
| -rw-r--r-- | gdb/testsuite/gdb.dwarf2/ada-array-bound.exp | 45 |
1 files changed, 23 insertions, 22 deletions
diff --git a/gdb/testsuite/gdb.dwarf2/ada-array-bound.exp b/gdb/testsuite/gdb.dwarf2/ada-array-bound.exp index f48df7b..779ce00 100644 --- a/gdb/testsuite/gdb.dwarf2/ada-array-bound.exp +++ b/gdb/testsuite/gdb.dwarf2/ada-array-bound.exp @@ -31,49 +31,50 @@ Dwarf::assemble $asm_file { cu {} { DW_TAG_compile_unit { - {DW_AT_language @DW_LANG_Ada95} - {DW_AT_name $srcfile} + DW_AT_language @DW_LANG_Ada95 + DW_AT_name $srcfile } { declare_labels byte array disc struct byte: DW_TAG_base_type { - {DW_AT_byte_size 1 DW_FORM_sdata} - {DW_AT_encoding @DW_ATE_unsigned} - {DW_AT_name byte} + DW_AT_byte_size 1 DW_FORM_sdata + DW_AT_encoding @DW_ATE_unsigned + DW_AT_name byte } array: DW_TAG_array_type { - {DW_AT_name array_type} - {DW_AT_type :$byte} + DW_AT_name array_type + DW_AT_type :$byte } { DW_TAG_subrange_type { - {DW_AT_type :$byte} - {DW_AT_upper_bound :$disc} + DW_AT_type :$byte + DW_AT_upper_bound :$disc } } struct: DW_TAG_structure_type { - {DW_AT_name discriminated} - {DW_AT_byte_size 4 DW_FORM_sdata} + DW_AT_name discriminated + DW_AT_byte_size 4 DW_FORM_sdata } { disc: DW_TAG_member { - {DW_AT_name disc} - {DW_AT_type :$byte} - {DW_AT_data_member_location 0 DW_FORM_sdata} + DW_AT_name disc + DW_AT_type :$byte + DW_AT_data_member_location 0 DW_FORM_sdata } DW_TAG_member { - {DW_AT_name nums} - {DW_AT_type :$array} - {DW_AT_data_member_location 1 DW_FORM_sdata} + DW_AT_name nums + DW_AT_type :$array + DW_AT_data_member_location 1 DW_FORM_sdata } } DW_TAG_variable { - {DW_AT_name "value"} - {DW_AT_type :$struct} - {DW_AT_external 1 DW_FORM_flag} - {DW_AT_location {DW_OP_addr [gdb_target_symbol "our_data"]} - SPECIAL_expr} + DW_AT_name "value" + DW_AT_type :$struct + DW_AT_external 1 DW_FORM_flag + DW_AT_location \ + [subst {DW_OP_addr [gdb_target_symbol "our_data"]}] \ + SPECIAL_expr } } } |