TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

utils: Define 'target-riscv64?' predicate.

Browse source 
* guix/utils.scm (target-riscv64?): New predicate.
This commit is contained in:
Efraim Flashner 2021-08-01 11:01:41 +03:00
parent b1de968fd5
commit 697686805f
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
guix/utils.scm
View file

@ -97,6 +97,7 @@ (define-module (guix utils)
target-ppc32?
target-ppc64le?
target-powerpc?
target-riscv64?
target-64bit?
cc-for-target
cxx-for-target
@ -704,6 +705,11 @@ (define* (target-powerpc? #:optional (target (or (%current-target-system)
(%current-system))))
(string-prefix? "powerpc" target))
(define* (target-riscv64? #:optional (target (or (%current-target-system)
(%current-system))))
"Is the architecture of TARGET a 'riscv64' machine?"
(string-prefix? "riscv64" target))
(define* (target-64bit? #:optional (system (or (%current-target-system)
(%current-system))))
(any (cut string-prefix? <> system) '("x86_64" "aarch64" "mips64" "powerpc64")))