diff options
author | Ben Elliston <bje@redhat.com> | 2002-05-25 03:40:20 +0000 |
---|---|---|
committer | Ben Elliston <bje@gcc.gnu.org> | 2002-05-25 13:40:20 +1000 |
commit | 9e253215882bcaf008af7df82731c88692969a61 (patch) | |
tree | 563050e935f1c1df1553c174bf4e67bc874b187e /gcc | |
parent | c7bdf0a6af41a480ecb6a103636ef9069721c0bd (diff) | |
download | gcc-9e253215882bcaf008af7df82731c88692969a61.zip gcc-9e253215882bcaf008af7df82731c88692969a61.tar.gz gcc-9e253215882bcaf008af7df82731c88692969a61.tar.bz2 |
c-torture.exp (c-torture-execute): Handle multiple sources.
2002-05-24 Ben Elliston <bje@redhat.com>
* lib/c-torture.exp (c-torture-execute): Handle multiple sources.
From-SVN: r53863
Diffstat (limited to 'gcc')
-rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
-rw-r--r-- | gcc/testsuite/lib/c-torture.exp | 10 |
2 files changed, 11 insertions, 3 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 82ea6ba..3dc427f 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2002-05-24 Ben Elliston <bje@redhat.com> + + * lib/c-torture.exp (c-torture-execute): Handle multiple sources. + 2002-05-24 Jakub Jelinek <jakub@redhat.com> * gcc.dg/verbose-asm.c: New test. diff --git a/gcc/testsuite/lib/c-torture.exp b/gcc/testsuite/lib/c-torture.exp index a5f0ccd..f7b547a 100644 --- a/gcc/testsuite/lib/c-torture.exp +++ b/gcc/testsuite/lib/c-torture.exp @@ -91,15 +91,19 @@ proc c-torture-compile { src option } { # # c-torture-execute -- utility to compile and execute a testcase # -# SRC is the full pathname of the testcase. +# SOURCES is a list of full pathnames to the test source files. +# The first filename in this list forms the "testcase". # # If the testcase has an associated .x file, we source that to run the # test instead. We use .x so that we don't lengthen the existing filename # to more than 14 chars. # -proc c-torture-execute { src args } { +proc c-torture-execute { sources args } { global tmpdir tool srcdir output compiler_conditional_xfail_data + # Use the first source filename given as the filename under test. + set src [lindex $sources 0] + if { [llength $args] > 0 } { set additional_flags [lindex $args 0]; } else { @@ -164,7 +168,7 @@ proc c-torture-execute { src args } { if { $additional_flags != "" } { lappend options "additional_flags=$additional_flags"; } - set comp_output [gcc_target_compile "$src" "${execname}" executable $options]; + set comp_output [gcc_target_compile "$sources" "${execname}" executable $options]; if ![gcc_check_compile "$testcase compilation" $option $execname $comp_output] { unresolved "$testcase execution, $option" |