mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-02-05 23:32:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
From-SVN: r58646
This commit is contained in:
Hans-Peter Nilsson 2002-10-30 00:27:34 +00:00 committed by Hans-Peter Nilsson
parent 33c21f5cc0
commit f6a9714b8a
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/testsuite/ChangeLog
View File

@ -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

7
gcc/testsuite/lib/compat.exp
View File

@ -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"
}
}
}
}
}