diff options
Diffstat (limited to 'gdb/testsuite/gdb.arch/s390-multiarch.exp')
| -rw-r--r-- | gdb/testsuite/gdb.arch/s390-multiarch.exp | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/gdb/testsuite/gdb.arch/s390-multiarch.exp b/gdb/testsuite/gdb.arch/s390-multiarch.exp index 00b3589827d..3bed2792ec2 100644 --- a/gdb/testsuite/gdb.arch/s390-multiarch.exp +++ b/gdb/testsuite/gdb.arch/s390-multiarch.exp @@ -28,9 +28,8 @@ if { ![isnative] || ![istarget s390x-*-* ] } { return } -set testfile "s390-multiarch" -set srcfile "${srcdir}/${subdir}/${testfile}.c" -set binprefix "${objdir}/${subdir}/${testfile}" +standard_testfile +set binprefix $binfile gdb_exit @@ -39,13 +38,13 @@ if { [get_compiler_info] } { } proc compile_and_dump {variant ccopts binfile} { - global srcfile + global srcdir subdir srcfile set compile_flags {debug} foreach opt $ccopts { lappend compile_flags "additional_flags=$opt" } set test "compile ($variant)" - if { [gdb_compile $srcfile $binfile executable $compile_flags] != "" } { + if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "$binfile" executable $compile_flags] != "" } { fail $test return {} } |