Add missing cleanup in run-gcov

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

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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@221023 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index ef6dad8..1211fab 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 6273ffa..229a396 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