From e05f08a4e8b7c95f7192e03ffbdbbce3dd602042 Mon Sep 17 00:00:00 2001
From: Efraim Flashner <efraim@flashner.co.il>
Date: Wed, 7 May 2025 17:04:17 +0300
Subject: [PATCH] gnu: rust-1.75: Use rust-bootstrap-1.74 on some platforms.

* gnu/packges/rust.scm (rust-1.75)[arguments]: When building with
rust-bootstrap-1.74 add the add-cc-shim-to-path phase.
[native-inputs]: Build with rust-bootstrap-1.74 on platforms which have
support.
[inputs]: Replace llvm-15 with llvm-17.
(rust-1.76)[arguments]: Remove added add-cc-shim-to-path phase.
[inputs]: Don't replace llvm.

Change-Id: I3bbf5c6dd64617bdd100cc274fe754ffc1325223
---
 gnu/packages/rust.scm | 29 +++++++++++++++++++++++++----
 1 file changed, 25 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/rust.scm b/gnu/packages/rust.scm
index 8dd3f2eb0acc59da5f9005ec283f4aad6364c75a..c6220bf3253e62a6d3e67803e1ae982bc97c94c1 100644
--- a/gnu/packages/rust.scm
+++ b/gnu/packages/rust.scm
@@ -1082,16 +1082,37 @@ safety and thread safety guarantees.")
       (source
        (origin
          (inherit (package-source base-rust))
-         (patches '()))))))
+         (patches '())))
+      (arguments
+       (if (supported-package? rust-bootstrap-1.74)
+           (substitute-keyword-arguments (package-arguments base-rust)
+             ((#:phases phases)
+              `(modify-phases ,phases
+                 (add-after 'unpack 'add-cc-shim-to-path
+                   (lambda _
+                     (mkdir-p "/tmp/bin")
+                     (symlink (which "gcc") "/tmp/bin/cc")
+                     (setenv "PATH" (string-append "/tmp/bin:" (getenv "PATH"))))))))
+           (package-arguments base-rust)))
+      (native-inputs
+       (if (supported-package? rust-bootstrap-1.74)
+           (modify-inputs (package-native-inputs base-rust)
+             (replace "cargo-bootstrap" (list rust-bootstrap-1.74 "cargo"))
+             (replace "rustc-bootstrap" rust-bootstrap-1.74))
+           (package-native-inputs base-rust)))
+      (inputs (modify-inputs (package-inputs base-rust)
+                (replace "llvm" llvm-17))))))
 
 (define-public rust-1.76
   (let ((base-rust (rust-bootstrapped-package rust-1.75 "1.76.0"
                     "08f06shp6l72qrv5fwg1is7yzr6kwj8av0l9h5k243bz781zyp4y")))
     (package
       (inherit base-rust)
-      ;; Need llvm >= 16.0
-      (inputs (modify-inputs (package-inputs base-rust)
-                             (replace "llvm" llvm-17))))))
+      (arguments
+       (substitute-keyword-arguments (package-arguments base-rust)
+         ((#:phases phases)
+          `(modify-phases ,phases
+             (delete 'add-cc-shim-to-path))))))))
 
 (define-public rust-1.77
   (let ((base-rust (rust-bootstrapped-package rust-1.76 "1.77.1"