From 3a2bdc46ad3bf610de3ff4376bf379fde025c368 Mon Sep 17 00:00:00 2001 From: bje Date: Sat, 25 May 2002 03:40:20 +0000 Subject: [PATCH] 2002-05-24 Ben Elliston * 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 --- gcc/testsuite/ChangeLog | 4 ++++ 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 82ea6baac647..3dc427f4b703 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2002-05-24 Ben Elliston + + * lib/c-torture.exp (c-torture-execute): Handle multiple sources. + 2002-05-24 Jakub Jelinek * gcc.dg/verbose-asm.c: New test. diff --git a/gcc/testsuite/lib/c-torture.exp b/gcc/testsuite/lib/c-torture.exp index a5f0ccdbb35b..f7b547a07081 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" -- 2.47.2