me/guix
Archived
1
0
Fork 0
Code Activity

utils: Add target-mips64el?.

Browse source 
* 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:
Vivien Kraus 2022-07-19 20:05:45 +02:00 • committed by Ludovic Courtès
parent 334e953c93
commit 94e0fb1eb7
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
guix/utils.scm
View file

@ -102,6 +102,7 @@
target-ppc64le? target-ppc64le?
target-powerpc? target-powerpc?
target-riscv64? target-riscv64?
target-mips64el?
target-64bit? target-64bit?
ar-for-target ar-for-target
as-for-target as-for-target
@ -734,6 +735,10 @@ architecture (x86_64)?"
"Is the architecture of TARGET a 'riscv64' machine?" "Is the architecture of TARGET a 'riscv64' machine?"
(string-prefix? "riscv64" target)) (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) (define* (target-64bit? #:optional (system (or (%current-target-system)
(%current-system)))) (%current-system))))
(any (cut string-prefix? <> system) '("x86_64" "aarch64" "mips64" (any (cut string-prefix? <> system) '("x86_64" "aarch64" "mips64"