~ruther/guix-local

94e0fb1eb7409b3cd1a3e0528c2f199c5a2f48d5 — Vivien Kraus 4 years ago 334e953
utils: Add target-mips64el?.

* guix/utils.scm (target-mips64el?): New function. It detects whether the
target system is mips64el.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
1 files changed, 5 insertions(+), 0 deletions(-)

M guix/utils.scm
M guix/utils.scm => guix/utils.scm +5 -0
@@ 102,6 102,7 @@
            target-ppc64le?
            target-powerpc?
            target-riscv64?
            target-mips64el?
            target-64bit?
            ar-for-target
            as-for-target


@@ 734,6 735,10 @@ architecture (x86_64)?"
  "Is the architecture of TARGET a 'riscv64' machine?"
  (string-prefix? "riscv64" target))

(define* (target-mips64el? #:optional (target (or (%current-target-system)
                                                  (%current-system))))
  (string-prefix? "mips64el-" target))

(define* (target-64bit? #:optional (system (or (%current-target-system)
                                               (%current-system))))
  (any (cut string-prefix? <> system) '("x86_64" "aarch64" "mips64"