Add missing cleanup in run-gcov

2015-02-26  Tom de Vries  <tom@codesourcery.com>

	* lib/gcov.exp: Cleanup in case of xfail.

From-SVN: r221023

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index ef6dad86e35ca3da583595f330c686668bbdcf50..1211fab349bee094b42cd7c78d74b8e0498581bc 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2015-02-26  Tom de Vries  <tom@codesourcery.com>
+
+       * lib/gcov.exp: Cleanup in case of xfail.
+
 2015-02-26  Sebastian Pop  <s.pop@samsung.com>
 
        * gcc.dg/tree-ssa/ssa-dom-thread-9.c: Fix warning due to missing type.

diff --git a/gcc/testsuite/lib/gcov.exp b/gcc/testsuite/lib/gcov.exp
index 6273ffa87461804fc627f9ed3b4d169239a2b977..229a396155385c3728addd8da519310c042b25e5 100644 (file)
--- a/gcc/testsuite/lib/gcov.exp
+++ b/gcc/testsuite/lib/gcov.exp
@@ -391,6 +391,9 @@ proc run-gcov { args } {
     }
     if { $tfailed > 0 } {
        fail "$testname gcov: $lfailed failures in line counts, $bfailed in branch percentages, $cfailed in return percentages, $ifailed in intermediate format"
+       if { $xfailed } {
+           clean-gcov $testcase
+       }
     } else {
        pass "$testname gcov"
        clean-gcov $testcase