gcc-dg.exp (cleanup-coverage-files): Remove options from test name.

* lib/gcc-dg.exp (cleanup-coverage-files): Remove options from
	test name.
	(cleanup-repo-files): Ditto.
	(cleanup-saved-temps): Ditto.

From-SVN: r162583
This commit is contained in:
Uros Bizjak 2010-07-27 19:55:00 +02:00 committed by Uros Bizjak
parent f3184b4ce1
commit c013221eda
2 changed files with 13 additions and 0 deletions

View file

@ -1,3 +1,10 @@
2010-07-27 Uros Bizjak <ubizjak@gmail.com>
* lib/gcc-dg.exp (cleanup-coverage-files): Remove options from
test name.
(cleanup-repo-files): Ditto.
(cleanup-saved-temps): Ditto.
2010-07-27 Jakub Jelinek <jakub@redhat.com>
PR testsuite/44701

View file

@ -407,6 +407,8 @@ proc cleanup-coverage-files { } {
# 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]].gc??"
# Clean up coverage files for additional source files.
@ -423,6 +425,8 @@ proc cleanup-repo-files { } {
# 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]].o"
remove-build-file "[file rootname [file tail $testcase]].rpo"
@ -498,6 +502,8 @@ proc cleanup-saved-temps { args } {
# 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]]
foreach suffix $suffixes {
remove-build-file "[file rootname [file tail $testcase]]$suffix"
# -fcompare-debug dumps