+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
* 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.
! { # 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" } }
}
# 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.