diff options
| author | Uros Bizjak <uros@gcc.gnu.org> | 2010-09-21 00:15:17 +0200 |
|---|---|---|
| committer | Uros Bizjak <uros@gcc.gnu.org> | 2010-09-21 00:15:17 +0200 |
| commit | b379f67789d05ebe1cddd8a114e40a99eae030d8 (patch) | |
| tree | 0de180f133480dbba46535db093a0d03ecb39583 | |
| parent | 48dbbcd6e29e7520b91dce52f492fa07fb6e4aad (diff) | |
| download | gcc-b379f67789d05ebe1cddd8a114e40a99eae030d8.zip gcc-b379f67789d05ebe1cddd8a114e40a99eae030d8.tar.gz gcc-b379f67789d05ebe1cddd8a114e40a99eae030d8.tar.bz2 | |
gcc-dg.exp (clanup-stack-usage): Really remove .su files.
* lib/gcc-dg.exp (clanup-stack-usage): Really remove .su files.
From-SVN: r164466
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/inline_transpose_1.f90 | 2 | ||||
| -rw-r--r-- | gcc/testsuite/lib/gcc-dg.exp | 17 |
3 files changed, 21 insertions, 4 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index d1bf076..ac22fff 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2010-09-21 Uros Bizjak <ubizjak@gmail.com> + + * lib/gcc-dg.exp (clanup-stack-usage): Really remove .su files. + 2010-09-20 Janus Weil <janus@gcc.gnu.org> PR fortran/45438 @@ -8281,7 +8285,7 @@ * gfortran.dg/read_x_eof.f90: New test. * gfortran.dg/read_x_past.f: Update test. -2010-03-10 Jan Hubicka <jh@suse.cz> +2010-03-10 Jan Hubicka <jh@suse.cz> * gcc.c-torture/compile/pr43288.c: New test. diff --git a/gcc/testsuite/gfortran.dg/inline_transpose_1.f90 b/gcc/testsuite/gfortran.dg/inline_transpose_1.f90 index 50290c6..4995c49 100644 --- a/gcc/testsuite/gfortran.dg/inline_transpose_1.f90 +++ b/gcc/testsuite/gfortran.dg/inline_transpose_1.f90 @@ -200,5 +200,5 @@ end ! { # Commented out as failing at -O0: dg-final { scan-tree-dump-times "_gfortran_abort" 32 "optimized" } } ! ! cleanup -! { #dg-final { cleanup-tree-dump "original" } } +! { dg-final { cleanup-tree-dump "original" } } ! { dg-final { cleanup-tree-dump "optimized" } } diff --git a/gcc/testsuite/lib/gcc-dg.exp b/gcc/testsuite/lib/gcc-dg.exp index 53db283..e52a23f 100644 --- a/gcc/testsuite/lib/gcc-dg.exp +++ b/gcc/testsuite/lib/gcc-dg.exp @@ -461,8 +461,21 @@ proc cleanup-ipa-dump { suffix } { } # Remove a stack usage file for the current test. -proc cleanup-stack-usage { args } { - cleanup-dump "su" +proc cleanup-stack-usage { } { + # This assumes that we are two frames down from dg-test or some other proc + # that stores the filename of the testcase in a local variable "name". + # A cleaner solution would require a new DejaGnu release. + upvar 2 name testcase + # The name might include a list of options; extract the file name. + set testcase [lindex $testcase 0] + remove-build-file "[file rootname [file tail $testcase]].su" + + # Clean up files for additional source files. + if [info exists additional_sources] { + foreach srcfile $additional_sources { + remove-build-file "[file rootname [file tail $srcfile]].su" + } + } } # Remove all dump files with the provided suffix. |