mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-02-07 11:29:59 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

utils: Add target-powerpc? procedure.

Browse source 
* guix/utils.scm (target-powerpc?): New exported procedure.
This commit is contained in:
Chris Marusich 2021-02-02 00:00:57 -08:00
parent 680b20f24c
commit 4bd672cb41
No known key found for this signature in database
GPG key ID: DD409A15D822469D
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

@ -10,6 +10,7 @@
;;; Copyright © 2020 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2020 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2021 Simon Tournier <zimon.toutoune@gmail.com>
;;; Copyright © 2021 Chris Marusich <cmmarusich@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -83,6 +84,7 @@
target-arm32?
target-aarch64?
target-arm?
target-powerpc?
target-64bit?
cc-for-target
cxx-for-target
@ -555,6 +557,10 @@ a character other than '@'."
(%current-system))))
(or (target-arm32? target) (target-aarch64? target)))
(define* (target-powerpc? #:optional (target (or (%current-target-system)
(%current-system))))
(string-prefix? "powerpc" target))
(define* (target-64bit? #:optional (system (or (%current-target-system)
(%current-system))))
(any (cut string-prefix? <> system) '("x86_64" "aarch64" "mips64" "ppc64")))