From 9f4df8f1a4ae435f2e443978ebd3d58519018a70 Mon Sep 17 00:00:00 2001 From: Nathan Sidwell Date: Tue, 25 Apr 2017 22:14:55 +0000 Subject: [PATCH] * g++.dg/dg.exp (find-cxx-tests): Remove TCL 8.5-ism. From-SVN: r247269 --- gcc/testsuite/ChangeLog | 4 ++++ gcc/testsuite/g++.dg/dg.exp | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index f6dfd5e16c5..bdaccdca6b2 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2017-04-25 Nathan Sidwell + + * g++.dg/dg.exp (find-cxx-tests): Remove TCL 8.5-ism. + 2017-04-25 Uros Bizjak PR target/70799 diff --git a/gcc/testsuite/g++.dg/dg.exp b/gcc/testsuite/g++.dg/dg.exp index 940213d4eff..8222e38b2c6 100644 --- a/gcc/testsuite/g++.dg/dg.exp +++ b/gcc/testsuite/g++.dg/dg.exp @@ -35,7 +35,7 @@ proc find-cxx-tests { dir suffix } { set tests [lsort [glob -nocomplain -directory $dir "*.$suffix" ]] foreach subdir [lsort [glob -nocomplain -type d -directory $dir *]] { if { [glob -nocomplain -directory $subdir *.exp] eq "" } { - lappend tests {*}[find-cxx-tests $subdir $suffix] + eval lappend tests [find-cxx-tests $subdir $suffix] } } return $tests -- 2.30.2