ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-19 21:27:37 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

utils: Define 'target-ppc32?' predicate.

Browse source 
* guix/utils.scm (target-ppc32?): New predicate.
This commit is contained in:
Efraim Flashner 2021-08-17 09:39:46 +03:00
parent 62089efeff
commit 7393764680
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
guix/utils.scm
View file

@ -7,7 +7,7 @@
;;; Copyright © 2015 David Thompson <davet@gnu.org>
;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2018, 2020 Marius Bakke <marius@gnu.org>
;;; Copyright © 2020 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2020, 2021 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>
@ -94,6 +94,7 @@ (define-module (guix utils)
target-arm32?
target-aarch64?
target-arm?
target-ppc32?
target-powerpc?
target-64bit?
cc-for-target
@ -690,6 +691,10 @@ (define* (target-arm? #:optional (target (or (%current-target-system)
(%current-system))))
(or (target-arm32? target) (target-aarch64? target)))
(define* (target-ppc32? #:optional (target (or (%current-target-system)
(%current-system))))
(string-prefix? "powerpc-" target))
(define* (target-powerpc? #:optional (target (or (%current-target-system)
(%current-system))))
(string-prefix? "powerpc" target))