From 8dc84ef1bfe97bbdc9b33ccd01643900ddd2d722 Mon Sep 17 00:00:00 2001 From: Janis Johnson Date: Fri, 28 May 2004 22:28:22 +0000 Subject: [PATCH] target-supports.exp (check_alias_available, [...]): Use unique names for temporary files. 2004-05-28 Janis Johnson * lib/target-supports.exp (check_alias_available, check_iconv_available, check_named_sections_available): Use unique names for temporary files. From-SVN: r82388 --- gcc/testsuite/ChangeLog | 6 +++++ gcc/testsuite/lib/target-supports.exp | 33 ++++++++++++++++++--------- 2 files changed, 28 insertions(+), 11 deletions(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 12f43fbd251..7c42703a810 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2004-05-28 Janis Johnson * gcc.dg/altivec-15.c: New test. diff --git a/gcc/testsuite/lib/target-supports.exp b/gcc/testsuite/lib/target-supports.exp index e5043c3aee1..aefba1d890c 100644 --- 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 \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] -- 2.30.2