diff options
Diffstat (limited to 'gdb/testsuite/gdb.dwarf2/ada-valprint-error.exp')
| -rw-r--r-- | gdb/testsuite/gdb.dwarf2/ada-valprint-error.exp | 52 |
1 files changed, 26 insertions, 26 deletions
diff --git a/gdb/testsuite/gdb.dwarf2/ada-valprint-error.exp b/gdb/testsuite/gdb.dwarf2/ada-valprint-error.exp index e1a76bf..a754426 100644 --- a/gdb/testsuite/gdb.dwarf2/ada-valprint-error.exp +++ b/gdb/testsuite/gdb.dwarf2/ada-valprint-error.exp @@ -35,10 +35,10 @@ if { [prepare_for_testing ${testfile}.exp ${testfile} ${srcfile}] } { set asm_file [standard_output_file $srcfile2] Dwarf::assemble $asm_file { cu {} { - DW_TAG_compile_unit { - {DW_AT_language @DW_LANG_Ada95} - {DW_AT_name fd.adb} - {DW_AT_comp_dir /tmp} + DW_TAG_compile_unit { + DW_AT_language @DW_LANG_Ada95 + DW_AT_name fd.adb + DW_AT_comp_dir /tmp } { declare_labels array_elt_label integer_label array_label \ typedef_label ref_type_label @@ -48,8 +48,8 @@ Dwarf::assemble $asm_file { # A structure with no size attribute, to mimick structures # in Ada that have a dynamic size... array_elt_label: structure_type { - {name fd__Tints_doubledC} - {artificial 1 DW_FORM_flag_present} + DW_AT_name fd__Tints_doubledC + DW_AT_artificial 1 DW_FORM_flag_present } # ... and a corresponding XVZ variable, supposed to be there @@ -58,44 +58,44 @@ Dwarf::assemble $asm_file { # it has been optimized out (which the compiler can do, # even if it at the expense of debuggability). DW_TAG_variable { - {name fd__Tints_doubledC___XVZ} - {DW_AT_type :$integer_label} - {artificial 1 DW_FORM_flag_present} + DW_AT_name fd__Tints_doubledC___XVZ + DW_AT_type :$integer_label + DW_AT_artificial 1 DW_FORM_flag_present } 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 } array_label: DW_TAG_array_type { - {DW_AT_name fd__ints_doubled} - {DW_AT_type :$array_elt_label} + DW_AT_name fd__ints_doubled + DW_AT_type :$array_elt_label } { DW_TAG_subrange_type { - {DW_AT_type :$integer_label} - {DW_AT_upper_bound 2 DW_FORM_data1} + DW_AT_type :$integer_label + DW_AT_upper_bound 2 DW_FORM_data1 } } typedef_label: DW_TAG_typedef { - {DW_AT_name fd__ints_doubled} - {DW_AT_type :$array_label} + DW_AT_name fd__ints_doubled + DW_AT_type :$array_label } ref_type_label: DW_TAG_reference_type { - {DW_AT_byte_size $ptr_size DW_FORM_sdata} - {DW_AT_type :$typedef_label} + DW_AT_byte_size $ptr_size DW_FORM_sdata + DW_AT_type :$typedef_label } DW_TAG_variable { - {name fd__global} - {DW_AT_type :$ref_type_label} - {DW_AT_location { - DW_OP_addr [gdb_target_symbol fd__global] - } SPECIAL_expr} - {external 1 flag} + DW_AT_name fd__global + DW_AT_type :$ref_type_label + DW_AT_location [subst { + DW_OP_addr [gdb_target_symbol fd__global] + }] SPECIAL_expr + DW_AT_external 1 flag } } |