From 824a9fb6e11a03bb24d583336da99be10e008738 Mon Sep 17 00:00:00 2001 From: tschwinge Date: Fri, 4 Jul 2014 05:28:17 +0000 Subject: [PATCH 5/7] Normalize interface for all *-dg-runtest. --- testsuite/lib/libffi.exp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/testsuite/lib/libffi.exp b/testsuite/lib/libffi.exp index b1dd1fa..da4e878 100644 --- a/testsuite/lib/libffi.exp +++ b/testsuite/lib/libffi.exp @@ -251,7 +251,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 { @@ -272,9 +272,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} } } } -- 1.8.4.2