diff options
| author | Uros Bizjak <uros@gcc.gnu.org> | 2010-07-27 20:10:34 +0200 |
|---|---|---|
| committer | Uros Bizjak <uros@gcc.gnu.org> | 2010-07-27 20:10:34 +0200 |
| commit | 01d2a0c17018a57fcc6a17f5ddc24fc5d6d7c684 (patch) | |
| tree | 88636ef735c3565cb0b39aa4764a3f2c83cad45c | |
| parent | c013221edab028b68915d8a41fa90a3849764f8e (diff) | |
| download | gcc-01d2a0c17018a57fcc6a17f5ddc24fc5d6d7c684.zip gcc-01d2a0c17018a57fcc6a17f5ddc24fc5d6d7c684.tar.gz gcc-01d2a0c17018a57fcc6a17f5ddc24fc5d6d7c684.tar.bz2 | |
* Fix extra brackets in my previous commit.
From-SVN: r162584
| -rw-r--r-- | gcc/testsuite/lib/gcc-dg.exp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/testsuite/lib/gcc-dg.exp b/gcc/testsuite/lib/gcc-dg.exp index c9b31d1..ebf3167 100644 --- a/gcc/testsuite/lib/gcc-dg.exp +++ b/gcc/testsuite/lib/gcc-dg.exp @@ -408,7 +408,7 @@ proc cleanup-coverage-files { } { # 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]] + set testcase [lindex $testcase 0] remove-build-file "[file rootname [file tail $testcase]].gc??" # Clean up coverage files for additional source files. @@ -426,7 +426,7 @@ proc cleanup-repo-files { } { # 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]] + set testcase [lindex $testcase 0] remove-build-file "[file rootname [file tail $testcase]].o" remove-build-file "[file rootname [file tail $testcase]].rpo" @@ -503,7 +503,7 @@ proc cleanup-saved-temps { args } { # 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]] + set testcase [lindex $testcase 0] foreach suffix $suffixes { remove-build-file "[file rootname [file tail $testcase]]$suffix" # -fcompare-debug dumps |