compat.exp (compat-execute): Fix logic error in last change.

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

From-SVN: r58962

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index b6ce8465e81bb93ce01718b40133d06a7d78e3a1..3b511f56264c7469fcd6ae7c2bfa9693b5d0d853 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 21c098eb00feb0ed94c543b8b76a79b3c5b3961d..89cf5ae5e0f05a717da548c9ea849ad9b7f87487 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"
                }
            }