From 77c5f5d7b242ab38e71d81bbfd09e812eb394b6f Mon Sep 17 00:00:00 2001 From: Ben Elliston Date: Sun, 20 Mar 2016 18:25:11 +1100 Subject: [PATCH] * lib/dg.exp (dg-runtest): Improve arg naming to remove a FIXME. --- ChangeLog | 4 ++++ lib/dg.exp | 11 +++++------ 2 files changed, 9 insertions(+), 6 deletions(-) diff --git a/ChangeLog b/ChangeLog index 6bb230b..014af74 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,9 @@ 2016-03-20 Ben Elliston + * lib/dg.exp (dg-runtest): Improve arg naming to remove a FIXME. + +2016-03-20 Ben Elliston + * lib/dg.exp: Remove commented-out calls to send_user. 2016-03-20 Ben Elliston diff --git a/lib/dg.exp b/lib/dg.exp index a491473..dfd6a6c 100644 --- a/lib/dg.exp +++ b/lib/dg.exp @@ -553,12 +553,11 @@ proc dg-init { } { # dg-runtest -- simple main loop useful to most testsuites # -# FLAGS is a set of options to always pass. -# DEFAULT_EXTRA_FLAGS is a set of options to pass if the testcase doesn't -# specify any (with dg-option). -# ??? We're flipping between "flag" and "option" here. +# OPTIONS is a set of options to always pass. +# DEFAULT_EXTRA_OPTIONS is a set of options to pass if the testcase +# doesn't specify any (with dg-option). -proc dg-runtest { testcases flags default-extra-flags } { +proc dg-runtest { testcases options default-extra-options } { global runtests foreach testcase $testcases { @@ -567,7 +566,7 @@ proc dg-runtest { testcases flags default-extra-flags } { continue } verbose "Testing [file tail [file dirname $testcase]]/[file tail $testcase]" - dg-test $testcase $flags ${default-extra-flags} + dg-test $testcase $options ${default-extra-options} } } -- 2.7.4