Index: gdb/testsuite/gdb.dwarf2/dw2-modula2-self-type.exp |
diff --git a/gdb/testsuite/gdb.dwarf2/dw2-modula2-self-type.exp b/gdb/testsuite/gdb.dwarf2/dw2-modula2-self-type.exp |
index 970c17b2a7a5da890ef064ce209bccc70fa058d4..7a332547609682a2169ecb75d110e9f1306d399d 100644 |
--- a/gdb/testsuite/gdb.dwarf2/dw2-modula2-self-type.exp |
+++ b/gdb/testsuite/gdb.dwarf2/dw2-modula2-self-type.exp |
@@ -19,17 +19,14 @@ if {![dwarf2_support]} { |
return 0 |
} |
-set testfile "dw2-modula2-self-type" |
-set srcfile ${testfile}.S |
-set executable ${testfile}.x |
-set binfile ${objdir}/${subdir}/${executable} |
+standard_testfile .S |
# First try referencing DW_AT_frame_base which is not defined. |
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" object {}] != "" } { |
return -1 |
} |
-clean_restart $executable |
+clean_restart $testfile |
# C language would just naively print: |
# type = void (*)(void (*)(void (*)(void (*)(void (*)(... |