utils: Add target-loongarch64?.

* guix/utils.scm (target-loongarch64): New procedure.

Change-Id: I8d21bcf04d479937039f6f507b5460bb560fd8ec
This commit is contained in:
Zheng Junjie 2024-12-24 01:08:00 +08:00 committed by Zheng Junjie
parent 7d43134dab
commit ce7b546848
No known key found for this signature in database
GPG key ID: 3B5AA993E1A2DFF0

View file

@ -113,6 +113,7 @@
target-ppc64le?
target-powerpc?
target-riscv64?
target-loongarch64?
target-mips64el?
target-64bit?
target-little-endian?
@ -810,6 +811,10 @@ architecture (x86_64) using 32-bit data types?"
"Is the architecture of TARGET a variant of Microchip's AVR architecture?"
(or (string=? target "avr") (string-prefix? "avr-" target)))
(define* (target-loongarch64? #:optional (target (or (%current-target-system)
(%current-system))))
(string-prefix? "loongarch64-" target))
(define* (target-ppc32? #:optional (target (or (%current-target-system)
(%current-system))))
(string-prefix? "powerpc-" target))