From: Uros Bizjak <uros@gcc.gnu.org>
Date: Tue, 27 Jul 2010 18:10:34 +0000 (+0200)
Subject: * Fix extra brackets in my previous commit.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=01d2a0c17018a57fcc6a17f5ddc24fc5d6d7c684;p=gcc.git

* Fix extra brackets in my previous commit.

From-SVN: r162584
---

diff --git a/gcc/testsuite/lib/gcc-dg.exp b/gcc/testsuite/lib/gcc-dg.exp
index c9b31d10c7b..ebf3167ae85 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