* Fix extra brackets in my previous commit.
authorUros Bizjak <uros@gcc.gnu.org>
Tue, 27 Jul 2010 18:10:34 +0000 (20:10 +0200)
committerUros Bizjak <uros@gcc.gnu.org>
Tue, 27 Jul 2010 18:10:34 +0000 (20:10 +0200)
From-SVN: r162584

gcc/testsuite/lib/gcc-dg.exp

index c9b31d10c7bd64ca151537569453e44e4495f7dc..ebf3167ae85e404a1b9104ee1a382dc46a483a6d 100644 (file)
@@ -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