diff options
| author | Jakub Jelinek <jakub@redhat.com> | 2017-01-26 20:37:08 +0100 |
|---|---|---|
| committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2017-01-26 20:37:08 +0100 |
| commit | c1cadde1cbd95e051885c3c9c5794a8d8c64e27a (patch) | |
| tree | 08def07d5bd42c39b0d73df5b2a6fab48ab957f1 /libgomp/testsuite | |
| parent | 41d3d0ac409a6e85a39e453be6ecb99c622284a8 (diff) | |
| download | gcc-c1cadde1cbd95e051885c3c9c5794a8d8c64e27a.zip gcc-c1cadde1cbd95e051885c3c9c5794a8d8c64e27a.tar.gz gcc-c1cadde1cbd95e051885c3c9c5794a8d8c64e27a.tar.bz2 | |
* testsuite/lib/libgomp.exp
(check_effective_target_hsa_offloading_selected_nocache): Fix up
check_compile invocation. Fix up removal of executable. Drop
bogus "2>&1" argument.
From-SVN: r244948
Diffstat (limited to 'libgomp/testsuite')
| -rw-r--r-- | libgomp/testsuite/lib/libgomp.exp | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/libgomp/testsuite/lib/libgomp.exp b/libgomp/testsuite/lib/libgomp.exp index 50ec8a7..5e47872 100644 --- a/libgomp/testsuite/lib/libgomp.exp +++ b/libgomp/testsuite/lib/libgomp.exp @@ -408,16 +408,16 @@ proc check_effective_target_hsa_offloading_selected_nocache {} { } } - set result [eval [list check_compile hsa_offloading_src executable $src] ""] + set result [check_compile hsa_offloading_src executable $src] set lines [lindex $result 0] - set output [lindex $result 1] + set exe [lindex $result 1] set ok 0 if { [string match "" $lines] } { # No error messages, let us switch on HSA debugging output and run it set prev_HSA_DEBUG [getenv HSA_DEBUG] setenv HSA_DEBUG "1" - set result [remote_load target "./$output" "2>&1" ""] + set result [remote_load target "./$exe"] if { [string match "" $prev_HSA_DEBUG] } { unsetenv HSA_DEBUG } else { @@ -425,6 +425,7 @@ proc check_effective_target_hsa_offloading_selected_nocache {} { } set status [lindex $result 0] if { $status != "pass" } { + remote_file build delete $exe verbose "HSA availability test failed" return 0 } @@ -434,7 +435,7 @@ proc check_effective_target_hsa_offloading_selected_nocache {} { set ok 1 } } - remote_file build delete $output + remote_file build delete $exe return $ok } |