Patchwork [testsuite] : Remove list of options from test name in cleanup-* procedures.

login
register
mail settings
Submitter Uros Bizjak
Date July 27, 2010, 5:44 p.m.
Message ID <AANLkTikKbhRstmavNx7+fLV6f3nT_nc4VH5_nUVgJb7G@mail.gmail.com>
Download mbox | patch
Permalink /patch/60017/
State New
Headers show

Comments

Uros Bizjak - July 27, 2010, 5:44 p.m.
Hello!

"name" might include a list of options in addition to test filename.
Attached patch fixes this oversight in various cleanup procedures.

2010-07-27  Uros Bizjak  <ubizjak@gmail.com>

	* lib/gcc-dg.exp (cleanup-coverage-files): Remove options from
	test name.
	(cleanup-repo-files): Ditto.
	(cleanup-saved-temps): Ditto.

Tested on x86_64-pc-linux-gnu, committed to mainline SVN.

Uros.

Patch

Index: lib/gcc-dg.exp
===================================================================
--- lib/gcc-dg.exp	(revision 162572)
+++ lib/gcc-dg.exp	(working copy)
@@ -407,6 +407,8 @@ 
     # that stores the filename of the testcase in a local variable "name".
     # 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]]
     remove-build-file "[file rootname [file tail $testcase]].gc??"
 
     # Clean up coverage files for additional source files.
@@ -423,6 +425,8 @@ 
     # that stores the filename of the testcase in a local variable "name".
     # 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]]
     remove-build-file "[file rootname [file tail $testcase]].o"
     remove-build-file "[file rootname [file tail $testcase]].rpo"
 
@@ -498,6 +502,8 @@ 
     # that stores the filename of the testcase in a local variable "name".
     # 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]]
     foreach suffix $suffixes {
 	remove-build-file "[file rootname [file tail $testcase]]$suffix"
 	# -fcompare-debug dumps