* Fix extra brackets in my previous commit.
From-SVN: r162584
This commit is contained in:
parent
c013221eda
commit
01d2a0c170
1 changed files with 3 additions and 3 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Reference in a new issue