efraim pushed a commit to branch wip-riscv in repository guix. commit 340122fe232a1951eed4b562f3163fd66e4822f4 Author: Efraim Flashner <efr...@flashner.co.il> AuthorDate: Sun Aug 1 11:01:41 2021 +0300
utils: Define 'target-riscv?' predicate. * guix/utils.scm (target-riscv?): New predicate. --- guix/utils.scm | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/guix/utils.scm b/guix/utils.scm index c5a3a52..ffe5a38 100644 --- a/guix/utils.scm +++ b/guix/utils.scm @@ -7,7 +7,7 @@ ;;; Copyright © 2015 David Thompson <da...@gnu.org> ;;; Copyright © 2017 Mathieu Othacehe <m.othac...@gmail.com> ;;; Copyright © 2018, 2020 Marius Bakke <mar...@gnu.org> -;;; Copyright © 2020 Efraim Flashner <efr...@flashner.co.il> +;;; Copyright © 2020, 2021 Efraim Flashner <efr...@flashner.co.il> ;;; Copyright © 2020 Maxim Cournoyer <maxim.courno...@gmail.com> ;;; Copyright © 2021 Simon Tournier <zimon.touto...@gmail.com> ;;; Copyright © 2021 Chris Marusich <cmmarus...@gmail.com> @@ -95,6 +95,7 @@ target-aarch64? target-arm? target-powerpc? + target-riscv? target-64bit? cc-for-target cxx-for-target @@ -694,6 +695,11 @@ architecture (x86_64)?" (%current-system)))) (string-prefix? "powerpc" target)) +(define* (target-riscv? #:optional (target (or (%current-target-system) + (%current-system)))) + "Is the architecture of TARGET a 'riscv' architecture variant?" + (string-prefix? "riscv" target)) + (define* (target-64bit? #:optional (system (or (%current-target-system) (%current-system)))) (any (cut string-prefix? <> system) '("x86_64" "aarch64" "mips64" "powerpc64")))