The R Project SVN R

Rev

Rev 86071 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 86071 Rev 87888
Line 52... Line 52...
52 
        fout <- system(
 52 
        fout <- system(
53 
                    paste("file", shQuote(file.path(srcdir, "bin", "R.exe"))),
 53 
                    paste("file", shQuote(file.path(srcdir, "bin", "R.exe"))),
54 
                    intern=TRUE)
 54 
                    intern=TRUE)
55 
        if (grepl("x86-64", fout, fixed = TRUE))
 55 
        if (grepl("x86-64", fout, fixed = TRUE))
56 
            cat("ArchitecturesInstallIn64BitMode=x64 arm64\n", file = con)
 56 
            cat("ArchitecturesInstallIn64BitMode=x64 arm64\n", file = con)
57 
        else if (grepl("Aarch64", fout, fixed = TRUE)) {
 57 
        else if (grepl("Aarch64", fout, fixed = TRUE)
- 
 
 58 
                 || grepl("ARM64", fout, fixed = TRUE)) {
58 
            cat("ArchitecturesInstallIn64BitMode=arm64\n", file = con)
 59 
            cat("ArchitecturesInstallIn64BitMode=arm64\n", file = con)
59 
            cat("ArchitecturesAllowed=arm64\n", file = con)
 60 
            cat("ArchitecturesAllowed=arm64\n", file = con)
60 
            aarch64 <- TRUE
 61 
            aarch64 <- TRUE
61 
        }
 62 
        }
62 
    }
 63 
    }