summaryrefslogtreecommitdiff
path: root/guix/utils.scm
diff options
context:
space:
mode:
authorVivien Kraus <vivien@planete-kraus.eu>2022-07-19 20:05:45 +0200
committerLudovic Courtès <ludo@gnu.org>2022-08-05 00:14:30 +0200
commit94e0fb1eb7409b3cd1a3e0528c2f199c5a2f48d5 (patch)
tree3c4b56674588f6763dcc0ec0f00eb3f02e4d9192 /guix/utils.scm
parent334e953c93f470d6b289fb259e9b7bea3638e36a (diff)
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>
Diffstat (limited to 'guix/utils.scm')
-rw-r--r--guix/utils.scm5
1 files changed, 5 insertions, 0 deletions
diff --git a/guix/utils.scm b/guix/utils.scm
index b992b49815..aca0af4e4b 100644
--- a/guix/utils.scm
+++ b/guix/utils.scm
@@ -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"