gcc.exp (gcc_init): Use a filename for the testglue that is unique to the tool.

* lib/gcc.exp (gcc_init): Use a filename for the testglue that is
unique to the tool.
* lib/g77.exp (g77_init): Likewise.
* lib/g++.exp (g++_init): Likewise.
* lib/objc.exp (objc_init): Likewise.

From-SVN: r57532

gcc/testsuite/ChangeLog

+2002-09-26  Richard Earnshaw  <rearnsha@arm.com>
+
+	* lib/gcc.exp (gcc_init): Use a filename for the testglue that is
+	unique to the tool.
+	* lib/g77.exp (g77_init): Likewise.
+	* lib/g++.exp (g++_init): Likewise.
+	* lib/objc.exp (objc_init): Likewise.
+
 2002-09-25  Mark Mitchell  <mark@codesourcery.com>
 
 	* gcc/testsuite/g++.dg/abi/empty5.C: New test.

gcc/testsuite/lib/g++.exp

@@ -239,7 +239,7 @@ proc g++_init { args } {
     }
 
     if { [target_info needs_status_wrapper] != "" } {
-	set gluefile ${tmpdir}/testglue.o;
+	set gluefile ${tmpdir}/g++-testglue.o;
 	set result [build_wrapper $gluefile];
 	if { $result != "" } {
 	    set gluefile [lindex $result 0];

gcc/testsuite/lib/g77.exp

@@ -168,7 +168,7 @@ proc g77_init { args } {
     }
 
     if { [target_info needs_status_wrapper] != "" } {
-	set gluefile ${tmpdir}/testglue.o;
+	set gluefile ${tmpdir}/g77-testglue.o;
 	set result [build_wrapper $gluefile];
 	if { $result != "" } {
 	    set gluefile [lindex $result 0];

gcc/testsuite/lib/gcc.exp

@@ -109,7 +109,7 @@ proc gcc_init { args } {
     if {[target_info needs_status_wrapper] != "" && \
 	    [target_info needs_status_wrapper] != "0" && \
 	    ![info exists gluefile]} {
-	set gluefile ${tmpdir}/testglue.o;
+	set gluefile ${tmpdir}/gcc-testglue.o;
 	set result [build_wrapper $gluefile];
 	if { $result != "" } {
 	    set gluefile [lindex $result 0];

gcc/testsuite/lib/objc.exp

@@ -108,7 +108,7 @@ proc objc_init { args } {
 	set tmpdir /tmp
     }
     if { [target_info needs_status_wrapper]!="" && ![info exists gluefile] } {
-	set gluefile ${tmpdir}/testglue.o;
+	set gluefile ${tmpdir}/objc-testglue.o;
 	set result [build_wrapper $gluefile];
 	if { $result != "" } {
 	    set gluefile [lindex $result 0];