* lib/gcc-dg.exp (cleanup-dump): Remove options from test name.
From-SVN: r108129
This commit is contained in:
parent
9e1700983b
commit
2b948876d8
|
@ -1,3 +1,7 @@
|
||||||
|
2005-12-06 Janis Johnson <janis187@us.ibm.com>
|
||||||
|
|
||||||
|
* lib/gcc-dg.exp (cleanup-dump): Remove options from test name.
|
||||||
|
|
||||||
2005-12-06 Roger Sayle <roger@eyesopen.com>
|
2005-12-06 Roger Sayle <roger@eyesopen.com>
|
||||||
|
|
||||||
* g++.dg/warn/Wstring-literal-comparison-1.C: New test case.
|
* g++.dg/warn/Wstring-literal-comparison-1.C: New test case.
|
||||||
|
|
|
@ -367,7 +367,9 @@ proc cleanup-dump { suffix } {
|
||||||
# proc that stores the filename of the testcase in a local variable
|
# proc that stores the filename of the testcase in a local variable
|
||||||
# "name". A cleaner solution would require a new DejaGnu release.
|
# "name". A cleaner solution would require a new DejaGnu release.
|
||||||
upvar 3 name testcase
|
upvar 3 name testcase
|
||||||
remove-build-file "[file tail $testcase].$suffix"
|
# The name might include a list of options; extract the file name.
|
||||||
|
set src [file tail [lindex $testcase 0]]
|
||||||
|
remove-build-file "[file tail $src].$suffix"
|
||||||
|
|
||||||
# Clean up dump files for additional source files.
|
# Clean up dump files for additional source files.
|
||||||
if [info exists additional_sources] {
|
if [info exists additional_sources] {
|
||||||
|
|
Loading…
Reference in New Issue