* lib/gcc-dg.exp (cleanup-dump): Remove options from test name.

From-SVN: r108129

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 35f45eacce1e11f0816389999bc180e1ee226aec..45d0af7a9ac675fa05e7e584aa5bde2444bc2abe 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -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>
 
        * g++.dg/warn/Wstring-literal-comparison-1.C: New test case.

diff --git a/gcc/testsuite/lib/gcc-dg.exp b/gcc/testsuite/lib/gcc-dg.exp
index 68c4aacf8e88bfdaa0ed1d16b6b0021f64e4a64c..6fb94e01ec762d48423ddea52206a71fa1fec706 100644 (file)
--- a/gcc/testsuite/lib/gcc-dg.exp
+++ b/gcc/testsuite/lib/gcc-dg.exp
@@ -367,7 +367,9 @@ proc cleanup-dump { suffix } {
     # proc that stores the filename of the testcase in a local variable
     # "name".  A cleaner solution would require a new DejaGnu release.
     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.
     if [info exists additional_sources] {