* Fix extra brackets in my previous commit.

From-SVN: r162584
This commit is contained in:
Uros Bizjak 2010-07-27 20:10:34 +02:00
parent c013221eda
commit 01d2a0c170

View 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