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} |