diff options
Diffstat (limited to 'gdb')
-rw-r--r-- | gdb/testsuite/ChangeLog | 14 | ||||
-rw-r--r-- | gdb/testsuite/gdb.compile/compile-ops.exp | 1 | ||||
-rw-r--r-- | gdb/testsuite/gdb.dlang/circular.exp | 2 | ||||
-rw-r--r-- | gdb/testsuite/gdb.dwarf2/comp-unit-lang.exp | 2 | ||||
-rw-r--r-- | gdb/testsuite/gdb.dwarf2/dw2-ifort-parameter.exp | 1 | ||||
-rw-r--r-- | gdb/testsuite/gdb.dwarf2/dw2-symtab-includes.exp | 2 | ||||
-rw-r--r-- | gdb/testsuite/gdb.dwarf2/dwz.exp | 2 | ||||
-rw-r--r-- | gdb/testsuite/gdb.dwarf2/imported-unit-abstract-const-value.exp | 2 | ||||
-rw-r--r-- | gdb/testsuite/gdb.dwarf2/imported-unit-runto-main.exp | 2 | ||||
-rw-r--r-- | gdb/testsuite/gdb.dwarf2/imported-unit.exp | 3 | ||||
-rw-r--r-- | gdb/testsuite/gdb.dwarf2/opaque-type-lookup.exp | 2 | ||||
-rw-r--r-- | gdb/testsuite/lib/dwarf.exp | 9 |
12 files changed, 14 insertions, 28 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index e20e026..76ad965 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,17 @@ +2020-07-17 Tom de Vries <tdevries@suse.de> + + * lib/dwarf.exp (Dwarf::extern): Remove. + * gdb.compile/compile-ops.exp: Remove use of Dwarf::extern. + * gdb.dlang/circular.exp: Same. + * gdb.dwarf2/comp-unit-lang.exp: Same. + * gdb.dwarf2/dw2-ifort-parameter.exp: Same. + * gdb.dwarf2/dw2-symtab-includes.exp: Same. + * gdb.dwarf2/dwz.exp: Same. + * gdb.dwarf2/imported-unit-abstract-const-value.exp: Same. + * gdb.dwarf2/imported-unit-runto-main.exp: Same. + * gdb.dwarf2/imported-unit.exp: Same. + * gdb.dwarf2/opaque-type-lookup.exp: Same. + 2020-07-16 Sandra Loosemore <sandra@codesourcery.com> * gdb.base/shell.exp: Skip pipe tests dependent on sh on Windows host. diff --git a/gdb/testsuite/gdb.compile/compile-ops.exp b/gdb/testsuite/gdb.compile/compile-ops.exp index d9aee41..7c801d9 100644 --- a/gdb/testsuite/gdb.compile/compile-ops.exp +++ b/gdb/testsuite/gdb.compile/compile-ops.exp @@ -362,7 +362,6 @@ Dwarf::assemble $asm_file { cu { addr_size 4 } { declare_labels int_label - extern func_start func_end ptr compile_unit { {name file1.txt} diff --git a/gdb/testsuite/gdb.dlang/circular.exp b/gdb/testsuite/gdb.dlang/circular.exp index f3d8f60..1e04370 100644 --- a/gdb/testsuite/gdb.dlang/circular.exp +++ b/gdb/testsuite/gdb.dlang/circular.exp @@ -37,8 +37,6 @@ Dwarf::assemble $asm_file { declare_labels circular1_label circular2_label circular3_label declare_labels circular4_label circular5_label - extern circular1_found_start circular1_found_end - circular1_label: module { {name circular1} } { diff --git a/gdb/testsuite/gdb.dwarf2/comp-unit-lang.exp b/gdb/testsuite/gdb.dwarf2/comp-unit-lang.exp index 8ff6b73..2ebe6ca 100644 --- a/gdb/testsuite/gdb.dwarf2/comp-unit-lang.exp +++ b/gdb/testsuite/gdb.dwarf2/comp-unit-lang.exp @@ -42,8 +42,6 @@ proc do_test {cu_lang gdb_lang} { # Creating a CU with 4-byte addresses lets this test link on # both 32- and 64-bit machines. cu { addr_size 4 } { - extern func_start func_end - compile_unit { {name file1.txt} {language @$cu_lang} diff --git a/gdb/testsuite/gdb.dwarf2/dw2-ifort-parameter.exp b/gdb/testsuite/gdb.dwarf2/dw2-ifort-parameter.exp index 75f17c5..2388ce5 100644 --- a/gdb/testsuite/gdb.dwarf2/dw2-ifort-parameter.exp +++ b/gdb/testsuite/gdb.dwarf2/dw2-ifort-parameter.exp @@ -29,7 +29,6 @@ set asm_file [standard_output_file $srcfile2] Dwarf::assemble $asm_file { declare_labels int_label - extern func_start func_end ptr global srcdir subdir srcfile cu {} { diff --git a/gdb/testsuite/gdb.dwarf2/dw2-symtab-includes.exp b/gdb/testsuite/gdb.dwarf2/dw2-symtab-includes.exp index 1eaaf4a..e10e413 100644 --- a/gdb/testsuite/gdb.dwarf2/dw2-symtab-includes.exp +++ b/gdb/testsuite/gdb.dwarf2/dw2-symtab-includes.exp @@ -31,8 +31,6 @@ Dwarf::assemble $asm_file { declare_labels partial_label lines_label global srcdir subdir srcfile - extern main - cu {} { partial_label: partial_unit {} { } diff --git a/gdb/testsuite/gdb.dwarf2/dwz.exp b/gdb/testsuite/gdb.dwarf2/dwz.exp index b9987ed..9f5eda5 100644 --- a/gdb/testsuite/gdb.dwarf2/dwz.exp +++ b/gdb/testsuite/gdb.dwarf2/dwz.exp @@ -28,8 +28,6 @@ Dwarf::assemble $asm_file { declare_labels partial_label int_label int_label2 global srcdir subdir srcfile - extern main - cu {} { partial_label: partial_unit {} { subprogram { diff --git a/gdb/testsuite/gdb.dwarf2/imported-unit-abstract-const-value.exp b/gdb/testsuite/gdb.dwarf2/imported-unit-abstract-const-value.exp index f93dc12..13a7e97 100644 --- a/gdb/testsuite/gdb.dwarf2/imported-unit-abstract-const-value.exp +++ b/gdb/testsuite/gdb.dwarf2/imported-unit-abstract-const-value.exp @@ -42,8 +42,6 @@ Dwarf::assemble $asm_file { global srcdir subdir srcfile - extern main - set main_range [function_range main ${srcdir}/${subdir}/${srcfile}] set main_start [lindex $main_range 0] set main_length [lindex $main_range 1] diff --git a/gdb/testsuite/gdb.dwarf2/imported-unit-runto-main.exp b/gdb/testsuite/gdb.dwarf2/imported-unit-runto-main.exp index 2794684..8a05ee8 100644 --- a/gdb/testsuite/gdb.dwarf2/imported-unit-runto-main.exp +++ b/gdb/testsuite/gdb.dwarf2/imported-unit-runto-main.exp @@ -39,8 +39,6 @@ Dwarf::assemble $asm_file { global srcdir subdir srcfile - extern main - set main_range [function_range main ${srcdir}/${subdir}/${srcfile}] set main_start [lindex $main_range 0] set main_length [lindex $main_range 1] diff --git a/gdb/testsuite/gdb.dwarf2/imported-unit.exp b/gdb/testsuite/gdb.dwarf2/imported-unit.exp index 32a9abf..dba87ff 100644 --- a/gdb/testsuite/gdb.dwarf2/imported-unit.exp +++ b/gdb/testsuite/gdb.dwarf2/imported-unit.exp @@ -56,9 +56,6 @@ Dwarf::assemble $asm_file { global srcdir subdir srcfile - extern main - extern doit - set main_range [function_range main ${srcdir}/${subdir}/${srcfile}] set main_start [lindex $main_range 0] set main_length [lindex $main_range 1] diff --git a/gdb/testsuite/gdb.dwarf2/opaque-type-lookup.exp b/gdb/testsuite/gdb.dwarf2/opaque-type-lookup.exp index 60d67b1..19316ef 100644 --- a/gdb/testsuite/gdb.dwarf2/opaque-type-lookup.exp +++ b/gdb/testsuite/gdb.dwarf2/opaque-type-lookup.exp @@ -34,8 +34,6 @@ Dwarf::assemble $asm_file { declare_labels char_type1_label char_type2_label global srcdir subdir srcfile - extern main - # The partial units are laid out so we're not dependent on the order that # they appear in compunit_symtab.includes. We need the one with the # opaque definition to appear first to gdb, so we put it in the middle. diff --git a/gdb/testsuite/lib/dwarf.exp b/gdb/testsuite/lib/dwarf.exp index 21dc0f6..f745b2a 100644 --- a/gdb/testsuite/lib/dwarf.exp +++ b/gdb/testsuite/lib/dwarf.exp @@ -822,15 +822,6 @@ namespace eval Dwarf { _emit "${name}:" } - # Declare a global label. This is typically used to refer to - # labels defined in other files, for example a function defined in - # a .c file. - proc extern {args} { - foreach name $args { - _op .global $name - } - } - # A higher-level interface to label handling. # # ARGS is a list of label descriptors. Each one is either a |