efraim pushed a commit to branch wip-ppc64le-for-master in repository guix.
commit 995eb7d302882dfcab1dd088ba04af9f71b856d2 Author: Chris Marusich <[email protected]> AuthorDate: Tue Feb 2 00:00:57 2021 -0800 utils: Add target-powerpc? procedure. * guix/utils.scm (target-powerpc?): New exported procedure. --- guix/utils.scm | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/guix/utils.scm b/guix/utils.scm index 1625cab..ce539d9 100644 --- a/guix/utils.scm +++ b/guix/utils.scm @@ -9,6 +9,7 @@ ;;; Copyright © 2018, 2020 Marius Bakke <[email protected]> ;;; Copyright © 2020 Efraim Flashner <[email protected]> ;;; Copyright © 2021 Simon Tournier <[email protected]> +;;; Copyright © 2021 Chris Marusich <[email protected]> ;;; ;;; This file is part of GNU Guix. ;;; @@ -78,6 +79,7 @@ target-arm32? target-aarch64? target-arm? + target-powerpc? target-64bit? cc-for-target cxx-for-target @@ -538,6 +540,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")))
