@@ -31,14 +31,9 @@ checkForLibAtomic <- function() {
3131 if (.Platform $ OS.type == " windows"
3232 return (TRUE )
3333
34- # create temporary source and out files
3534 tmp <- createTestFiles()
3635 writeLibAtomicTest(tmp [" src"
37-
38- # check whether test program can be compiled
3936 failed <- runCmd(getCompiler(), tmp [" src" " -o" tmp [" lib" " -latomic"
40-
41- # clean up temporary files
4237 unlink(tmp )
4338
4439 ! failed
@@ -48,14 +43,9 @@ hasAtomicSupport <- function() {
4843 if (checkForLibAtomic())
4944 return (TRUE )
5045
51- # create temporary source and out files
5246 tmp <- createTestFiles()
5347 writeLibAtomicTest(tmp [" src"
54-
55- # check whether test program can be compiled
5648 failed <- runCmd(getCompiler(), tmp [" src" " -o" tmp [" lib"
57-
58- # clean up temporary files
5949 unlink(tmp )
6050
6151 ! failed
@@ -65,14 +55,9 @@ checkForLibPthread <- function() {
6555 if (.Platform $ OS.type == " windows"
6656 return (FALSE )
6757
68- # create temporary source and out files
6958 tmp <- createTestFiles()
7059 cat(" #include <pthread.h> \n int main() { return 0; }" file = tmp [" src"
71-
72- # check whether test program can be compiled
7360 failed <- runCmd(getCompiler(), tmp [" src" " -o" tmp [" lib" " -lpthread"
74-
75- # clean up temporary files
7661 unlink(tmp )
7762
7863 ! failed
0 commit comments