[bug#78688,rust-team,2/3] gnu: rust bootstrap: Set #:disallowed-references.

Message ID CH3PR84MB3424ACCF6ED28015CC6F7FB2C56CA@CH3PR84MB3424.NAMPRD84.PROD.OUTLOOK.COM
State New
Headers
Series None |

Commit Message

Morgan Smith June 4, 2025, 2:13 a.m. UTC
  * gnu/packages/rust.scm (rust-1.55, rust-1.75, rust)
(make-rust-sysroot/implementation): Set #:disallowed-references to the rust in
the native-inputs.

Change-Id: Ifa30f316e3777b748b067ba0ea5a7ee558a05eb2
---
 gnu/packages/rust.scm | 7 +++++++
 1 file changed, 7 insertions(+)
  

Patch

diff --git a/gnu/packages/rust.scm b/gnu/packages/rust.scm
index 2130322942..7fbe4b0aa8 100644
--- a/gnu/packages/rust.scm
+++ b/gnu/packages/rust.scm
@@ -560,6 +560,7 @@  (define-public rust-1.55
     (build-system gnu-build-system)
     (arguments
      (list
+      #:disallowed-references (list (this-package-native-input "rust"))
       #:validate-runpath? #f
       ;; Only the final Rust is tested, not the intermediate bootstrap ones,
       ;; for performance and simplicity.
@@ -1091,6 +1092,8 @@  (define-public rust-1.75
       (arguments
        (if (supported-package? rust-bootstrap-1.74)
            (substitute-keyword-arguments (package-arguments base-rust)
+             ((#:disallowed-references _ '())
+              (list rust-bootstrap-1.74))
              ((#:phases phases)
               #~(modify-phases #$phases
                   (add-after 'unpack 'add-cc-shim-to-path
@@ -1398,6 +1401,8 @@  (define-public rust
        (substitute-keyword-arguments
            (strip-keyword-arguments '(#:tests?)
                                     (package-arguments base-rust))
+         ((#:disallowed-references _ '())
+          (list (this-package-native-input "rust")))
          ((#:phases phases)
           #~(modify-phases #$phases
               (add-after 'unpack 'relax-gdb-auto-load-safe-path
@@ -1770,6 +1775,8 @@  (define make-rust-sysroot/implementation
       (arguments
        (substitute-keyword-arguments (package-arguments base-rust)
          ((#:tests? _ #f) #f)           ; This package for cross-building.
+         ((#:disallowed-references _ '())
+          (list (this-package-native-input "rust")))
          ((#:phases phases)
           #~(modify-phases #$phases
               (add-after 'unpack 'unbundle-xz