From f6a9714b8af41aec467cbc5130c797b4226c6ab8 Mon Sep 17 00:00:00 2001 From: Hans-Peter Nilsson Date: Wed, 30 Oct 2002 00:27:34 +0000 Subject: [PATCH] * lib/compat.exp (compat-execute): Don't clean out a gluefile. From-SVN: r58646 --- gcc/testsuite/ChangeLog | 4 ++++ gcc/testsuite/lib/compat.exp | 7 ++++++- 2 files changed, 10 insertions(+), 1 deletion(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 6bb70652b17..ed1f82e4cf4 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2002-10-29 Hans-Peter Nilsson + + * lib/compat.exp (compat-execute): Don't clean out a gluefile. + 2002-10-29 Mark Mitchell PR c++/8287 diff --git a/gcc/testsuite/lib/compat.exp b/gcc/testsuite/lib/compat.exp index 0944ccc95d8..21c098eb00f 100644 --- a/gcc/testsuite/lib/compat.exp +++ b/gcc/testsuite/lib/compat.exp @@ -120,6 +120,7 @@ proc compat-execute { src1 use_alt } { global tool global verbose global testcase + global gluefile # Use the dg-options mechanism to specify extra flags for this test. # FIXME: This does not handle other uses of dg-options, and it only @@ -229,7 +230,11 @@ proc compat-execute { src1 use_alt } { # Clean up object files. set files [glob -nocomplain *.o] if { $files != "" } { - eval "remote_file build delete $files" + foreach objfile $files { + if { [info exists gluefile] && $objfile != $gluefile } { + eval "remote_file build delete $objfile" + } + } } } } -- 2.30.2