diff options
Diffstat (limited to 'gdb/testsuite/gdb.dlang')
| -rw-r--r-- | gdb/testsuite/gdb.dlang/circular.exp | 56 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.dlang/demangle.exp | 2 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.dlang/dlang-start-2.exp | 24 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.dlang/expression.exp | 2 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.dlang/primitive-types.exp | 2 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.dlang/properties.exp | 2 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.dlang/watch-loc.exp | 24 |
7 files changed, 56 insertions, 56 deletions
diff --git a/gdb/testsuite/gdb.dlang/circular.exp b/gdb/testsuite/gdb.dlang/circular.exp index e318945..cc79062 100644 --- a/gdb/testsuite/gdb.dlang/circular.exp +++ b/gdb/testsuite/gdb.dlang/circular.exp @@ -27,98 +27,98 @@ set asm_file [standard_output_file $srcfile2] Dwarf::assemble $asm_file { cu {} { compile_unit { - {language @DW_LANG_D} + DW_AT_language @DW_LANG_D } { declare_labels circular1_label circular2_label circular3_label declare_labels circular4_label circular5_label circular1_label: module { - {name circular1} + DW_AT_name circular1 } { imported_module { - {import :$circular2_label} + DW_AT_import :$circular2_label } imported_module { - {import :$circular3_label} + DW_AT_import :$circular3_label } imported_module { - {import :$circular4_label} + DW_AT_import :$circular4_label } imported_module { - {import :$circular5_label} + DW_AT_import :$circular5_label } subprogram { - {external 1 flag_present} - {MACRO_AT_func {found}} + DW_AT_external 1 flag_present + MACRO_AT_func {found} } } circular2_label: module { - {name circular2} + DW_AT_name circular2 } { imported_module { - {import :$circular1_label} + DW_AT_import :$circular1_label } imported_module { - {import :$circular3_label} + DW_AT_import :$circular3_label } imported_module { - {import :$circular4_label} + DW_AT_import :$circular4_label } imported_module { - {import :$circular5_label} + DW_AT_import :$circular5_label } } circular3_label: module { - {name circular3} + DW_AT_name circular3 } { imported_module { - {import :$circular1_label} + DW_AT_import :$circular1_label } imported_module { - {import :$circular2_label} + DW_AT_import :$circular2_label } imported_module { - {import :$circular4_label} + DW_AT_import :$circular4_label } imported_module { - {import :$circular5_label} + DW_AT_import :$circular5_label } } circular4_label: module { - {name circular4} + DW_AT_name circular4 } { imported_module { - {import :$circular1_label} + DW_AT_import :$circular1_label } imported_module { - {import :$circular2_label} + DW_AT_import :$circular2_label } imported_module { - {import :$circular3_label} + DW_AT_import :$circular3_label } imported_module { - {import :$circular5_label} + DW_AT_import :$circular5_label } } circular5_label: module { - {name circular5} + DW_AT_name circular5 } { imported_module { - {import :$circular1_label} + DW_AT_import :$circular1_label } imported_module { - {import :$circular2_label} + DW_AT_import :$circular2_label } imported_module { - {import :$circular3_label} + DW_AT_import :$circular3_label } imported_module { - {import :$circular4_label} + DW_AT_import :$circular4_label } } } diff --git a/gdb/testsuite/gdb.dlang/demangle.exp b/gdb/testsuite/gdb.dlang/demangle.exp index 75c2f79..4181513 100644 --- a/gdb/testsuite/gdb.dlang/demangle.exp +++ b/gdb/testsuite/gdb.dlang/demangle.exp @@ -197,7 +197,7 @@ proc test_d_demangling {} { clean_restart -if [set_lang_d] { +if {[set_lang_d]} { gdb_test_no_output "set width 0" test_d_demangling diff --git a/gdb/testsuite/gdb.dlang/dlang-start-2.exp b/gdb/testsuite/gdb.dlang/dlang-start-2.exp index 403dcfd..b5c0542 100644 --- a/gdb/testsuite/gdb.dlang/dlang-start-2.exp +++ b/gdb/testsuite/gdb.dlang/dlang-start-2.exp @@ -40,24 +40,24 @@ Dwarf::assemble $asm_file { cu { label cu_start } { compile_unit { - {language @DW_LANG_D} + DW_AT_language @DW_LANG_D } { module { - {name dmain} + DW_AT_name dmain } subprogram { - {name "D main" } - {MIPS_linkage_name "_Dmain"} - {low_pc $dmain_start DW_FORM_addr} - {high_pc "$dmain_start + $dmain_length" DW_FORM_addr} - {external 1 flag_present} + DW_AT_name "D main" + DW_AT_MIPS_linkage_name "_Dmain" + DW_AT_low_pc $dmain_start DW_FORM_addr + DW_AT_high_pc "$dmain_start + $dmain_length" DW_FORM_addr + DW_AT_external 1 flag_present } subprogram { - {name "dmain._d_cmain!().main" } - {MIPS_linkage_name "main"} - {low_pc $main_start DW_FORM_addr} - {high_pc "$main_start + $main_length" DW_FORM_addr} - {external 1 flag_present} + DW_AT_name "dmain._d_cmain!().main" + DW_AT_MIPS_linkage_name "main" + DW_AT_low_pc $main_start DW_FORM_addr + DW_AT_high_pc "$main_start + $main_length" DW_FORM_addr + DW_AT_external 1 flag_present } } } diff --git a/gdb/testsuite/gdb.dlang/expression.exp b/gdb/testsuite/gdb.dlang/expression.exp index 0d22cee..6e611ed 100644 --- a/gdb/testsuite/gdb.dlang/expression.exp +++ b/gdb/testsuite/gdb.dlang/expression.exp @@ -129,7 +129,7 @@ proc test_d_expressions {} { clean_restart -if [set_lang_d] { +if {[set_lang_d]} { test_d_integer_literals test_d_float_literals test_d_expressions diff --git a/gdb/testsuite/gdb.dlang/primitive-types.exp b/gdb/testsuite/gdb.dlang/primitive-types.exp index 8e74520..9e6e8fa 100644 --- a/gdb/testsuite/gdb.dlang/primitive-types.exp +++ b/gdb/testsuite/gdb.dlang/primitive-types.exp @@ -51,7 +51,7 @@ proc test_builtin_d_types_accepted {} { clean_restart -if [set_lang_d] { +if {[set_lang_d]} { test_builtin_d_types_accepted } else { warning "D type tests suppressed." diff --git a/gdb/testsuite/gdb.dlang/properties.exp b/gdb/testsuite/gdb.dlang/properties.exp index 0fe18a5..d0266f8 100644 --- a/gdb/testsuite/gdb.dlang/properties.exp +++ b/gdb/testsuite/gdb.dlang/properties.exp @@ -82,7 +82,7 @@ proc test_d_typeof {} { clean_restart -if [set_lang_d] { +if {[set_lang_d]} { test_d_sizeof test_d_typeof } else { diff --git a/gdb/testsuite/gdb.dlang/watch-loc.exp b/gdb/testsuite/gdb.dlang/watch-loc.exp index ec50e91..d16b779 100644 --- a/gdb/testsuite/gdb.dlang/watch-loc.exp +++ b/gdb/testsuite/gdb.dlang/watch-loc.exp @@ -33,30 +33,30 @@ Dwarf::assemble $asm_file { cu { label cu_start } { compile_unit { - {language @DW_LANG_D} + DW_AT_language @DW_LANG_D } { declare_labels watch_module_label watch_struct_label watch_module_label: module { - {name watch} + DW_AT_name watch } { watch_struct_label: structure_type { - {name tstruct} - {byte_size 1 data1} + DW_AT_name tstruct + DW_AT_byte_size 1 data1 } tag_variable { - {name my_data} - {type :$watch_struct_label} - {location { - addr [gdb_target_symbol my_data] - } SPECIAL_expr} - {external 1 flag} + DW_AT_name my_data + DW_AT_type :$watch_struct_label + DW_AT_location { + DW_OP_addr [gdb_target_symbol my_data] + } SPECIAL_expr + DW_AT_external 1 flag } subprogram { - {MACRO_AT_func { "_Dmain" }} - {external 1 flag_present} + MACRO_AT_func { "_Dmain" } + DW_AT_external 1 flag_present } } } |