target-supports.exp (check_alias_available, [...]): Use unique names for temporary...

2004-05-28  Janis Johnson  <janis187@us.ibm.com>

	* lib/target-supports.exp (check_alias_available,
	check_iconv_available, check_named_sections_available): Use
	unique names for temporary files.

From-SVN: r82388

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 12f43fbd25163ecccd75d1bcccb9b73a77c5ec3e..7c42703a810b6972ff925d0ac47728391b05a485 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2004-05-28  Janis Johnson  <janis187@us.ibm.com
+
+       * lib/target-supports.exp (check_alias_available,
+       check_iconv_available, check_named_sections_available): Use
+       unique names for temporary files.
+
 2004-05-28  Ziemowit Laski  <zlaski@apple.com>
 
        * gcc.dg/altivec-15.c: New test.

diff --git a/gcc/testsuite/lib/target-supports.exp b/gcc/testsuite/lib/target-supports.exp
index e5043c3aee1dce4bafbc3103ca021159fcf7c5fa..aefba1d890c7d51cd151554461e66d24ed31133f 100644 (file)
--- a/gcc/testsuite/lib/target-supports.exp
+++ b/gcc/testsuite/lib/target-supports.exp
@@ -104,16 +104,19 @@ proc check_alias_available { } {
     if [info exists alias_available_saved] {
         verbose "check_alias_available  returning saved $alias_available_saved" 2
     } else {
-        verbose "check_alias_available  compiling testfile" 2
-       set f [open "tmp.c" "w"]
+       set src alias[pid].c
+       set obj alias[pid].o
+        verbose "check_alias_available  compiling testfile $src" 2
+       set f [open $src "w"]
        # Compile a small test program.  The definition of "g" is
        # necessary to keep the Solaris assembler from complaining
        # about the program.
        puts $f "#ifdef __cplusplus\nextern \"C\"\n#endif\n"
        puts $f "void g() {} void f() __attribute__((alias(\"g\")));"
        close $f
-       set lines [${tool}_target_compile "tmp.c" "tmp.o" object ""]
-       file delete "tmp.c"
+       set lines [${tool}_target_compile $src $obj object ""]
+       file delete $src
+       remote_file build delete $obj
 
        if [string match "" $lines] then {
            # No error messages, everything is OK.
@@ -222,8 +225,10 @@ proc check_iconv_available { test_what } {
 
     set result ""
 
-    verbose "check_iconv_available compiling testfile" 1
-    set f [open "tmp.c" "w"]
+    set src iconv[pid].c
+    set exe iconv[pid].x
+    verbose "check_iconv_available compiling testfile $src" 2
+    set f [open $src "w"]
     # Compile a small test program.
     puts $f "#include <iconv.h>\n"
     puts $f "int main (void)\n {\n iconv_t cd; \n"
@@ -232,7 +237,9 @@ proc check_iconv_available { test_what } {
     puts $f "return 0;\n}"
     close $f
 
-    set lines [${tool}_target_compile "tmp.c" "tmp.x" executable "libs=$libiconv" ]
+    set lines [${tool}_target_compile $src $exe executable "libs=$libiconv" ]
+    file delete $src
+    remote_file build delete $exe
 
     if [string match "" $lines] then {
        # No error messages, everything is OK.
@@ -240,7 +247,7 @@ proc check_iconv_available { test_what } {
        set result [${tool}_load "./tmp.x" "" ""]
        set status [lindex $result 0];
 
-       verbose "status is <$status>"
+       verbose "check_iconv_available status is <$status>" 2
 
        if { $status == "pass" } then {
            return 1
@@ -257,12 +264,16 @@ proc check_iconv_available { test_what } {
 proc check_named_sections_available { } {
     global tool
 
-    set f [open "tmp.c" "w"]
+    set src named[pid].c
+    set obj named[pid].o
+    verbose "check_named_sections_available compiling testfile $src" 2
+    set f [open $src "w"]
     # Compile a small test program.
     puts $f "int __attribute__ ((section(\"whatever\"))) foo;"
     close $f
-    set lines [${tool}_target_compile "tmp.c" "tmp.o" object ""]
-    file delete "tmp.c"
+    set lines [${tool}_target_compile $src $obj object ""]
+    file delete $src
+    remote_file build delete $obj
 
     # If we got no error messages, everything is OK.
     set answer [string match "" $lines]