* lib/compat.exp (compat-execute): Fix logic error in last

	change.

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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index b6ce846..3b511f5 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2002-11-09  Hans-Peter Nilsson  <hp@bitrange.com>
+
+       * lib/compat.exp (compat-execute): Fix logic error in last
+       change.
+
 2002-11-09  Neil Booth  <neil@daikokuya.co.uk>
 
        * gcc.dg/cpp/trad/assembler.S, gcc.dg/cpp/trad/directive.c: Update.

diff --git a/gcc/testsuite/lib/compat.exp b/gcc/testsuite/lib/compat.exp
index 21c098e..89cf5ae 100644 (file)
--- a/gcc/testsuite/lib/compat.exp
+++ b/gcc/testsuite/lib/compat.exp
@@ -231,7 +231,7 @@ proc compat-execute { src1 use_alt } {
        set files [glob -nocomplain *.o]
        if { $files != "" } {
            foreach objfile $files {
-               if { [info exists gluefile] && $objfile != $gluefile } {
+               if { ![info exists gluefile] || $objfile != $gluefile } {
                    eval "remote_file build delete $objfile"
                }
            }