amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

utils: Define target-ppc64le? predicate.

Browse source 
* guix/utils.scm (target-ppc64le?): New predicate.
This commit is contained in:
Efraim Flashner 2021-08-17 12:41:44 +03:00
parent 3567b916d3
commit ab18997f1c
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
guix/utils.scm
View file

@ -95,6 +95,7 @@
target-aarch64? target-aarch64?
target-arm? target-arm?
target-ppc32? target-ppc32?
target-ppc64le?
target-powerpc? target-powerpc?
target-64bit? target-64bit?
cc-for-target cc-for-target
@ -695,6 +696,10 @@ architecture (x86_64)?"
(%current-system)))) (%current-system))))
(string-prefix? "powerpc-" target)) (string-prefix? "powerpc-" target))
(define* (target-ppc64le? #:optional (target (or (%current-target-system)
(%current-system))))
(string-prefix? "powerpc64le-" target))
(define* (target-powerpc? #:optional (target (or (%current-target-system) (define* (target-powerpc? #:optional (target (or (%current-target-system)
(%current-system)))) (%current-system))))
(string-prefix? "powerpc" target)) (string-prefix? "powerpc" target))