| Index: gdb/testsuite/gdb.dwarf2/dw2-intercu.exp
|
| diff --git a/gdb/testsuite/gdb.dwarf2/dw2-intercu.exp b/gdb/testsuite/gdb.dwarf2/dw2-intercu.exp
|
| index d0166a8b87eff947be8a67340223e9fc22cc8202..dd836c5829b0912885cda64ed42e06ecf3ad9205 100644
|
| --- a/gdb/testsuite/gdb.dwarf2/dw2-intercu.exp
|
| +++ b/gdb/testsuite/gdb.dwarf2/dw2-intercu.exp
|
| @@ -21,32 +21,25 @@ if {![dwarf2_support]} {
|
| return 0
|
| }
|
|
|
| -set testfile "dw2-intercu"
|
| +standard_testfile .S
|
| set dwarf_srcfile "file1.txt"
|
| -set srcfile ${testfile}.S
|
| -set binfile ${objdir}/${subdir}/${testfile}.x
|
|
|
| -if { [gdb_compile "${srcdir}/${subdir}/main.c" "main.o" object {debug}] != "" } {
|
| +if {[prepare_for_testing_full $testfile.exp \
|
| + [list $testfile debug main.c debug $srcfile nodebug]]} {
|
| return -1
|
| }
|
|
|
| -if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${testfile}.o" object {nodebug}] != "" } {
|
| - return -1
|
| -}
|
| -
|
| -if { [gdb_compile "${testfile}.o main.o" "${binfile}" executable {debug}] != "" } {
|
| - return -1
|
| -}
|
| -
|
| -gdb_exit
|
| -gdb_start
|
| -gdb_reinitialize_dir $srcdir/$subdir
|
| -gdb_load ${binfile}
|
| -
|
| set remote_dwarf_srcfile [remote_download host ${srcdir}/${subdir}/${dwarf_srcfile}]
|
|
|
| +# This needs to be done first so that the CU for int2 gets expanded first.
|
| +# This exercises the case where the type for this die is hashed, but we
|
| +# need to perform the inter-cu lookup before looking the type up in the
|
| +# hash table.
|
| +gdb_test "ptype int2" "type = int2"
|
| +
|
| gdb_test_no_output "set listsize 1"
|
| gdb_test "list func_cu1" "4\[ \t\]+File 1 Line 4"
|
| -gdb_test "ptype func_cu1" "type = int \\(\\)"
|
| +
|
| +gdb_test "ptype func_cu1" "type = int2 \\(\\)"
|
|
|
| remote_file host delete ${remote_dwarf_srcfile}
|
|
|