amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

utils: Add target-loongarch64?.

Browse source 
* 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
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
guix/utils.scm
View file

@ -113,6 +113,7 @@
target-ppc64le? target-ppc64le?
target-powerpc? target-powerpc?
target-riscv64? target-riscv64?
target-loongarch64?
target-mips64el? target-mips64el?
target-64bit? target-64bit?
target-little-endian? 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?" "Is the architecture of TARGET a variant of Microchip's AVR architecture?"
(or (string=? target "avr") (string-prefix? "avr-" target))) (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) (define* (target-ppc32? #:optional (target (or (%current-target-system)
(%current-system)))) (%current-system))))
(string-prefix? "powerpc-" target)) (string-prefix? "powerpc-" target))