From a03bd0056c58764adeda4797f5829ff031859646 Mon Sep 17 00:00:00 2001
From: Thomas Schwinge <thomas@codesourcery.com>
Date: Fri, 4 Jul 2014 07:28:17 +0200
Subject: Normalize interface for all *-dg-runtest.
gcc/testsuite/
* lib/g++-dg.exp (g++-dg-runtest): Change interface to match
dg-runtest's. Adapt all callers.
* lib/gcc-dg.exp (gcc-dg-runtest): Likewise.
* lib/gfortran-dg.exp (gfortran-dg-runtest): Likewise.
* lib/go-dg.exp (go-dg-runtest): Likewise.
* lib/obj-c++-dg.exp (obj-c++-dg-runtest): Likewise.
* lib/objc-dg.exp (objc-dg-runtest): Likewise.
libffi/
* testsuite/lib/libffi.exp (libffi-dg-runtest): Change interface
match to dg-runtest's.
From-SVN: r212278
---
libffi/testsuite/lib/libffi.exp | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
(limited to 'libffi/testsuite')
diff --git a/libffi/testsuite/lib/libffi.exp b/libffi/testsuite/lib/libffi.exp
index 25efce2de4d..ab0e0e092ce 100644
--- a/libffi/testsuite/lib/libffi.exp
+++ b/libffi/testsuite/lib/libffi.exp
@@ -238,7 +238,7 @@ proc search_for { file pattern } {
# Modified dg-runtest that can cycle through a list of optimization options
# as c-torture does.
-proc libffi-dg-runtest { testcases default-extra-flags } {
+proc libffi-dg-runtest { testcases flags default-extra-flags } {
global runtests
foreach test $testcases {
@@ -259,9 +259,9 @@ proc libffi-dg-runtest { testcases default-extra-flags } {
set nshort [file tail [file dirname $test]]/[file tail $test]
- foreach flags $option_list {
- verbose "Testing $nshort, $flags" 1
- dg-test $test $flags ${default-extra-flags}
+ foreach flags_t $option_list {
+ verbose "Testing $nshort, $flags $flags_t" 1
+ dg-test $test "$flags $flags_t" ${default-extra-flags}
}
}
}
--
cgit v1.2.1