02/02: gnu: ci: Cross-build for fewer platforms.

[guix-commits]

efraim pushed a commit to branch master
in repository guix.

commit e99c838d4f87d6403355bb7b38695e1bc8f697f6
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Sun Jun 30 09:22:43 2024 +0300

    gnu: ci: Cross-build for fewer platforms.
    
    * gnu/ci.scm (%unsupported-platform-triplets): New variable.
    (cross-jobs): Also don't build for systems listed in
    %unsupported-platform-triplets.
    
    Change-Id: Ic31ae6d307f2d243c098ec050bdb9d09060466ac
---
 gnu/ci.scm | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/gnu/ci.scm b/gnu/ci.scm
index 95c63067a8..4e282d197f 100644
--- a/gnu/ci.scm
+++ b/gnu/ci.scm
@@ -177,6 +177,13 @@ SYSTEM."
     "or1k-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)
   "Return a list of cross-compilation jobs for SYSTEM."
   (define (from-32-to-64? target)
@@ -200,6 +207,7 @@ SYSTEM."
   (define (pointless? target)
     ;; Return #t if it makes no sense to cross-build to TARGET from SYSTEM.
     (or (member target %bare-platform-triplets)
+        (member target %unsupported-platform-triplets)
         (match system
           ((or "x86_64-linux" "i686-linux")
            (if (string-contains target "mingw")