aboutsummaryrefslogtreecommitdiff
path: root/gnu/packages/rust.scm
diff options
context:
space:
mode:
authorEfraim Flashner <efraim@flashner.co.il>2024-01-11 08:15:09 +0200
committerEfraim Flashner <efraim@flashner.co.il>2024-02-20 13:57:41 +0200
commite825a656eb823f8e9226fa62d5b5d06851d3289b (patch)
tree3533195b897008a080d5fc8223ff41b1d2520d9e /gnu/packages/rust.scm
parent4c60c6e412cdc788f0f49872fbbe61deea66ccc8 (diff)
downloadguix-e825a656eb823f8e9226fa62d5b5d06851d3289b.tar
guix-e825a656eb823f8e9226fa62d5b5d06851d3289b.tar.gz
gnu: rust-bootstrap: Clean-up code.
* gnu/packages/rust.scm (rust-bootstrap)[arguments]: Remove custom 'patch-reference-to-cc phase which didn't do any substitutions. Join two substitutions preventing downloading during the build. Remove unneeded variable in let statement. Change-Id: Iff0262bdff3cb1257afeb83f33c40c54db02dc64
Diffstat (limited to 'gnu/packages/rust.scm')
-rw-r--r--gnu/packages/rust.scm25
1 files changed, 7 insertions, 18 deletions
diff --git a/gnu/packages/rust.scm b/gnu/packages/rust.scm
index e3cad4e585..4cf2d39f78 100644
--- a/gnu/packages/rust.scm
+++ b/gnu/packages/rust.scm
@@ -212,14 +212,6 @@
"OUTDIR_SUF=") ;do not add version suffix to output dir
#:phases
(modify-phases %standard-phases
- (add-after 'unpack 'patch-reference-to-cc
- ;; This prevents errors like 'error: linker `cc` not found' when
- ;; "cc" is not found on PATH.
- (lambda* (#:key inputs #:allow-other-keys)
- (let ((gcc (assoc-ref inputs "gcc")))
- (substitute* (find-files "." "^link.rs$")
- (("\"cc\".as_ref")
- (format #f "~s.as_ref" (string-append gcc "/bin/gcc")))))))
(add-after 'unpack 'setup-mrustc-sources
(lambda* (#:key inputs #:allow-other-keys)
(copy-recursively (assoc-ref inputs "mrustc-source") "../mrustc")
@@ -244,7 +236,9 @@
(string-append "LLVM_CONFIG := " llvm "/bin/llvm-config\n")))
(substitute* "minicargo.mk"
;; Do not try to fetch sources from the Internet.
- (("@curl.*") ""))
+ (("@curl.*") "")
+ (("\\$\\(MINICARGO\\) \\$\\(RUSTC_SRC_DL\\)")
+ "$(MINICARGO)"))
(substitute* "Makefile"
;; Patch date and git obtained version information.
((" -D VERSION_GIT_FULLHASH=.*")
@@ -256,10 +250,6 @@
" -D VERSION_BUILDTIME="
"\"\\\"Thu, 01 Jan 1970 00:00:01 +0000\\\"\""
" -D VERSION_GIT_ISDIRTY=0\n")))
- (substitute* "minicargo.mk"
- ;; Do not try to fetch sources from the Internet.
- (("\\$\\(MINICARGO\\) \\$\\(RUSTC_SRC_DL\\)")
- "$(MINICARGO)"))
(substitute* "run_rustc/Makefile"
;; Patch the shebang of a generated wrapper for rustc
(("#!/bin/sh")
@@ -268,7 +258,7 @@
(("#!/bin/sh")
(string-append "#!" (which "sh"))))))))
(add-after 'patch-generated-file-shebangs 'patch-cargo-checksums
- (lambda* _
+ (lambda _
(substitute* "Cargo.lock"
(("(checksum = )\".*\"" all name)
(string-append name "\"" ,%cargo-reference-hash "\"")))
@@ -292,10 +282,9 @@
(delete 'patch-generated-file-shebangs)
(replace 'build
(lambda* (#:key make-flags parallel-build? #:allow-other-keys)
- (let* ((src-root (getcwd))
- (job-count (if parallel-build?
- (parallel-job-count)
- 1)))
+ (let ((job-count (if parallel-build?
+ (parallel-job-count)
+ 1)))
;; Adapted from:
;; https://github.com/dtolnay/bootstrap/blob/master/build-1.54.0.sh.
(chdir "../mrustc")