diff options
| author | Hans-Peter Nilsson <hp@bitrange.com> | 2002-10-30 00:27:34 +0000 |
|---|---|---|
| committer | Hans-Peter Nilsson <hp@gcc.gnu.org> | 2002-10-30 00:27:34 +0000 |
| commit | f6a9714b8af41aec467cbc5130c797b4226c6ab8 (patch) | |
| tree | 4c2b5c31f704353e4cadc25fd5c50c99fa6399f9 /gcc | |
| parent | 33c21f5cc0d666b959cfbe1e4fd65c76bbfd431e (diff) | |
| download | gcc-f6a9714b8af41aec467cbc5130c797b4226c6ab8.zip gcc-f6a9714b8af41aec467cbc5130c797b4226c6ab8.tar.gz gcc-f6a9714b8af41aec467cbc5130c797b4226c6ab8.tar.bz2 | |
* lib/compat.exp (compat-execute): Don't clean out a gluefile.
From-SVN: r58646
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/testsuite/lib/compat.exp | 7 |
2 files changed, 10 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 6bb7065..ed1f82e 100644 --- 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 0944ccc..21c098e 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" + } + } } } } |