This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[testsuite] checked in: backports to 4.1
- From: Janis Johnson <janis187 at us dot ibm dot com>
- To: gcc-patches at gcc dot gnu dot org
- Date: Tue, 7 Feb 2006 10:16:30 -0800
- Subject: [testsuite] checked in: backports to 4.1
This patch backports a few small testsuite fixes from mainline to the
4.1-branch. Tested on powerpc64-linux with both -m32 and -m64. Checked
in yesterday, but I forgot to send this mail.
Now to backport testsuite fixes for 4.0-branch, much later than expected.
2006-02-06 Janis Johnson <janis187@us.ibm.com
Backport from mainline
2005-12-28 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
* lib/gfortran-dg.exp: Remove trailing whitespace.
2005-12-06 Janis Johnson <janis187@us.ibm.com>
* lib/gcc-dg.exp (cleanup-dump): Remove options from test name.
2005-12-01 Uros Bizjak <uros@kss-loka.si>
* lib/gcov.exp (clean-gcov): Also remove $base.h.gcov files.
Index: gcc/testsuite/lib/gfortran-dg.exp
===================================================================
--- gcc/testsuite/lib/gfortran-dg.exp (revision 110642)
+++ gcc/testsuite/lib/gfortran-dg.exp (working copy)
@@ -92,7 +92,7 @@
# look if this is dg-do-run test, in which case
# we cycle through the option list, otherwise we don't
if [expr [search_for $test "dg-do run"]] {
- set option_list $TORTURE_OPTIONS
+ set option_list $TORTURE_OPTIONS
} else {
set option_list [list { -O } ]
}
Index: gcc/testsuite/lib/gcc-dg.exp
===================================================================
--- gcc/testsuite/lib/gcc-dg.exp (revision 110642)
+++ gcc/testsuite/lib/gcc-dg.exp (working copy)
@@ -367,7 +367,9 @@
# proc that stores the filename of the testcase in a local variable
# "name". A cleaner solution would require a new DejaGnu release.
upvar 3 name testcase
- remove-build-file "[file tail $testcase].$suffix"
+ # The name might include a list of options; extract the file name.
+ set src [file tail [lindex $testcase 0]]
+ remove-build-file "[file tail $src].$suffix"
# Clean up dump files for additional source files.
if [info exists additional_sources] {
Index: gcc/testsuite/lib/gcov.exp
===================================================================
--- gcc/testsuite/lib/gcov.exp (revision 110642)
+++ gcc/testsuite/lib/gcov.exp (working copy)
@@ -27,7 +27,8 @@
proc clean-gcov { testcase } {
set basename [file tail $testcase]
set base [file rootname $basename]
- remote_file host delete $base.gcno $base.gcda $basename.gcov
+ remote_file host delete $base.gcno $base.gcda \
+ $basename.gcov $base.h.gcov
}
#