diff options
| author | Uros Bizjak <ubizjak@gmail.com> | 2010-07-27 19:55:00 +0200 |
|---|---|---|
| committer | Uros Bizjak <uros@gcc.gnu.org> | 2010-07-27 19:55:00 +0200 |
| commit | c013221edab028b68915d8a41fa90a3849764f8e (patch) | |
| tree | 5c4c2df5fcb396be4d352155a227d3ea40b2bf55 /gcc/testsuite/lib | |
| parent | f3184b4ce1ce9b81120c666b8a548f49e1d628e1 (diff) | |
| download | gcc-c013221edab028b68915d8a41fa90a3849764f8e.zip gcc-c013221edab028b68915d8a41fa90a3849764f8e.tar.gz gcc-c013221edab028b68915d8a41fa90a3849764f8e.tar.bz2 | |
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
Diffstat (limited to 'gcc/testsuite/lib')
| -rw-r--r-- | gcc/testsuite/lib/gcc-dg.exp | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/testsuite/lib/gcc-dg.exp b/gcc/testsuite/lib/gcc-dg.exp index 512144a..c9b31d1 100644 --- a/gcc/testsuite/lib/gcc-dg.exp +++ b/gcc/testsuite/lib/gcc-dg.exp @@ -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 |