OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

gcc-dg.exp (clanup-stack-usage): Really remove .su files.

Browse Source 
* lib/gcc-dg.exp (clanup-stack-usage): Really remove .su files.

From-SVN: r164466
This commit is contained in:
Uros Bizjak 2010-09-21 00:15:17 +02:00
parent 48dbbcd6e2
commit b379f67789
3 changed files with 21 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/testsuite/ChangeLog
View File

@ -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.

2
gcc/testsuite/gfortran.dg/inline_transpose_1.f90
View File

@ -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" } }

17
gcc/testsuite/lib/gcc-dg.exp
View File

@ -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.