* lib/compat.exp (compat-execute): Don't clean out a gluefile.

From-SVN: r58646

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 6bb70652b170371890fe597893fc5e1f3d3eef09..ed1f82e4cf493e8760b6447e378b28bbc9b49b7b 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2002-10-29  Hans-Peter Nilsson  <hp@bitrange.com>
+
+       * lib/compat.exp (compat-execute): Don't clean out a gluefile.
+
 2002-10-29  Mark Mitchell  <mark@codesourcery.com>
 
        PR c++/8287

diff --git a/gcc/testsuite/lib/compat.exp b/gcc/testsuite/lib/compat.exp
index 0944ccc95d8e6aae0f5432e875f939968c092549..21c098eb00feb0ed94c543b8b76a79b3c5b3961d 100644 (file)
--- 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"
+               }
+           }
        }
     }
 }