utils: Add target-mips64el?.
* guix/utils.scm (target-mips64el?): New function. It detects whether the target system is mips64el. Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
parent
334e953c93
commit
94e0fb1eb7
@ -102,6 +102,7 @@
|
||||
target-ppc64le?
|
||||
target-powerpc?
|
||||
target-riscv64?
|
||||
target-mips64el?
|
||||
target-64bit?
|
||||
ar-for-target
|
||||
as-for-target
|
||||
@ -734,6 +735,10 @@ architecture (x86_64)?"
|
||||
"Is the architecture of TARGET a 'riscv64' machine?"
|
||||
(string-prefix? "riscv64" target))
|
||||
|
||||
(define* (target-mips64el? #:optional (target (or (%current-target-system)
|
||||
(%current-system))))
|
||||
(string-prefix? "mips64el-" target))
|
||||
|
||||
(define* (target-64bit? #:optional (system (or (%current-target-system)
|
||||
(%current-system))))
|
||||
(any (cut string-prefix? <> system) '("x86_64" "aarch64" "mips64"
|
||||
|
Loading…
Reference in New Issue
Block a user