2002-05-24 Ben Elliston <bje@redhat.com>

	* lib/c-torture.exp (c-torture-execute): Handle multiple sources.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@53863 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 82ea6ba..3dc427f 100644 (file)
--- 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 (file)
--- 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"