ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 13:58:15 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: ci: Cross-build for fewer platforms.

Browse source 
* gnu/ci.scm (%unsupported-platform-triplets): New variable.
(cross-jobs): Also don't build for systems listed in
%unsupported-platform-triplets.

Change-Id: Ic31ae6d307f2d243c098ec050bdb9d09060466ac
This commit is contained in:
Efraim Flashner 2024-06-30 09:22:43 +03:00
parent 2d11361a97
commit e99c838d4f
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
gnu/ci.scm
View file

@ -177,6 +177,13 @@ (define %bare-platform-triplets
"or1k-elf" "or1k-elf"
"xtensa-ath9k-elf")) "xtensa-ath9k-elf"))
(define %unsupported-platform-triplets
;; These systems are kept around for nostalgia or for tinkering, but regular
;; CI is disabled for them to reduce the load on CI infrastructure.
'("mips64el-linux-gnu"
"powerpc-linux-gnu"
"powerpc64-linux-gnu"))
(define (cross-jobs store system) (define (cross-jobs store system)
"Return a list of cross-compilation jobs for SYSTEM." "Return a list of cross-compilation jobs for SYSTEM."
(define (from-32-to-64? target) (define (from-32-to-64? target)
@ -200,6 +207,7 @@ (define (same? target)
(define (pointless? target) (define (pointless? target)
;; Return #t if it makes no sense to cross-build to TARGET from SYSTEM. ;; Return #t if it makes no sense to cross-build to TARGET from SYSTEM.
(or (member target %bare-platform-triplets) (or (member target %bare-platform-triplets)
(member target %unsupported-platform-triplets)
(match system (match system
((or "x86_64-linux" "i686-linux") ((or "x86_64-linux" "i686-linux")
(if (string-contains target "mingw") (if (string-contains target "mingw")