gcc-dg.exp (cleanup-ipa-dump): New.

* lib/gcc-dg.exp (cleanup-ipa-dump): New.
	(cleanup-coverage-files, cleanup-repo-files, cleanup-rtl-dump,
	cleanup-tree-dump, cleanup-saved-temps): Update comments.

From-SVN: r100116
This commit is contained in:
Janis Johnson 2005-05-24 21:27:38 +00:00 committed by Janis Johnson
parent d7cf8390c7
commit cce96d4aac
2 changed files with 35 additions and 11 deletions

View File

@ -1,3 +1,9 @@
2005-05-24 Janis Johnson <janis187@us.ibm.com>
* lib/gcc-dg.exp (cleanup-ipa-dump): New.
(cleanup-coverage-files, cleanup-repo-files, cleanup-rtl-dump,
cleanup-tree-dump, cleanup-saved-temps): Update comments.
2005-05-24 Andrew Pinski <pinskia@physics.uc.edu>
PR C++/21645

View File

@ -307,8 +307,8 @@ proc remove-build-file { pat } {
# Remove compiler-generated coverage files for the current test.
proc cleanup-coverage-files { } {
# This assumes that we are two frames down from dg-test, and that
# it still stores the filename of the testcase in a local variable "name".
# 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
remove-build-file "[file rootname [file tail $testcase]].gc??"
@ -323,8 +323,8 @@ proc cleanup-coverage-files { } {
# Remove compiler-generated files from -repo for the current test.
proc cleanup-repo-files { } {
# This assumes that we are two frames down from dg-test, and that
# it still stores the filename of the testcase in a local variable "name".
# 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
remove-build-file "[file rootname [file tail $testcase]].o"
@ -343,8 +343,8 @@ proc cleanup-repo-files { } {
#
# SUFFIX is the filename suffix pattern.
proc cleanup-rtl-dump { suffix } {
# This assumes that we are two frames down from dg-test, and that
# it still stores the filename of the testcase in a local variable "name".
# 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
remove-build-file "[file tail $testcase].??.$suffix"
@ -361,9 +361,9 @@ proc cleanup-rtl-dump { suffix } {
#
# SUFFIX is the file suffix pattern.
proc cleanup-tree-dump { suffix } {
# This assumes that we are two frames down from dg-test, and that
# it still stores the filename of the testcase in a local variable "name".
# A cleaner solution would require a new dejagnu release.
# 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
remove-build-file "[file tail $testcase].t??.$suffix"
@ -375,6 +375,24 @@ proc cleanup-tree-dump { suffix } {
}
}
# Remove a specific ipa dump file for the current test.
#
# SUFFIX is the file suffix pattern.
proc cleanup-ipa-dump { suffix } {
# 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
remove-build-file "[file tail $testcase].i??.$suffix"
# Clean up dump files for additional source files.
if [info exists additional_sources] {
foreach srcfile $additional_sources {
remove-build-file "[file tail $srcfile].i??.$suffix"
}
}
}
# Remove files kept by --save-temps for the current test.
#
# Currently this is only .i files, but more can be added if there are
@ -382,8 +400,8 @@ proc cleanup-tree-dump { suffix } {
proc cleanup-saved-temps { } {
global additional_sources
# This assumes that we are two frames down from dg-test, and that
# it still stores the filename of the testcase in a local variable "name".
# 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
remove-build-file "[file rootname [file tail $testcase]].ii"